懂VB编程的 进来

来源：百度知道 编辑：UC知道 时间：2024/06/16 17:34:39
Private Sub Command1_Click()
If Text1.Text = 〃〃 Then
MsgBox 〃请输入用户名!〃, vbOKOnly + vbCritical, 〃错误〃
Exit Sub
Else:
If Text1.Text = 〃软件世界〃 And Text2.Text = 〃12345〃 Then
MsgBox 〃你是合法用户, 欢迎进入!〃, vbOKOnly + vbInformation, 〃欢迎进入〃
Else:
MsgBox 〃用户名或密码错误!〃, vbOKOnly + vbCritical, 〃错误〃
Text1.Text = 〃〃
Text2.Text = 〃〃
End If
End If
End Sub

帮忙看下这段代码哪有问题?
不输入账户和密码的时候提示 实时错误 424
显示这一段有问题MsgBox 〃请输入用户名!〃, vbOKOnly + vbCritical, 〃错误〃
输入 账户和密码是 提示 实时错误 424
MsgBox 〃用户名或密码错误!〃, vbOKOnly + vbCritical, 〃错误〃
这段有问题

vb语句中 else后面没有:（冒号）的

语法没有错误,标点符号错了,引号必须是西文字符的引号(")

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入用户名!", vbOKOnly + vbCritical, "错误"
Exit Sub
Else:
If Text1.Text = "软件世界" And Text2.Text = "12345" Then
MsgBox "你是合法用户, 欢迎进入!", vbOKOnly + vbInformation, "欢迎进入"
Else:
MsgBox "用户名或密码错误!", vbOKOnly + vbCritical, "错误"
Text1.Text = ""
Text2.Text = ""
End If
End If
End Sub

把代码中的“〃”全部换成“"”就可以了。

else 的冒号可有可无

错在：代码中用了中文引号〃
应全部换为英文引号"

数据库连接问题。