这是一个用户名校验程序，如用户名正确，即输出欢迎字样，否则，弹出警告窗并直接退出程序。Dim Us

这是一个用户名校验程序，如用户名正确，即输出欢迎字样，否则，弹出警告窗并直接退出程序。

Dim UserName(2) As String, inputName As String

Dim Flag As Boolean ‘flag=true表示用户名正确;flag=false表示用户名不正确

Private Sub Form_Load()

Dim I As Integer

UserName(0) = "AA" : UserName(1) = "BB" : UserName(2) = "CC"‘共三个用户名

----1----

inputName = InputBox("请输入名称：", "身份确认", " ")

For I = 0 To 2

If ----2----Then

Flag = True

End If

Next I

If Flag =False Then

----3---- ("用户身份确认失败!退出应用", vbOKOnly, " 警告")

End

End If

End Sub

Private Sub Form_Paint()

picShowMsg.Print "欢迎您!" + inputName

End Sub