【課題２３のプログラム】

１．素材の作成

　　今回はなし。

２．インターフェイスの作成

　　コマンドボタンを４つ配置する。

３．プロパティの設定

（１）コマンドボタン

（２）フォーム

４．コードの記述

（１）ジェネラル・プロシージャ（変数宣言も忘れずに）

（２）コマンド１

　　１＃とあるところは１．０と入力する。

（３）コマンド２

　　１＃とあるところは１．０と入力する。

（４）コマンド３

　　１＃とあるところは１．０と入力する。

（５）コマンド４

　　１＃とあるところは１．０と入力する。

（６）プログラム全文

Option Explicit
Dim color As Integer

Sub pikapika()
Dim red As Integer, green As Integer, blue As Integer
Dim i As Integer, j As Long
Dim dummy As Single
　　Select Case color
　　Case 1
　　　　red = 255
　　　　green = 0
　　　　blue = 0
　　Case 2
　　　　red = 0
　　　　green = 255
　　　　blue = 0
　　Case 3
　　　　red = 0
　　　　green = 0
　　　　blue = 255
　　End Select

　　For i = 1 To 5
　　　　hikari2.BackColor = RGB(red, green, blue)
　　　　For j = 1 To 40000
　　　　　　dummy = 1.0 * 1.0
　　　　Next j
　　　　hikari2.BackColor = RGB(255, 255, 255)
　　　　For j = 1 To 40000
　　　　　　dummy = 1.0 * 1.0
　　　　Next j
　　Next i
End Sub

Private Sub Command1_Click()
　　color = 1
　　pikapika
End Sub

Private Sub Command2_Click()
　　color = 2
　　pikapika
End Sub

Private Sub Command3_Click()
　　color = 3
　　pikapika
End Sub

Private Sub Command4_Click()
　　End
End Sub

５．実行

（１）赤ボタンをクリック

（２）緑ボタンをクリック

（３）青ボタンをクリック

６．保存

（１）フォーム

（２）プロジェクト