tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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 を結合ではエラーが出ませんか?
  
    

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。