题目内容
（请给出正确答案）
某窗体主体的Click事件过程如下，窗体运行后单击窗体主体，消息框中输出的结果是( )。
Private Sub主体_Click()
Dim i As Integer,a As Integer
a=1
For i=1 To 3
Select Case i
Case 1,3
a=a+1
Case 2,4
a=a+2
End Select
Next i
MsgBox a
End Sub
A．3 B．4 C．5 D．6
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“某窗体主体的Click事件过程如下，窗体运行后单击窗体主体，消息框中输出的结果是（)。 Private Sub主体_Clic”相关的问题
Private Sub Form_Click()
Dim k As Integer,n As Integer，m As Integer
n=10：m=1：k=1
Do While k＜=n
m=m*2
k=k+1
Loop
MsgBox m
End Sub
Private Sub Form_Click()
Dim k as Integer， n as Integer，m as Integer
n=10 ：m=1 : k=1
Do While k＜=n
m=m*2
k=k+1
Loop
MsgBox m
End Sub
Private Sub Form_Click()
Dim k As Integer ,n As Integer ,m As Integer
n=10:m=1:k=1
Do While k＜=n
m=m*2
k=k+1
Loop
MsgBox m
End Sub
.jpg)
注意：
程序中不要使用变量：文件必须存放在考生文件夹中，工程文件名为execise97.vbp，窗体文件名为execise97.frm。
Public Function f(x As Integer)As Integer
Dim y As Integer
x=20
y=2
f=x*y
End Function
Private Sub Command1_Click()
Dim y As Integer
StatiC x As Integer
x=10
y=5
y=f(x)
Debug.Print x;y
End Sub程序运行后，如果单击命令按钮，则在立即窗口上显示的内容是( )。
A．10 5 B．20 5 C．20 40 D．10 40
Private Sub a3()
Dim x(1 To 10)As Integer,a(1 To 100)As Integer
Dim P As Integer,j As Integer
For j=1 To 100
a(j)=______
P=a(j)Mod 10
If P=0 Then P=10
______
Next j
For j=1 To 10
Debug.Print x(j);
Next j
End Sub
A) 操作系统、语言翻译系统、数据库管理软件
B) 操作系统、应用软件、语言翻译系统、数据库管理软件
C) 系统软件和应用软件
D) 系统软件、应用软件、语言翻译系统、数据库管理软件
A) 显示器的分辨率 B) 显示器显示字符的最大列数和行数
C) 显示器屏幕的大小 D) 显示器的刷新率
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
