Question

使用VB编写程序实现,输入1时,窗体背景颜色为红色,输入2时,窗体背景颜色为绿色,输

Answer 1

dim ch%
ch=inputbox("请输入")
select case ch
case 1
BackColor = RGB(255, 0, 0) '红色
case 2
BackColor = RGB(0, 255, 0) '绿色
csae 3
BackColor = RGB(0, 0, 255) '蓝色
end select

Answer 2

Private Sub Text1_Change()
If Text1.Text = "1" Then
Form1.BackColor = &HFF&
ElseIf Text1.Text = "2" Then
Form1.BackColor = &HFF00&
Else
MsgBox "错误"
End If
End Sub