UC知道VB 这段代码总回提示”else没有if“请问下是那里出错了？
来源：百度知道 编辑：UC知道 时间：2024/05/24 00:43:51
Private Sub Command1_Click()
If Text1.Text = "378292801" Then
Form2.Show: Form1.Hide '当输入123时点击确按钮显示form2，并隐藏form1
Else: If Text1 <> 378292801 Then MsgBox "密码错误，请重新输入", vbInformation, "提示"
Else: If Text1.Text = "qwertyuiopasdfghjklzxcvbnm,./;'[]/*-+=-" Then MsgBox "密码错误，请重新输入", vbInformation, "提示"
End If
End Sub
If Text1.Text = "378292801" Then
Form2.Show: Form1.Hide '当输入123时点击确按钮显示form2，并隐藏form1
Else: If Text1 <> 378292801 Then MsgBox "密码错误，请重新输入", vbInformation, "提示"
Else: If Text1.Text = "qwertyuiopasdfghjklzxcvbnm,./;'[]/*-+=-" Then MsgBox "密码错误，请重新输入", vbInformation, "提示"
End If
End Sub
Else: If
应该写成 else if
中间的:不要
无:
有两种解决方案。
第一种就是把Else：if改成Else if
第二种就是把第二个Else去掉，
一个Else必须对应一个If，你只有一个If,却写了两个Else，它当然要提示你else没有if
其实你就算一个Else不用，程序也会正常运行，只不过看起来结构就不太规范