13问答网 > 下面有两到Vb操作题，我是一名要参加今年信息技术学考的高中生，希望大家帮一下我！Thanks！

下面有两到Vb操作题，我是一名要参加今年信息技术学考的高中生，希望大家帮一下我！Thanks！

2025-03-04 03:26:19

推荐回答（1个）

回答1：

第一题：① n
第二题：
Private Sub Command1_Click()
Timer1.Interval = 500
Timer1.Enabled = True
End Sub

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

Private Sub Timer1_Timer()
Dim r As Integer, g As Integer, b As Integer
r = Int(Rnd * 256)
g = Int(Rnd * 256)
b = Int(Rnd * 256)
Text1.BackColor = RGB(r, g, b)
End Sub