题目内容
（请给出正确答案）
运行下列程序：
Private Sub Form_Click()
Dim sum As Double, i As Integer
For i = 1 To 20
If i Mod 5 = 0 Then
sum = sum + i
End If
Next i
Print sum
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.50
B.100
C.4
D.5050
答案
A
如果结果不匹配，请 联系老师 获取答案
更多“运行下列程序：Private Sub Form_Click（…”相关的问题
阅读程序： Function F(a As Integer) b=0 Static c b=b+1 c=c+1 F=a+b+c End Function Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print F(A)Next i End Sub 运行上面的程序，单击命令按钮，输出结果为 ______。
A．4 4 4
B．4 5 6
C．4 6 8
D．4 7 9
阅读下列程序并写出程序运行结果。
Private Sub Form_Click()
Dim A(1 To 3) As String
Dim c As Integer
Dim j As Integer
A(1) = "4"
A(2) = "8"
A(3) = "12"
c = 1
For j = 1 To 3
c = c + Val(A(j))
Next j
Print c
End Sub
写出程序运行时单击窗体后，窗体Form1上的结果。
下列程序运行后，在窗体上打印的结果是【 】。 Private Sub test(a， b，c) a = a + 1： b = b + 2：C = C + 3 End Sub Private Sub Command1 Click() x = 1：v = 2：z = 3 Call test(x，y + 3， (z)) Print "Main:"；x；y；z End Sub
阅读下列程序并写出程序运行结果。
Private Sub Command1_Click()
x = 0
Do While x ＜ 60
x = (x + 3) * (x + 4)
n = n + 1
Loop
Text1.Text = Str(n)
Text2.Text = Str(x)
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
写出程序运行后，文件框Text3的结果。
有下列程序，运行后变量x1、y1和z1的结果分别是【 】、【 】和【 】。 Private Sub fun1(s，m，n) s = m + 1 m = n + 2 n = s + 3 End Sub Private Sub form. Click() Dim x1， y1 x1 = 1 ：y1 = 1 ：z1 = 1 Call fun1(x1，y1 + 1，(z1)) Debug．Print x1； y1； z1 End Sub
运行下列程序： Dim t As Integer Private Sub Form_Click() t = 2 x=Val(InputBox("输入一个整数5")) Print funl(x); t End Sub Private Function fun1(y) If y＞0 Then fun1 = 1： t=10 Else If y=0 Then fun1 = 0： t=20 Else fun1 = -1： t=30 End If End Function 从键盘为变量x输入数据5，输出的结果是【 】。
试题11
下列程序的功能是求算式：1-1/2+1/3-1/4+……前30项之和。请在空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command0_Click()
Dim i As Single ， s As Single，f As Single
s=0 ：f=1
For i= 1 To 30
s=s+f / i
f=___【11】__
Next i
Debug.Print “1-1/2+1/3-1/4+……=”；s
End Sub
阅读下列程序并写出程序运行结果。
Public Sub change1(ByVal x As Integer, ByVal y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Public Sub change2(x As Integer, y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 22: b = 33
change1 a, b
Form1.Print "A1="; a, "B1="; b
a = 22: b = 33
change2 a, b
Form1.Print "A2="; a, "B2="; b
End Sub
写出程序运行时，单击窗体Form1上的输出结果。
