Private Sub Form_Load()
Dim user As String
user = InputBox("请输入用户名", "登陆")
Dim username(3)
username(0) = "xiaohua"
username(1) = "xiaoli"
username(2) = "xiaozhang"
username(3) = "xiaozhao"
Dim flag As Boolean
flag = False
Dim i As Integer
For i = 0 To 3
    If user = username(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 wellcom!"
End Sub

这是vb程序的代码 大概来说是判断输入的用户名于已有的是否相同
如果不同将提示“用户名错误，系统将自动关闭”，是作为登陆界面的
,登陆界面你见的多了吧
Private Sub Form_Load()‘窗体的load事件
Dim user As String’定义user是字符串类型
user = InputBox("请输入用户名", "登陆")
Dim username(3)‘定义数组
’赋初值
username(0) = "xiaohua"
username(1) = "xiaoli"
username(2) = "xiaozhang"
username(3) = "xiaozhao"

‘定义flag为布尔值 它只有两个值一个是true一个是false
Dim flag As Boolean
flag = False‘flag赋初值false
Dim i As Integer
’for循环判断用户名是否正确如果正确flag赋true值
For i = 0 To 3
    If user = username(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 wellcom!"
End Sub
这段代码应该有个相对应的窗体

Private Sub Picture1_Paint()
Picture1.Print "you are wellcom!"
End Sub
很感谢您的解答 ，那这段代码是怎么回事，如果判断用户名正确 ，那么这段代码就不执行了？？是这个意思 嘛？？有点想不通。

Private Sub Picture1_Paint()
Picture1.Print "you are wellcom!"
End Sub
这段代码就是用户名正确后执行的，用户名正确就会绘制“you are wellcom!”图片
用户名不正确就会提示("用户名错误，系统将自动关闭！")
你可以自己调一下这段代码就可以理解了
在窗体上建个picturebox控件，把代码复制到代码窗口去就行了


  If flag = False Then
    MsgBox ("用户名错误，系统将自动关闭！")
    End
这个end很重要 用户名错误就执行end，所以后面的
Private Sub Picture1_Paint()
Picture1.Print "you are wellcom!"
End Sub
就不能执行了
只有用户名正确才会出现
"you are wellcom!"
我表达能力有限不知道你明白了吗

for......next......end if  是什么意思 ，尤其是 next 后面的那个  i

上面那个明白了，还有就是，如果 要同样实现这一个效果，还有没有其它方式 。

for ...next ....是一个循环语句，原文为：for <变量> to step(终止值）...next [变量]
next [变量]中的变量可省略，表示从变量到终止值的循环，next 表示for循环结束。后面的if....可以看作为另一个
if判断语句

谢谢，各位大侠 的指点