简单的VB问题！高分求解！

来源：百度知道 编辑：UC知道 时间：2024/05/22 13:14:13
创建一个VB程序，使得当单击“改变背景色”按钮时，窗体的背景色由默认色变为其他颜色。（比如：红色），如果我能运行成功，会给你适当加分的。

Private Sub Command1_Click()
Form1.BackColor = RGB(Int(240 * Rnd + 120), Int(240 * Rnd + 120), Int(240 * Rnd + 120))
End Sub

Option Explicit

Private Sub Command1_Click()
Randomize
Timer1.Enabled = False
Form1.BackColor = RGB(Int(256 * Rnd), Int(256 * Rnd), Int(256 * Rnd))
'16777216 种颜色随机产生
End Sub

Private Sub Command2_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 200
End Sub

Private Sub Timer1_Timer()
Dim R As Long
Dim G As Long
Dim B As Long

For R = 0 To 255
For G = 0 To 255
For B = 0 To 255
Form1.BackColor = RGB(R, G, B)
Next B
Next G
Next R

End Sub