这个就是正确的:
If Text1.Text = "" Then
MsgBox "请输入内容"
End If
If Len(Text1.Text) > 0 And Text1.Text <> "正确内容" Then
MsgBox "请输入一个正确内容"
End If
If Text1.Text = "正确内容" Then
MsgBox "通过"
End If
在给你分析一下你的错误在哪,
If Text1.Text = "" Then
MsgBox "请输入内容"
Else (在这里,Else的意思是只要Text1.Text不为空,就执行下面的语句,所以包括你输入“正确内容”,都会执行下面的语句)
MsgBox "请输入一个正确内容"
End If
If Text1.Text = "正确内容" Then
MsgBox "通过"
End If
你所说的正确内容是什么?比如数字?文字?没有标准可没办法呀!
正确的应该这样写:
If Text1.Text = "" Then
MsgBox "请输入内容"
Else if Text1.Text = "正确内容" Then
MsgBox "通过"
else
MsgBox "请输入一个正确内容"
end If
树叶当作衣
是正确的