Option ExplicitDim username(3) As String '变量数组UserName(3)存储四个用户名DIm flag As Boolean '变量Flag用于判定用户身份是否合法Dim inputname As string '变是InputName用于存储用户录入的用户名Private Sub Form_Load()username(1) = "lImIng"username(2) = "wangfang" username(3) = "zhangsan" username(0) = "xuhua"Flag=FalseInputname = InputBox("请输入用户名称", "用户身份确认", "") Dim i As Integer For I = 0 To 3 If Inputname = username(i) Then flag = True End IfNextIf flag = False ThenMsgBox "用户身份确认失败！退出应用", vbOKOnly, "警告"ExIt SubEnd IfEnd SubPrivate Sub Picture1_Paint() PictUre1.Print "欢迎你！" + Iputname + "先生"
标签：vb,flag
版权声明：文章由 去回答 整理收集，来源于互联网或者用户投稿，如有侵权，请联系我们，我们会立即处理。如转载请保留本文链接：https://www.quhuida.com/article/316842.html
