awerva 发表于 2018-4-25 16:24:27
|
显示全部
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
|
|