版块 › Visual Basic › VB编程实例-根据条件弹出消息框

awerva 发表于 2018-4-25 15:51:40

VB编程实例-根据条件弹出消息框

本帖最后由 awerva 于 2018-4-25 16:09 编辑

Private Sub Command1_Click()
Dim a As String
a = Text1.Text
If a = "我爱你" Then
MsgBox "您输入了我爱你！"
ElseIf a <> "我爱你" Then
MsgBox "你输入的不是我爱你！"
End If
End Sub

awerva 发表于 2018-4-25 16:09:58

Private Sub Command1_Click()
Dim a As String
a = Text1.Text
If a = "我爱你" Then
MsgBox "您输入了我爱你！"
Else
MsgBox "你输入的不是我爱你！"
End If
End Sub

查看完整版本: VB编程实例-根据条件弹出消息框