For～のネスト(入れ子) 縦10、横10列に1を入れる場合です。 Sub 3() Dim , j For = 1 To 10 For = 1 To 10 Cellsi, j) = 1 Nextj Nexti End ネスは、概ね3段階までが推奨されます。 第17.繰り返し処理(DoLoop) Do～の構文 Do [While | Until} condition...
FunctionScoreBoard()'黒石白石数えるよう関数DimiAsLong:i=0DimjAsLong:j=0'黒石白石カウント変数初期化blackCount=0whiteCount=0Fori=0To7'stone_arr配列の中の黒石と白石の数を数えるForj=0To7Ifstone_arr(i,j)=BLACK_STONEThenblackCount=blackCount+1ElseIfstone_arr(i,j)=WHITE_STONEThenwhiteCou...