第４講 If文（もしもボックスの世界）
第６話 ３段階判定
実行画面が
　　　　・
　　　　・
出席番号＝33
国語＝11
社会＝60
数学＝25
理科＝38
英語＝49
合計点＝183
出席番号33番は努力が必要です。

出席番号＝34
国語＝84
社会＝96
数学＝42
理科＝3
英語＝51
合計点＝276
出席番号34番は普通です。

出席番号＝35
国語＝92
社会＝37
数学＝75
理科＝21
英語＝97
合計点＝322
出席番号35番は頑張りました。
　　　　・
　　　　・
となるソフトのコード例
Module Module1

　　Sub Main() '私は社長だ。
　　　　Dim s, a, b, c, d, e, g As Integer 's:出席番号 a:国語 b:社会 c:数学 d:理科 e:英語 g:合計
　　　　Console.WriteLine ("各教科の点数をキーボードから入力して下さい。")
　　　　For s = 1 To 40
　　　　　　Console.WriteLine("出席番号＝{0:d}", s) '出席番号表示
　　　　　　'以下各教科得点ランダム発生
　　　　　　a = Int(Rnd() * 100) + 1
　　　　　　b = Int(Rnd() * 100) + 1
　　　　　　c = Int(Rnd() * 100) + 1
　　　　　　d = Int(Rnd() * 100) + 1
　　　　　　e = Int(Rnd() * 100) + 1
　　　　　　'以上各教科得点ランダム発生
　　　　　　g = a + b + c + d + e '合計点算出
　　　　　　'以下各教科得点、合計点、合否結果の表示
　　　　　　Console.WriteLine("国語＝{0:d}", a) '国語得点の表示
　　　　　　Console.WriteLine("社会＝{0:d}", b) '社会得点の表示
　　　　　　Console.WriteLine("数学＝{0:d}", c) '数学得点の表示
　　　　　　Console.WriteLine("理科＝{0:d}", d) '理科得点の表示
　　　　　　Console.WriteLine("英語＝{0:d}", e) '英語得点の表示
　　　　　　Console.WriteLine("合計点＝{0:d}", g) '合計点の表示
　　　　　　Console.Write("出席番号{0:d}番は", s)
　　　　　　If g >= 300 Then
　　　　　　　　Console.WriteLine ("頑張りました。")
　　　　　　Else
　　　　　　　　If g >= 200 Then
　　　　　　　　　　Console.WriteLine ("普通です。")
　　　　　　　　Else
　　　　　　　　　　Console.WriteLine ("努力が必要です。")
　　　　　　　　End If
　　　　　　　　Console.WriteLine()
　　　　　　End If
　　　　　　Console.WriteLine()
　　　　Next
　　End Sub

End Module


では次に４段階評価に挑戦しましょう。
評価の文面は皆さんにお任せしますが、
私は、
１８０未満　　　　　　　　　＊＊＊かなりの努力が必要です。
１８０以上２２０未満　　　＊＊＊努力が必要です。
２２０以上２８０未満　　　＊＊＊そこそこ頑張りました。
２８０以上　　　　　　　　　＊＊＊頑張りました。
にします。
　　　・
　　　・
出席番号＝23
国語＝22
社会＝46
数学＝25
理科＝73
英語＝71
合計点＝237
出席番号23番は努力が必要です。

出席番号＝24
国語＝30
社会＝78
数学＝74
理科＝98
英語＝13
合計点＝293
出席番号24番は頑張りました。
　　　・
　　　・
出席番号＝34
国語＝84
社会＝96
数学＝42
理科＝3
英語＝51
合計点＝276
出席番号34番はそこそこ頑張りました。
　　　・
　　　・
出席番号＝40
国語＝22
社会＝11
数学＝18
理科＝14
英語＝15
合計点＝80
出席番号40番はかなりの努力が必要です。
　　　・
　　　・