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

課題		フォーム	コード（ソース）	プロパティ＆注釈
課 題 10	３つの乱数を表示させ スタート、ストップボタン で操作する。		(General)  Dim x, y, z As Integer Private Sub Command1_Click() 　Timer1.Enabled = True End Sub Private Sub Command2_Click() 　Timer1.Enabled = False 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	Timer1の intervalを 10くらいに Timer1の Enabledを Falseに
課 題 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	TextBox2、3も 同様に。 どこを修正するか わかるかな？
課 題 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	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とする。
課 題 14	ストップボタンを３つ 用意し乱数を１つひとつ 止めるにはどうしたら よいか。
課 題 15	３つのテキストボックス を３つのピクチャボックス に替えて、画像による スロットを作る。 見本はこちらから ダウンロードできます。 slot2002.exe（48KB） いくつかのライブラリーが 必要です。

index