Question

VB密码核对框(一个"确定'按钮,一个"文本框")

程序如下:
Private Sub Command1_Click()
Text1.SetFocus
If Text1.Text = "" Then
MsgBox "密码不能为空", 0 + 48 + 0, "密码对话框"
ElseIf Text1.Text = 1234 Then
MsgBox "密码正确", 0 + 64 + 0, "密码对话框"
Else
MsgBox "密码错误", 5 + 16 + 0, "密码对话框"
If vbRetry Then
Text1.Text = ""
Else
End
End If
End If
End Sub

请问上面的"Else 为什么运行不了呢???
End"

Answer 1

应该为：
要用msgbox函数，函数可以有返回值的
msgbox语句没有返回值

Else
a = MsgBox("密码错误", 5 + 16 + 0, "密码对话框")
If a = vbRetry Then
Text1.Text = ""
Else
End
End If

另外：

ElseIf Text1.Text = 1234 Then

改为

ElseIf Text1.Text = "1234" Then

少引号！

Answer 2

同意shuxiao的说法，不过前面再加个dim a as integer就更好了，因为msgbox函数用来返回一个integer嘛,不加也无所谓，不过加上明显的变量声明，可以提高程序的可读性以及机器的运行效率，算得上是一个很好的编程习惯哦。

给文本框设置text属性应该是字符串，shuxiao说你少了引号是正确的。

Answer 3

Private Sub Command1_Click()
Text1.SetFocus
If Text1.Text = "" Then
MsgBox "密码不能为空", 0 + 48 + 0, "密码对话框"
ElseIf Text1.Text = "1234" Then
MsgBox "密码正确", 0 + 64 + 0, "密码对话框"
Else
MsgBox "密码错误", 5 + 16 + 0, "密码对话框"
If vbRetry Then
Text1.Text = ""
Else
End
End If
End If
End Sub