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

１．素材の作成

　　今回はなし。

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

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

３．プロパティの設定

（１）コマンドボタン

（２）フォーム

４．コードの記述

（１）コマンド１

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

（２）コマンド２

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

（３）コマンド３

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

（４）コマンド４

（５）プログラム全文

Option Explicit

Private Sub Command1_Click()
Dim red As Integer, green As Integer, blue As Integer
Dim i As Integer, j As Long
Dim dummy As Single
　　red = 255
　　green = 0
　　blue = 0
　　For i = 1 To 5
　　　　hikari1.BackColor = RGB(red, green, blue)
　　　　For j = 1 To 40000
　　　　　　dummy = 1.0 * 1.0
　　　　Next j
　　　　hikari1.BackColor = RGB(255, 255, 255)
　　　　For j = 1 To 40000
　　　　　　dummy = 1.0 * 1.0
　　　　Next j
　　Next i
End Sub

Private Sub Command2_Click()
Dim red As Integer, green As Integer, blue As Integer
Dim i As Integer, j As Long
Dim dummy As Single
　　red = 0
　　green = 255
　　blue = 0
　　For i = 1 To 5
　　　　hikari1.BackColor = RGB(red, green, blue)
　　　　For j = 1 To 40000
　　　　　　dummy = 1.0 * 1.0
　　　　Next j
　　　　hikari1.BackColor = RGB(255, 255, 255)
　　　　For j = 1 To 40000
　　　　　　dummy = 1.0 * 1.0
　　　　Next j
　　Next i
End Sub

Private Sub Command3_Click()
Dim red As Integer, green As Integer, blue As Integer
Dim i As Integer, j As Long
Dim dummy As Single
　　red = 0
　　green = 0
　　blue = 255
　　For i = 1 To 5
　　　　hikari1.BackColor = RGB(red, green, blue)
　　　　For j = 1 To 40000
　　　　　　dummy = 1.0 * 1.0
　　　　Next j
　　　　hikari1.BackColor = RGB(255, 255, 255)
　　　　For j = 1 To 40000
　　　　　　dummy = 1.0 * 1.0
　　　　Next j
　　Next i
End Sub

Private Sub Command4_Click()
　　End
End Sub

５．実行

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

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

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

６．保存

（１）フォーム

（２）プロジェクト