UC知道vb高手来帮我看看
来源：百度知道 编辑：UC知道 时间：2024/05/04 14:51:14
Private Sub Form_Load()
Dim a As String
a = InputBox("请输入你的用户名")
Dim b(2) As String
b(0) = kk
b(1) = yk
b(2) = lp
Dim i As Integer, flag As Boolean
flag = False
For i = 0 To 2
If a = b(i) Then
flag = True
End If
Next i
If flag = True Then
Picture1.Print "you are welcome"
Else
MsgBox "你不是合法用户"
End If
End Sub
为什么 我输入数组里面的字符串 还是运行的
msgbox？
Dim a As String
a = InputBox("请输入你的用户名")
Dim b(2) As String
b(0) = kk
b(1) = yk
b(2) = lp
Dim i As Integer, flag As Boolean
flag = False
For i = 0 To 2
If a = b(i) Then
flag = True
End If
Next i
If flag = True Then
Picture1.Print "you are welcome"
Else
MsgBox "你不是合法用户"
End If
End Sub
为什么 我输入数组里面的字符串 还是运行的
msgbox？
a = trim(InputBox("请输入你的用户名"))'去掉空格
Dim b(2) As String
b(0) = kk ‘这是变量 还是字符呀 字符要“”
b(1) = yk '变量的话 他是空的 执行msgbox
b(2) = lp
Dim i As Integer, flag As Boolean
flag = False
For i = 0 To 2
If trim(a) = trim(b(i)) Then
flag = True
End If
Private Sub Form_Load()
Dim a As String
a = trim(InputBox("请输入你的用户名"))
Dim b(2) As String
b(0) = "kk"
b(1) = "yk"
b(2) = "lp"
Dim i As Integer, flag As Boolean
flag = False
For i = 0 To 2
If a = b(i) Then
flag = True
End If
Next i
If flag = True Then
Picture1.Print "you are welcome"
Else
MsgBox "你不是合法用户"
End If
End Sub
复制到你的计算机就OK啦。