UC知道VB高手来看看我这代码哪里错了!
来源：百度知道 编辑：UC知道 时间：2024/09/20 09:37:48
Private Sub Command1_Click()
Dim QQWORDS(1) As String
QQWORDS(0) = "LIN"
QQWORDS(1) = "SHA"
Dim Q As Integer
For Q = (0) To (1)
Dim FLAG As Boolean
FLAG = False
If QQWORD = QQWORDS(Q) Then
FLAG = True
End If
Next Q
If FLAG = False Then
MsgBox "密码错误"
End
End If
End Sub
为什么我输入的密码对了还说我错???????请说说原因和修改,谢谢哦了
Dim QQWORDS(1) As String
QQWORDS(0) = "LIN"
QQWORDS(1) = "SHA"
Dim Q As Integer
For Q = (0) To (1)
Dim FLAG As Boolean
FLAG = False
If QQWORD = QQWORDS(Q) Then
FLAG = True
End If
Next Q
If FLAG = False Then
MsgBox "密码错误"
End
End If
End Sub
为什么我输入的密码对了还说我错???????请说说原因和修改,谢谢哦了
Private Sub Command1_Click()
Dim QQWORDS(1) As String
Dim FLAG(1) As Boolean '这一句提前
QQWORDS(0) = "LIN"
QQWORDS(1) = "SHA"
Dim Q As Integer
For Q = (0) To (1)
FLAG(Q) = False
If QQWORD = QQWORDS(Q) Then FLAG(Q) = True
Next Q
If FLAG(0)=False Or FLAG(0))=False Then '##标志
MsgBox "密码错误"
End
End If
End Sub
本程序设置了两个密码，QQWORDS(0)和QQWORDS(1)：
1、只要有一个密码错误，就会出现提示。
2、如果需要两个密码都错误时才出现提示，则把“##标志”句改成：If FLAG(0)=False And FLAG(0))=False Then 即可。
不知道你要做什么? If QQWORD = QQWORDS(Q) Then
里的QQWORD是哪来的?
Dim QQWORDS(1) As String改为Dim QQWORDS(0 to 1) As String，因为它与C语言不同，VB不是以0做起始，而C语言才是