Private Sub Command1_Click()
Dim a As String
a = Text1.Text
Select Case a
Case "蓝色"
Label1.BackColor = RGB(0, 0, 255)
Case "红色"
Label1.BackColor = RGB(255, 0, 0)
Case "绿色"
Label1.BackColor = RGB(0, 255, 0)
Case Else
Label1.BackColor = RGB(255, 255, 0)
End Select

End Sub

Private Sub Command1_Click()
Dim a As String
a = Text1.Text
If a = "你好" Then
MsgBox "你输入了“苹果”两个字！"
ElseIf a <> 你好 Then
MsgBox "对不起，你的输入不正确。"
End If
End Sub

Private Sub Command1_Click()
Dim a As String
a = Text1.Text
If a = "你好" Then
MsgBox "你输入了“苹果”两个字！"
Else
MsgBox "对不起，你的输入不正确。"
End If
End Sub

Private Sub Command1_Click()
Dim a As String
a = Text1.Text
If a = "斯大林" Then
MsgBox "恭喜你，答对了！"
ElseIf a = "丘吉尔" Then
MsgBox "恭喜你，答对了！"
ElseIf a = "罗斯福" Then
MsgBox "恭喜你，答对了！"
Else
MsgBox "很遗憾，你的回答不正确。"
End If
End Sub

Private Sub Command1_Click()
Dim birthday As String
brithday = InputBox("输入生日", "birthday", "1980-01-10")
MsgBox "你的生日是" & birthday
End Sub

Private Sub Command1_Click()
Dim 甲方, 乙方 As Double
甲方 = Rad
乙方 = Rad
If 甲方 > 乙方 Then
MsgBox "甲方方胜出！"
ElseIf 乙方 > 甲方 Then
MsgBox "乙方胜出！"
Else
MsgBox "平局"
End If
End Sub

Private Sub Command1_Click()
Form1.Text1.FontBold = True
End Sub

Private Sub Command2_Click()
Form1.Width = Form1.Width + 500
Form1.Height = Form1.Height + 500
End Sub

Private Sub Command3_Click()
Form1.Text1.FontItalic = True
End Sub

Private Sub Form_Click()
Form1.Print "点击鼠标窗口长宽将会加100"
Form1.Width = Form1.Width + 100
Form1.Height = Form1.Height + 100
End Sub


Private Sub Form_Load()
Form1.FontBold = True
Form1.FontItalic = True
Form1.FontUnderline = True
End Sub

Private Sub Command1_Click()
Dim a, b, result As Double
a = Text1.Text
b = Text2.Text
result = 0
If b <> 0 Then
result = a / b
Text3 = result
Else
MsgBox "除数不能为0!"
End If
End Sub