Visual Basic　を使って、簡単なプログラミングを体験してみましょう。

課題		フォーム	コード（ソース）	プロパティ＆注釈
課 題 １	ボタンを押すと 「こんにちは」と書いた メッセージボックスが 表示される。		Private Sub Command1_Click() 　MsgBox "こんにちは" End Sub	Command1 のCaptionを 「ここを押す」 にする。
課 題 ２	ボタンを押すと、 ある座標を中心とした ある半径の円が ある色で表示される。		Private Sub Command1_Click() 　Circle (1000, 1000), 500, vbRed End Sub
課 題 ３	ボタンを押すと、 ある座標とある座標を 結んだ線が ある色で表示される。		Private Sub Command1_Click() 　Line (0, 0)-(6400, 4800), vbBlue End Sub
課 題 ４	ボタンを押すと、 ０から１までの乱数が 表示される。 Rnd（１）は０から１までの 乱数を表す関数。		Private Sub Command1_Click() 　MsgBox Rnd(1) End Sub
課 題 ５	ボタンを押すと、 ０から７までの乱数が 表示される。		Private Sub Command1_Click() 　MsgBox Rnd(1) * 7 End Sub
課 題 ６	ボタンを押すと、 ０から７までの整数が ランダムに表示される。 int（　）は整数化の関数。		Private Sub Command1_Click() 　MsgBox Int(Rnd(1) * 7 + 1) End Sub
課 題 ７	ボタンを押すと、 ０から７までの整数が ランダムに テキストボックスに 表示される。		Private Sub Command1_Click() 　Text1.Text = Int(Rnd(1) * 7 + 1) End Sub	TextBox1の Fontをご自由に ・フォントの種類 ・フォントサイズ
課 題 ８	Xを変数として定義する。 Ｉｎｔｅｇｅｒとは整数のこと。		Private Sub Command1_Click() 　Dim x As Integer 　x = Int(Rnd(1) * 7 + 1) 　Text1.Text = x End Sub
課 題 ９	ボタンを押すと、 ０から７までの整数が ランダムに次々と テキストボックスに 表示される。		Private Sub Command1_Click() 　Timer1.Enabled = True End Sub Private Sub Command2_Click() 　Timer1.Enabled = False End Sub Private Sub Timer1_Timer() 　Dim x As Integer 　x = Int(Rnd(1) * 7 + 1) 　Text1.Text = x End Sub	Timer1の Intervalを５０くらい EnabledをFalseに
課 題 10	３つの乱数を表示させ スタート、ストップボタン で操作する。		Private Sub Command1_Click() 　Timer1.Enabled = True End Sub Private Sub Command2_Click() 　Timer1.Enabled = False End Sub Private Sub Timer1_Timer() 　Dim x, y, z As Integer 　x= Int(Rnd(1) * 7 + 1) 　y= Int(Rnd(1) * 7 + 1) 　z= Int(Rnd(1) * 7 + 1) 　Text1.Text = x 　Text2.Text = y 　Text3.Text = z End Sub
課 題 11	乱数の値が ７ならば赤、 ６ならば橙、 ５ならば黄、 ４ならば緑、 ３ならば水色、 ２ならば青、 １ならば紫に表示する。		各TextBoxのプロシージャーに 以下のコードを追加する。 Private Sub Text1_Change() Select Case Val(Text1.Text) 　Case 1 　Text1.ForeColor = &HFF00FF 　Case 2 　Text1.ForeColor = &HFF0000 　Case 3 　Text1.ForeColor = &HFFFF00 　Case 4 　Text1.ForeColor = &HFF00& 　Case 5 　Text1.ForeColor = &HFFFF& 　Case 6 　Text1.ForeColor = &H80FF& 　Case 7 　Text1.ForeColor = &HFF& 　End Select End Sub
課 題 12	３つの乱数が揃ったら Fever！ と表示する。		Dim x, y, z As Integer Private Sub Command1_Click() 　Label1.Caption = "" 　Timer1.Enabled = True End Sub Private Sub Command2_Click() 　Timer1.Enabled = False 　If x = y And y = z Then 　　Label1.Caption = "Fever!" 　Else 　　Label1.Caption = "Boo!" 　End If End Sub Private Sub Timer1_Timer() 　x= Int(Rnd(1) * 7 + 1) 　y= Int(Rnd(1) * 7 + 1) 　z= Int(Rnd(1) * 7 + 1) 　Text1.Text = x 　Text2.Text = y 　Text3.Text = z End Sub	Dim文を モジュール全体で 使えるように （Ｇｅｎｅｌａｌ） に移動。 Label1の Fontをご自由に。
課 題 13	所持金を１０００円、 １ゲーム１０円とする。 同じ数字が３つ揃うと ５００円増えるように する。		Dim x, y, z, m As Integer Private Sub Form_Load() 　m = 1000 End Sub Private Sub Command1_Click() 　m = m - 10 　Label1.Caption = "" 　Timer1.Enabled = True 　Text4.Text = m End Sub Private Sub Command2_Click() 　Timer1.Enabled = False 　If x = y And y= z Then 　　Label1.Caption = "fever!" 　　m = m + 500 　　Text4.Text = m 　Else 　　Label1.Caption = "Boo!" 　End If End Sub Private Sub Timer1_Timer() 　x= Int(Rnd(1) * 7 + 1) 　y= Int(Rnd(1) * 7 + 1) 　z= Int(Rnd(1) * 7 + 1) 　Text1.Text = x 　Text2.Text = y 　Text3.Text = z End Sub	TextBox4を追加。 Captionを 1000とする。

次の課題へ