Dim a As String, R, G, B As Double, c As Integer
Private Sub Command1_Click()
a = InputBox("请输入颜色值,格式为:R,G,B", "输入颜色")
c = InStr(1, a, ",")
R = Mid(a, 1, c - 1)
a = Mid(a, c + 1, Len(a) - c)
c = InStr(1, a, ",")
G = Mid(a, 1, c - 1)
B = Mid(a, c + 1, Len(a) - c)
If R > 255 Or G > 255 Or B > 255 Or R < 0 Or G < 0 Or B < 0 Then
MsgBox "R,G,B的值在[0-255]之间"
Else
Label1。
ForeColor = RGB(R, G, B)
End If
End Sub。
答：结构化语句描述程序设计语言是用结构化的描述语句来描述程序的一种程序设计语言。它是一种类似于高级语言的程序设计语言。在大中型的可编程序控制器系统中，常采用结构化语...详情>>
