填空题
[说明] 这是一个用户名校验程序,如用户名正确,即输出欢迎字样,否则,弹出警告窗并直接退出程序。下面是实现上述功能的程序,请填空。“Option Explicit”此语句的作用:强制显示声明
Dim UserName (2) As String
Dim Flag As Boolean
{{U}} (1) {{/U}}
Private Sub Form _ Load( )
UserName (0) = "AA": UserName (1) = "BB": UserName(2) = "CC"
Flag = False
inputName = InputBox( “请输入名称:“,”身份确认”“,”)
Dim i As Integer
For i = 0 To False
If inputName = UserName(i) Then
{{U}}(2) {{/U}}
End If
Next i
If{{U}} (3) {{/U}}Then
MsgBox “用户身份确失败!退出应用”, vbOKOnly, “警告”
End
End If
End Sub
Private Sub Form_ Paint( )
{{U}}(4) {{/U}}
End Sub
1、
【正确答案】
1、Dim inputName As String
【答案解析】Flag = True
Flag = False
picShowMsg. Prin t “欢迎您!” + inputName