タイトル : Re: コードを短く簡潔にするには? 投稿日 : 2008/04/27(Sun) 07:43 投稿者 : nobu
下記の様に For 〜 Next 文を使用してみて下さい。 Private Function Point() Dim TwoT As Long Dim TwoS As Long Dim i As Integer '追加 TwoT = 0 '明示的にゼロにしたほうが良いかも TwoS = 0 '明示的にゼロにしたほうが良いかも With Game.Team(0) For i = 1 To 18 TwoT = TwoT + .Player(i).TwoPointShotCount Next i For i = 1 To 18 TwoS = TwoS + .Player(i).TwoPointShotScore Next i End With Point = Cstr(TwoT) & "-" & Cstr((TwoS / 2)) End Function > Point = TwoT & "-" & (TwoS / 2) 'Point の型宣言がされていませんが & "-" & と文字を結合して 'いるところからして文字( String ) でしょうか? 'だとすれば Long と String を結合ではエラーが出ませんか? |