<% ' ==================================================================== ' Copyright (C) 2003 by Takahiro Arie All rights reserved. ' 100マス計算(足し算) ' ' 入力 ' ' 出力 ' ' =================================================================== ' -------------------------------------------------------------------- ' 定数/変数定義 ' -------------------------------------------------------------------- Const TITLE = "100マス計算(足し算)" ' ' -------------------------------------------------------------------- ' プログラム ' -------------------------------------------------------------------- Call Init Call main Call Fin ' -------------------------------------------------------------------- ' 関数・サブルーチン ' -------------------------------------------------------------------- ' 初期化 Private Sub Init End Sub ' 後始末 Private Sub Fin End Sub ' メイン Private Sub main Call PrintHtmlHeader(TITLE) Call Print100Masu Call PrintHtmlFooter End Sub '--------------------------------------------------------------------- ' Private Sub PrintHtmlHeader(szTitle) ' ' ヘッダを表示する ' ' 引数 ' [in] ' szTitle タイトル ' [out] ' なし '--------------------------------------------------------------------- Private Sub PrintHtmlHeader(szTitle) %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS"> <title><%=szTitle %>
<%=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 %>

<% For I = 0 To 9 %> <% Next %> <% For I = 0 to 9 %> <% For J = 0 to 9 %> <% Next %> <% Next %>
<%=naCol(I)%>
<%=naRow(I)%>
<%=naRow(I)%>



<% For I = 0 To 9 %> <% Next %> <% For I = 0 to 9 %> <% For J = 0 to 9 %> <% Next %> <% Next %>
<%=naCol(I)%>
<%=naRow(I)%><%=naRow(I) + naCol(J)%><%=naRow(I)%>
<% End Sub '--------------------------------------------------------------------- ' Private Sub PrintHtmlFooter ' ' フッタを表示する ' ' 引数 ' [in] ' なし ' [out] ' なし '--------------------------------------------------------------------- Private Sub PrintHtmlFooter %>

 Copyright (C) 2003-2007 by Takahiro Arie All rights reserved. <% End Sub %>