UC知道懂点vb 的进来帮帮我 在线等
来源：百度知道 编辑：UC知道 时间：2024/07/05 08:30:33
为什么打对的用户名 也弹出用户名错误的信息 请高手门告诉我错在哪
Private Sub Form_Load()
Dim abc As String
a = InputBox(请输入你的名字!)
Dim abcs(2) As String
abcs(0) = "li"
abcs(1) = "wang"
abcs(2) = "zhang"
Dim w As Boolean
w = False
Dim i As Integer
For i = 0 To 2
If abc = abcs(i) Then
w = True
End If
Next i
If w = False Then
MsgBox "用户名不对，退出。"
End If
End
End Sub
Private Sub Picture1_Paint()
Picture1.Print "你好" & abcs
End Sub
Private Sub Form_Load()
Dim abc As String
a = InputBox(请输入你的名字!)
Dim abcs(2) As String
abcs(0) = "li"
abcs(1) = "wang"
abcs(2) = "zhang"
Dim w As Boolean
w = False
Dim i As Integer
For i = 0 To 2
If abc = abcs(i) Then
w = True
End If
Next i
If w = False Then
MsgBox "用户名不对，退出。"
End If
End
End Sub
Private Sub Picture1_Paint()
Picture1.Print "你好" & abcs
End Sub
你的abc变量好像没有赋值，始终等于空字符串("")，所以在循环中与数组abcs作比较用不相等，所以w始终等于False。
你把原来的a = InputBox(请输入你的名字!) 改成abc = InputBox(请输入你的名字!) 应该就对了，你的变量a在程序中没有定义，建议编程时都加上Option Explicit防止未定义的变量出现（比如拼写错误）。
a = InputBox(请输入你的名字!) 改成abc = InputBox(请输入你的名字!)
加''号
楼上的正确