UC知道帮我看下哪里编错了vb
来源：百度知道 编辑：UC知道 时间：2024/05/25 13:08:17
Private Sub Form_Click()
Dim User As String: Dim Passer As String
User = InputBox("输入用户名", "提示")
Select Case User
Case yuxinwei
Passer = InputBox("输入密码", "提示")
If Passer = "123" Then
Shell "D:\qq\QQ"
Unload Me
End If
Case Else
MsgBox ("密码错误")
End Select
End Sub
自己解决了
"yuxinwei"
哈哈
还是谢谢你啊
Dim User As String: Dim Passer As String
User = InputBox("输入用户名", "提示")
Select Case User
Case yuxinwei
Passer = InputBox("输入密码", "提示")
If Passer = "123" Then
Shell "D:\qq\QQ"
Unload Me
End If
Case Else
MsgBox ("密码错误")
End Select
End Sub
自己解决了
"yuxinwei"
哈哈
还是谢谢你啊
Shell "D:\qq\QQ" '这个不是全称.后面要加EXE
Unload Me '这应该使用END
MsgBox ("密码错误") '前面是SELECT用户名呀,应该提示用户名错误!!
修改后的:
======================================
Private Sub Form_Click()
Dim User As String: Dim Passer As String
User = InputBox("输入用户名", "提示")
Select Case User
Case yuxinwei
Passer = InputBox("输入密码", "提示")
If Passer = "123" Then
Shell "D:\qq\QQ.exe"
End
End If
Case Else
MsgBox "用户名错误!!"
End Select
End Sub