(利用VB)三种颜色选择不同百分比配出另一种颜色并显示出来.

text1.backcolor=rgb(r1,r2,r3)
其中r1r2r3分别取自三个combox

Dim R As Double
Dim G As Double
Dim B As Double
Private Sub Combo1_Click() '红色选择
Dim i As Integer
i = Combo1.ListIndex
R = (Combo1.List(i) * 2.55)
End Sub
Private Sub Combo2_Click() '绿色选择
Dim i As Integer
i = Combo2.ListIndex
G = (Combo2.List(i) * 2.55)
End Sub
Private Sub Combo3_Click() '兰色选择
Dim i As Integer
i = Combo3.ListIndex
B = (Combo3.List(i) * 2.55)
End Sub

Private Sub Command1_Click()
Form1.Cls
Print "R=" & CStr(R)
Print "G=" & CStr(G)
Print "B=" & CStr(B)
Text1.BackColor = RGB(R, G, B)
End Sub

Private Sub Form_Load()
For i = 10 To 1 Step -1
Combo1.AddItem i * 10
Combo2.AddItem i * 10
Combo3.AddItem i * 10
Next i
R = Val(Combo1.Text) * 2.55
G = Val(Combo2.Text) * 2.55
B = Val(Combo3.Text) * 2.55