itgle.com
下列程序的功能是计算PrivateSub Command34_clickt=0m=1sum=0Dot=t+msum==stum+tm=__________LoopWhile m<=39MsgBox’Sum=”&sumEnd Sub为保证程序正确完成上述功能，空白处应填入的语句是（ ）。A.m+1B.m+2C.t+1D.t+2
题目
下列程序的功能是计算
PrivateSub Command34_click
t=0
m=1
sum=0
Do
t=t+m
sum==stum+tm=__________
LoopWhile m<=39
MsgBox’Sum=”&sum
End Sub
为保证程序正确完成上述功能，空白处应填入的语句是（ ）。
A.m+1
B.m+2
C.t+1
D.t+2
相似考题
参考答案和解析
观察要计算的式子，可以得出每次循环的步长是2，t是每次生成下一个子式的变量，增 加量由m变量来完成。
更多“下列程序的功能是计算PrivateSub Command34_clickt=0m=1sum=0Dot=t＋msum==stum＋tm=__________Loo ”相关问题
-
第1题：
下列程序的功能是计算N=2+(2+4)+(2+4+6)+……+(2+4+6+……+40)的值。
Private Sub Command 34_Click( )
t=0
m=0
sum =0
Do
t=t+m
sum = sum+t
m=____
Loop While m<41
MsgBox ＂Sum=＂& sum
End Sub
空白处应该填写的语句是
A)m+2
B)m+1
C)t+2
D)t+1
正确答案：C
【答案】：C
【知识点】：VBA程序
【解析】：此程序的功能是对2到40间的偶数递增式累加，每次相加的偶数个数在增多。变量t的作用是存放不断增加的偶数和，变量sum存放总和。因为这些加数均是偶数，累加变量m应该每次增加2，故答案为C。 -
第2题：
（34）下列程序的功能是计算sum=1+(1+3)+(1+3+5)+……+(1+3+5+……+39)
Private Sub Command34_Click()
t=0
m=1
sum=0
Do
t=t+m
sum=sum+t
m=
Loop While m<=39
MsgBox "Sum="&sum
End Sub
为保证程序正确完成上述功能，空白处应填入的语句是
A）m+1
B）m+2
C）t+1
D）t+2
正确答案：B
-
第3题：
下列程序的输出结果为 i=1 sum=0 while i＜=5: sum += i i += 2 print（sum)
A -
第4题：
试题10
下列程序段的功能是求1到100的累加和。请在空白处填入适当的语句，使程序完成指定的功能。
Dim s As Single ， m As Single
s=0
m=1
do while ____【10】___
s=s+m
m=m+1
Loop
正确答案：
试题10分析
题目的要求是求1到100的累加，s用来存累加和，m是累加项，条件是不超过100。
试题10答案
m<=100 -
第5题：
13、下列程序的输出结果为 i=1 sum=0 while i＜=5: sum += i i += 2 print（sum)
55