2011-11-02から1日間の記事一覧
まんま Dim MyValue, Response Randomize ' 乱数ジェネレータを初期化します。 Do Until Response = vbNo MyValue = Int((6 * Rnd) + 1) ' 1 〜 6 のランダムな値を生成します。 MsgBox MyValue Response = MsgBox ("繰り返しますか ? ", vbYesNo) Loop 同じ…
まんま Dim MyValue, Response Randomize ' 乱数ジェネレータを初期化します。 Do Until Response = vbNo MyValue = Int((6 * Rnd) + 1) ' 1 〜 6 のランダムな値を生成します。 MsgBox MyValue Response = MsgBox ("繰り返しますか ? ", vbYesNo) Loop 同じ…