填空题 [说明] 这是一个用户名校验程序,如用户名正确,即输出欢迎字样,否则,弹出警告窗并直接退出程序。下面是实现上述功能的程序,请填空。“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