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

タイトル ： コードを短く簡潔にするには？
投稿日： 2008/04/26(Sat) 21:35
投稿者： tea
以下のコードを短く簡潔にするにはどうしたらよいのでしょうか？
他にも同様なコードの箇所が１０個ほどあります。
教えてください。
よろしくお願いします。

Private Function Point()
Dim TwoT As Long
Dim TwoS As Long

    With Game.Team(0)
    
        TwoT = .Player(1).TwoPointShotCount + .Player(2).TwoPointShotCount _
            + .Player(3).TwoPointShotCount + .Player(4).TwoPointShotCount _
            + .Player(5).TwoPointShotCount + .Player(6).TwoPointShotCount _
            + .Player(7).TwoPointShotCount + .Player(8).TwoPointShotCount _
            + .Player(9).TwoPointShotCount + .Player(10).TwoPointShotCount _
            + .Player(11).TwoPointShotCount + .Player(12).TwoPointShotCount _
            + .Player(13).TwoPointShotCount + .Player(14).TwoPointShotCount _
            + .Player(15).TwoPointShotCount + .Player(16).TwoPointShotCount _
            + .Player(17).TwoPointShotCount + .Player(18).TwoPointShotCount

        TwoS = .Player(1).TwoPointShotScore + .Player(2).TwoPointShotScore _
            + .Player(3).TwoPointShotScore + .Player(4).TwoPointShotScore _
            + .Player(5).TwoPointShotScore + .Player(6).TwoPointShotScore _
            + .Player(7).TwoPointShotScore + .Player(8).TwoPointShotScore _
            + .Player(9).TwoPointShotScore + .Player(10).TwoPointShotScore _
            + .Player(11).TwoPointShotScore + .Player(12).TwoPointShotScore _
            + .Player(13).TwoPointShotScore + .Player(14).TwoPointShotScore _
            + .Player(15).TwoPointShotScore + .Player(16).TwoPointShotScore _
            + .Player(17).TwoPointShotScore + .Player(18).TwoPointShotScore
    End With
    
    Point = TwoT & "-" & (TwoS / 2)
    
End Function
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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