を実現するプログラム例
Private Sub CommandButton1_Click()
Dim i As Integer, w As Integer
Range(Cells(5, 7), Cells(5, 12)).Select
Selection.ClearContents
For i = 3 To 5
Cells(5, i) = Int(101 * Rnd)
Next
For i = 3 To 5
Cells(6, i) = Int(101 * Rnd)
Next
For i = 3 To 5
Cells(7, i) = Int(101 * Rnd)
Next
For i = 3 To 5
Cells(8, i) = Int(101 * Rnd)
Next
For i = 3 To 5
Cells(9, i) = Int(101 * Rnd)
Next
For i = 3 To 5
Cells(10, i) = Int(101 * Rnd)
Next
For i = 3 To 5
Cells(11, i) = Int(101 * Rnd)
Next
For i = 3 To 5
Cells(12, i) = Int(101 * Rnd)
Next
w = 0
For i = 3 To 5
w = w + Cells(5, i)
Next
Cells(5, 6) = w
If w >= 150 Then Cells(5, 7) = "合格" Else Cells(5, 7) = "不合格"
If w >= 210 Then
Cells(5, 8) = "あなたは超天才級です。"
Else
If w >= 170 Then
Cells(5, 8) = "あなたは天才級です。"
Else
If w >= 130 Then
Cells(5, 8) = "まあいいんじゃないでしょうか。"
Else
If w >= 90 Then
Cells(5, 8) = "もう少し頑張りましょう。"
Else
Cells(5, 8) = "早く人間になりたい。"
End If
End If
End If
End If
w = 0
For i = 3 To 5
w = w + Cells(6, i)
Next
Cells(6, 6) = w
If w >= 150 Then Cells(6, 7) = "合格" Else Cells(6, 7) = "不合格"
If w >= 210 Then
Cells(6, 8) = "あなたは超天才級です。"
Else
If w >= 170 Then
Cells(6, 8) = "あなたは天才級です。"
Else
If w >= 130 Then
Cells(6, 8) = "まあいいんじゃないでしょうか。"
Else
If w >= 90 Then
Cells(6, 8) = "もう少し頑張りましょう。"
Else
Cells(6, 8) = "早く人間になりたい。"
End If
End If
End If
End If
w = 0
For i = 3 To 5
w = w + Cells(7, i)
Next
Cells(7, 6) = w
If w >= 150 Then Cells(7, 7) = "合格" Else Cells(7, 7) = "不合格"
If w >= 210 Then
Cells(7, 8) = "あなたは超天才級です。"
Else
If w >= 170 Then
Cells(7, 8) = "あなたは天才級です。"
Else
If w >= 130 Then
Cells(7, 8) = "まあいいんじゃないでしょうか。"
Else
If w >= 90 Then
Cells(7, 8) = "もう少し頑張りましょう。"
Else
Cells(7, 8) = "早く人間になりたい。"
End If
End If
End If
End If
w = 0
For i = 3 To 5
w = w + Cells(8, i)
Next
Cells(8, 6) = w
If w >= 150 Then Cells(8, 7) = "合格" Else Cells(8, 7) = "不合格"
If w >= 210 Then
Cells(8, 8) = "あなたは超天才級です。"
Else
If w >= 170 Then
Cells(8, 8) = "あなたは天才級です。"
Else
If w >= 130 Then
Cells(8, 8) = "まあいいんじゃないでしょうか。"
Else
If w >= 90 Then
Cells(8, 8) = "もう少し頑張りましょう。"
Else
Cells(8, 8) = "早く人間になりたい。"
End If
End If
End If
End If
w = 0
For i = 3 To 5
w = w + Cells(9, i)
Next
Cells(9, 6) = w
If w >= 150 Then Cells(9, 7) = "合格" Else Cells(9, 7) = "不合格"
If w >= 210 Then
Cells(9, 8) = "あなたは超天才級です。"
Else
If w >= 170 Then
Cells(9, 8) = "あなたは天才級です。"
Else
If w >= 130 Then
Cells(9, 8) = "まあいいんじゃないでしょうか。"
Else
If w >= 90 Then
Cells(9, 8) = "もう少し頑張りましょう。"
Else
Cells(9, 8) = "早く人間になりたい。"
End If
End If
End If
End If
w = 0
For i = 3 To 5
w = w + Cells(10, i)
Next
Cells(10, 6) = w
If w >= 150 Then Cells(10, 7) = "合格" Else Cells(10, 7) = "不合格"
If w >= 210 Then
Cells(10, 8) = "あなたは超天才級です。"
Else
If w >= 170 Then
Cells(10, 8) = "あなたは天才級です。"
Else
If w >= 130 Then
Cells(10, 8) = "まあいいんじゃないでしょうか。"
Else
If w >= 90 Then
Cells(10, 8) = "もう少し頑張りましょう。"
Else
Cells(10, 8) = "早く人間になりたい。"
End If
End If
End If
End If
w = 0
For i = 3 To 5
w = w + Cells(11, i)
Next
Cells(11, 6) = w
If w >= 150 Then Cells(11, 7) = "合格" Else Cells(11, 7) = "不合格"
If w >= 210 Then
Cells(11, 8) = "あなたは超天才級です。"
Else
If w >= 170 Then
Cells(11, 8) = "あなたは天才級です。"
Else
If w >= 130 Then
Cells(11, 8) = "まあいいんじゃないでしょうか。"
Else
If w >= 90 Then
Cells(11, 8) = "もう少し頑張りましょう。"
Else
Cells(11, 8) = "早く人間になりたい。"
End If
End If
End If
End If
w = 0
For i = 3 To 5
w = w + Cells(12, i)
Next
Cells(12, 6) = w
If w >= 150 Then Cells(12, 7) = "合格" Else Cells(12, 7) = "不合格"
If w >= 210 Then
Cells(12, 8) = "あなたは超天才級です。"
Else
If w >= 170 Then
Cells(12, 8) = "あなたは天才級です。"
Else
If w >= 130 Then
Cells(12, 8) = "まあいいんじゃないでしょうか。"
Else
If w >= 90 Then
Cells(12, 8) = "もう少し頑張りましょう。"
Else
Cells(12, 8) = "早く人間になりたい。"
End If
End If
End If
End If
Cells(1, 1).Select
End Sub
Private Sub CommandButton2_Click()
Range(Cells(5, 3), Cells(13, 8)).Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
では、次の課題に移ります。
整数には次のような性質があります。
『任意の整数は
偶数なら２で割り、奇数なら３倍して１を加える
という操作を繰り返すと最後は１になる』
例えば、7609を例に取ると
任意の整数を発生させて、for文とif文を組み合わせて、
プログラムを組んで、
この性質を証明しましょう。
この課題は、ノーヒントでは余りにも難しいですから、
ヒントを書いておきます。
まず、制御変数の終わりの値は、大きめに取っておきますから、
Long型で宣言して下さい。
For i = 0 To 100000
回数が何回になるか分からないからです。
For文には途中でFor文から強制的に抜ける方法があるのです。
最初に入力する値をwとしておいてこれを先の約束
『偶数なら２で割り、奇数なら３倍して１を加える』
で加工していってwが1になった時点で
If w = 1 Then Exit For
とすることによってFor文を強制的に抜けるわけです。
この後サブプロシージャやファンクションプロシージャなども勉強しますが、
Exit SubとかExit Functionなどとやって、
強制的にサブプロシージャやファンクションプロシージャから抜けることが出来ます。
表示の位置は制御変数のiを上手く使います。
Cells(3 + Int(i / 10), 2 + ((2 * i) Mod 20)) = w
If w > 1 Then Cells(3 + Int(i / 10), 3 + ((2 * i) Mod 20)) = "→"
の２文を使うことをヒントとして提示しておきます。
Int(i / 10)がiを10で割り、小数部分を切り捨てています。
a mod b はaをb割ったときの余りを算出するものです。
今回は((2 * i) Mod 20)となっていますから、iの２倍を２０で割った余りを使っています。
2 * iとなっている理由は、数字および→を１個おきに表示させたいからです。
以上のヒントを基にプログラムを組んでみて下さい。
第６話へ 第８話へ
