vb编程的问题!

来源：百度知道编辑：UC知道时间：2024/05/12 09:32:03

这个代码我不知道哪里错了!当输入用户名时弹出的对话框什么字都没有!!
还在这里希望能找到一个老师!我是才开始学VB的!!希望找个老鸟来教教!
我的邮箱是hjklm_chen123@sina.com

Private Sub Form_Load()
Dim username As String
username = InputBox("请输入用户名!")
Dim usernames(3) As String
usernames(0) = "gaoxin"
usernames(1) = "gaoxin1"
Dim flag As Boolean
flag = False
Dim i As Integer
For i = 0 To 3
If username = usernames(i) Then
flag = True
End If
Next i
If flag = False Then
MsgBox "用户解认失败,退出系统!"
End
End If
End Sub

Private Sub Picture1_Paint()
Picture1.Print "you are welcome"
End Sub

有字啊..

用户名不对就是这行代码了呀:
MsgBox "用户解认失败,退出系统!"

对话框上的字就是这个呀:
"用户解认失败,退出系统!"

帮你改了一下:

Private Sub Form_Load()
Dim username As String
username = InputBox("请输入用户名!")
Dim usernames(3) As String
usernames(0) = "gaoxin"
usernames(1) = "gaoxin1"
Dim flag As Boolean
flag = False
Dim i As Integer
For i = 0 To 1
If username = usernames(i) Then
flag = True
End If
Next i
If flag = False Then
MsgBox "用户解认失败,退出系统!"
End
End If
End Sub

是不是输入框没有显示输入内容？？如果这样的话你也输入．．．然后回车也可以的．．．

vb编程的问题 vb的编程问题 VB编程的问题 vB编程的问题 VB的编程问题 vb编程的问题! vb编程遇见的问题！ VB编程的小问题关于VB编程的问题 VB简单的编程问题！！！！！！！！！