题目内容
（请给出正确答案）
下面程序运行时，单击窗体后，窗体上显示的结果是()。 Private Sub Form_Click() Dim I As Integer Dim sum As Long sum=0 For I=10 To 16 If I Mod 3=0 OrI Mod 5=0 Then sum=sum+I End If Next I Print sum End Sub
A．10
B．12
C．37
D．22
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“下面程序运行时，单击窗体后，窗体上显示的结果是（)。Private Sub Form_Click（)Dim I As IntegerDim”相关的问题
Private Sub Form_Click(B )
Dim a(1 To 5)As Integer
a(1)= 2: a(2)= 3: a(3)= 1: a(4)= 5: a(5)= 4
n = 5
For i = 1 To n - 1
Min = i
For j = i + 1 To n
If a(j)< a(Min)Then Min = j
Next j
t = a(i): a(i)= a(Min): a(Min)= t
Next i
For i = 1 To n
Print a(i);
Next i
End Sub
A. 2 3 1 5 4
B. 1 2 3 4 5
C. 9 8 7 6 5
D. 5 5 5 5 5
A、Dim fm2 As New Form2 ShowDialog()
B、Form2.ShowDialog()
C、Form2.Show()
D、Dim fm2 As New Form2 fm2.Show()
E、Dim fm2 As New Form2 fm2.ShowDialog()
A．ABCE
B．ABCD
C．ABDB
D．ABFB
A、12
B、20
C、15
D、4
A、20
B、22
C、21
D、24
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
A、38
B、50
C、46
D、不确定
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
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
