第４講　If文の学習

第５話　成績一覧表作成の準備（DataGridViewの作成）
ランダム入力４段階解答例

Public Class Form1

　　 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　　'変数の宣言
　　　　　Dim a As Integer, b As Integer, c As Integer, d As Integer, f As Integer, w As Integer

　　　　　 'ランダムデータ発生
　　　　　　a = Int(101 * Rnd())
　　　　　　b = Int(101 * Rnd())
　　　　　　c = Int(101 * Rnd())
　　　　　　d = Int(101 * Rnd())
　　　　　　f = Int(101 * Rnd())

　　　　　　'TextBox1に表示
　　　　　　TextBox1.Text = a
　　　　　　TextBox2.Text = b
　　　　　　TextBox3.Text = c
　　　　　　TextBox4.Text = d
　　　　　　TextBox5.Text = f

　　　　　'５教科合計を計算
　　　　　w = a + b + c + d + f

　　　　　'５教科合計を表示
　　　　　TextBox6.Text = w

　　　　　'合否の表示
　　　　　If w >= 300 Then
　　　　　　　TextBox7.Text = "合格"
　　　　　Else
　　　　　　　TextBox7.Text = "不合格"
　　　　　End If

　　　　　'講評の表示
　　　　 If w >= 450 Then
　　　　　　　TextBox8.Text = "超天才級"
　　　　　Else
　　　　　　　If w >= 380 Then
　　　　　　　　　TextBox8.Text = "天才級"
　　　　　　　Else
　　　　　　　　　If w >= 300 Then
　　　　　　　　　　　TextBox8.Text = "優秀です。"
　　　　　　　　　Else
　　　　　　　　　　　If w >= 280 Then
　　　　　　　　　　　　　TextBox8.Text = "残念、後一歩でした。"
　　　　　　　　　　　Else
　　　　　　　　　　　　　TextBox8.Text = "残念"
　　　　　　　　　　　End If
　　　　　　　　　End If
　　　　　　End If
　　　　End If



　　 End Sub
End Class

ランダム入力５段階解答例（If文のみによる）

Public Class Form1

　　 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　　'変数の宣言
　　　　　Dim a As Integer, b As Integer, c As Integer, d As Integer, f As Integer, w As Integer

　　　　　 'ランダムデータ発生
　　　　　　a = Int(101 * Rnd())
　　　　　　b = Int(101 * Rnd())
　　　　　　c = Int(101 * Rnd())
　　　　　　d = Int(101 * Rnd())
　　　　　　f = Int(101 * Rnd())

　　　　　　'TextBox1に表示
　　　　　　TextBox1.Text = a
　　　　　　TextBox2.Text = b
　　　　　　TextBox3.Text = c
　　　　　　TextBox4.Text = d
　　　　　　TextBox5.Text = f

　　　　　'５教科合計を計算
　　　　　w = a + b + c + d + f

　　　　　'５教科合計を表示
　　　　　TextBox6.Text = w

　　　　　'合否の表示
　　　　　If w >= 300 Then
　　　　　　　TextBox7.Text = "合格"
　　　　　Else
　　　　　　　TextBox7.Text = "不合格"
　　　　　End If

　　　　　'講評の表示
　　　　　If w >= 450 Then
　　　　　　　TextBox8.Text = "超天才級"
　　　　　End If
　　　　　If w　< 450 And w >= 380 Then
　　　　　　　TextBox8.Text = "天才級"
　　　　　End If
　　　　　If w　< 380 And w >= 300 Then
　　　　　　　TextBox8.Text ="優秀です。
　　　　　End If
　　　　　If w　< 300And w >= 280 Then
　　　　　　　TextBox8.Text ="残念、後一歩でした。"
　　　　　End If
　　　　　If w < 280 Then
　　　　　　　TextBox8.Text = "残念"
　　　　　End If



　　 End Sub
End Class

データのランダム発生を使いDataGridViewに成績一覧表の作成を行いましょう。
成績一覧表は、この話では合計・平均・合否判定・講評を入れ、
次話では、最高点・最低点も入れていきます。

成績一覧表は、１クラス４０人で国語・社会・数学・理科・英語の５教科とします。
出席番号も含めますので、
データ数は４０×６＝２４０にもなります。
もちろんこのデータを発生させて、DataGridViewに表示させるには、
第３講で学んだfor文を活用しなければなりません。

まず、新しいプロジェクト（ファイル→新規作成からでも可）でプロジェクト名を成績一覧表
（もし、漢字だとエラーする環境なら半角英数で適当な名前をつけてください。）として、
次のようForm1を作成してください。

Form1の大きさは、できるだけ大きくとって、Windowいっぱいまでになるようにしてください。
尚、

Windowは赤い線のところをドラッグすることによって広げられます。
あるいはメニューバーの表示をクリックして全面表示をクリックすると、Windowがかなり広げられます。
皆さん工夫してできるだけ大きくとりましょう。
そして、DataGridViewも図のように下限いっぱいまで広げてください。

これはメニューバーの表示から全面表示を選んでいる場合です。
全面表示をやめるためには、もう一度　表示→全面表示とクリックします。
デフォルトだと列幅が広すぎ、左寄せになっているのでそれを解消していきます。
次に、をクリックし、列の追加を選び、
ヘッダーテキストをAとして追加を押します。
同様にして、列をLまで加え閉じるを選びます。DataGridViewをForm1いっぱいまで広げ

Lまで表示させてください。
再度のをクリックして、
今度は編集を選び、
DataGridViewCellStyleをクリックし、
のをクリック。
（がない場合はNotSetをクリックすると出てきます。）
そして、MiddleRightを選びます。
MiddleRightになり、
プレビューも右寄せになっていることを確認したらOKをクリックします。
Width（これが列幅）を７０とします。
次に、列Bを選び同じことをします。
そして、同様にしてすべての列について右寄せで幅が７０になるようにします。

列幅が小さくなったので、DataGridViewとForm1の大きさを調整します。

第４話へ　第６話へ

VC++講義第１部へ
vb講義へ
ＶＢ講義基礎へ

数学研究室に戻る