% ' ==================================================================== ' Copyright (C) 2003 by Takahiro Arie All rights reserved. ' 100マス計算(足し算) ' ' 入力 ' ' 出力 ' ' =================================================================== ' -------------------------------------------------------------------- ' 定数/変数定義 ' -------------------------------------------------------------------- Const TITLE = "100マス計算(足し算)" '
<%=szTitle %> 今日の記録: 月 日( 分 秒)
★★★ ご利用前にお読み下さい。★★★ ・100マス計算の練習用シート(足し算)を手軽に作成できるページです。 ブラウザの「更新」ボタンで数の順序が変わります。 ・実行結果に関して作者は一切責任を持ちません。ご自分の責任の範囲内でご利用下さい。 ・ご意見・ご感想等があれば、 arie@ktco.co.jp まで。(励ましのお言葉、お待ちしております。) <% End Sub '--------------------------------------------------------------------- ' Private Sub Print100Masu ' ' 100マス計算の練習用シートを表示する ' ' 引数 ' [in] ' なし ' [out] ' なし '--------------------------------------------------------------------- Private Sub Print100Masu Dim nRnd ' 0〜9までの乱数 Dim naCol(10) ' 100マスの横軸を設定する配列 Dim naRow(10) ' 100マスの縦軸を設定する配列 Dim baIsUsedCol(10)' 発生した乱数が横軸に使用したものかどうかをチェックするための配列 Dim baIsUsedRow(10)' 発生した乱数が縦軸に使用したものかどうかをチェックするための配列 Randomize '*** 乱数ジェネレータの初期化 *** For I = 0 To 9 nRnd = Int( 10 * Rnd ) Do While (baIsUsedCol(nRnd) = TRUE) nRnd = Int( 10 * Rnd ) Loop naCol(I) = nRnd baIsUsedCol(nRnd) = TRUE nRnd = Int( 10 * Rnd ) Do While (baIsUsedRow(nRnd) = TRUE) nRnd = Int( 10 * Rnd ) Loop naRow(I) = nRnd baIsUsedRow(nRnd) = TRUE Next %>
|