Do ExitDoは、Do～Loopのループを抜けます。 指定条件になる前に、 Do～のループ処理を終了したい場合に使用します。 Do 理終了したい時に、Exit Do Loop このうに、Doに終了条件を書かずに、終了条件を判定し処理を終了できます。 Do～のネスト(入れ子) 縦10、横10列に1を入れる...
'黒石と白石の数が盤面を埋め尽くしたら勝敗判定プロシージャを呼び出すIfblackCount+whiteCount=UBound(stone_arr)*UBound(stone_arr,2)ThenCallOtheloJudgementEndIf 勝敗判定は黒石・白石カウントの数を比較する関数をギブアップボタンに紐づけて実装しています。 ギブアップボタンを押さなくても、...
Dim i As Long Do While scrCtrl Is Nothing DoEvents: i = i + 1 '無限ループ防止用。作者環境では5000弱はループする。 If i > 100000 Then Err.Raise 429 '429 = ActiveXコンポーネントはオブジェクトを生成できません。 Loop 'Debug.Print i 'ループ回数確認用 '必要に応じて 'scrCtrl....