第４講　If文の学習

第４話　If...Else...文の入れ子式による４段階評価

４段階解答例その1
Private Sub CommandButton1_Click()
　　　　　・
　　　　　・
　　　　　・
　　'各生徒の講評
　　For i = 1 To 40
　　　　If Cells(6 + i, 7) >= 350 Then
　　　　　　Cells(6 + i, 10) = "あなたはかなり優秀です。"
　　　　Else
　　　　　　If Cells(6 + i, 7) >= 300 Then
　　　　　　　　Cells(6 + i, 10) = "おめでとう。"
　　　　　　Else
　　　　　　　　If Cells(6 + i, 7) >= 200 Then
　　　　　　　　　　Cells(6 + i, 10) = "合格まであと一歩です。"
　　　　　　　　Else
　　　　　　　　　　Cells(6 + i, 10) = "かなりのがんばりが必要です。"
　　　　　　　　End If
　　　　　　End If
　　　　End If
　　Next

End Sub

［解説］
まず、350以上なら
　　　　If Cells(6 + i, 7) >= 350 Then
　　　　　　Cells(6 + i, 10) = "あなたはかなり優秀です。"
から、『あなたはかなり優秀です。』と講評の欄に表示されます。
350以上でない場合は、350未満ということになります。
そして、
　　　　　　If Cells(6 + i, 7) >= 300 Then
　　　　　　　　Cells(6 + i, 10) = "おめでとう。"
から、350未満かつ300以上ときは、『おめでとう』と表示されます。
300以上でないときは、300未満です。そして、
　　　　　　　　If Cells(6 + i, 7) >= 200 Then
　　　　　　　　　　Cells(6 + i, 10) = "合格まであと一歩です。"
から300未満かつ200以上ときは『合格まで後一歩です。』と表示されます。
200以上でないときは、200未満で
　　　　　　　　Else
　　　　　　　　　　Cells(6 + i, 10) = "かなりのがんばりが必要です。"
から『かなりのがんばりが必要です。』と表示されます。

４段階解答例その２（if文のみによる）

　　For i = 1 To 40
　　　　If Cells(6 + i, 7) >= 350 Then
　　　　　　Cells(6 + i, 10) = "あなたはかなり優秀です。"
　　　　End If
　　　　If Cells(6 + i, 7) < 350 And Cells(6 + i, 7) >= 300 Then
　　　　　　Cells(6 + i, 10) = "おめでとう。"
　　　　End If
　　　　If Cells(6 + i, 7) < 300 And Cells(6 + i, 7) >= 200 Then
　　　　　　Cells(6 + i, 10) = "合格まで後一歩です。"
　　　　End If
　　　　If Cells(6 + i, 7) < 200 Then
　　　　　　Cells(6 + i, 10) = "かなりのがんばりが必要です。"
　　　　End If
　　Next
こちらの方が、やっぱりわかりやすいですね。
次は５段階に挑戦しましょう。区切りとコメントは皆さんにお任せします。

第３話へ　第５話へ

vc++講義へ
vb講義へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ

数学研究室に戻る