请教 各位大侠 ,这是啥意思 ,俺 是初学者!!!
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