VB问题：在窗体中有三个滚动条（名称分别为HScroll1，HScroll2，HScroll3），四个标签框（名称分别为 Labe

Answer 1

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Label1.Caption = "红"
Label2.Caption = "绿"
Label3.Caption = "蓝"
Label4.Caption = ""
HScroll1.Min = 0
HScroll1.Max = 255
HScroll2.Min = 0
HScroll2.Max = 255
HScroll3.Min = 0
HScroll3.Max = 255
Randomize
HScroll1.Value = Int(Rnd * 255)
HScroll2.Value = Int(Rnd * 255)
HScroll3.Value = Int(Rnd * 255)
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label4.Caption = "随机产生R=" & HScroll1.Value & "：G=" & HScroll2.Value & "：B=" & HScroll3.Value
End Sub

Private Sub HScroll1_Change()
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label4.Caption = "R=" & HScroll1.Value & "：G=" & HScroll2.Value & "：B=" & HScroll3.Value
End Sub

Private Sub HScroll2_Change()
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label4.Caption = "R=" & HScroll1.Value & "：G=" & HScroll2.Value & "：B=" & HScroll3.Value
End Sub

Private Sub HScroll3_Change()
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label4.Caption = "R=" & HScroll1.Value & "：G=" & HScroll2.Value & "：B=" & HScroll3.Value
End Sub