题目内容
（请给出正确答案）
假定有如下的窗体事件过程:
Private Sub Form_Click()
a$="MicrosoftVisual Basic"
b$=Right(a$,5)
c$=Mid(a$,1,9)
MsgBox a$,34,b$,c$,5
End Sub
程序运行后,单击窗体,则在弹出的信息框的标题栏中显示的信息是
A．Microsoft Visual
B．Microsoft
C．Basic
D．5
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“假定有如下的窗体事件过程: Private Sub Form_Click（) a$="MicrosoftVisual Basic" b$=Right（a$”相关的问题
A.1和1
B.1．25和1
C.1．25和4
D.5和4
A.1和1m
B.1.25和1
C.1.25和4
D.5和4
Private Sub Form_Click（）
x = InputBox（"请输入一个整数"）
Print x + Text1.Text
End Sub
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为（）。
A．123
B．456
C．479
D．123456
A．任何窗体或标准模块
B．任何窗体或过程
C．Sub Main过程或其他任何模块
D．Sub Main过程或任何窗体
Private Sub Form_KeyPress（KeyAscii As Integer）
Dim ch As String
ch = Chr（KeyAscii）
KeyAscii = Asc（UCase（ch））
Print Chr（KeyAscii + 2）
End Sub
程序运行后，按键盘上的“A”键，则在窗体上显示的内容是（）。
A．A
B．B
C．C
D．D
Private Function fun（ByVal m As Integer）
If m Mod 2 = 0 Then
fun = 2
Else
fun = 1
End If
End Function
Private Sub Command1_Click（）
Dim i As Integer, s As Integer
s = 0
For i = 1 To 5
s = s + fun（i）
Next
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是（）。
A．6
B．7
C．8
D．9
Private Sub Command1_Click（）
Dim a1（4, 4）, a2（4, 4）
For i = 1 To 4
For j = 1 To 4
a1（i, j） = i + j
a2（i, j） = a1（i, j） + i + j
Next j
Next i
Print a1（3, 3）; a2（3, 3）
End Sub
程序运行后，单击命令按钮，在窗体上输出的是（）。
A．6 6
B．10 5
C．7 21
D．6 12
Option Base 1
Private Sub Form_Click（）
Dim arr, Sum
Sum = 0
arr = Array（1, 3, 5, 7, 9, 11, 13, 15, 17, 19）
For i = 1 To 10
If arr（i） / 3 = arr（i） \ 3 Then
Sum = Sum + arr（i）
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为（）。
A．25
B．26
C．27
D．28
Private Sub Command1_Click（）
Dim a（5） As String
For i = 1 To 5
a（i） = Chr（Asc（"A"） + （i - 1））
Next i
For Each b In a
Print b;
Next
End Sub
程序运行后，单击命令按钮，输出结果是（）。
A．ABCDE
B．1 2 3 4 5
C．abcde
D．出错信息
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
