（34）下列程序的功能是计算sum=1+(1+3)+(1+3+5)+……+(1+3+5+……+39)Private Sub Command34_Click()t=0m=1sum=0Dot=t+msum=sum+tm=Loop While m=39MsgBox "Sum="sumEnd Sub为保证程序正确完成上述功能，空白处应填入的语句是A）m+1B）m+2C）t+1D）t+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
相关考题：
（ 34 ）在窗体中有一个命令按钮（名称为 run34 ） ，对应的事件代码如下：Private Sub run34_Click( )sum=0For i=10 To 1 Step -2sum=sum+iNext iMsgBox sumEnd Sub运行以上事件，程序的输出结果是（ ） 。A ） 10B ） 30C ） 55D ）其他结果
在窗体上面一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Commandl_Click()t=0：m=1：Sum=0Dot=t+【8】Sum=Sum+【9】m=m+2Loop While 【10】Print SumEnd Sub该程序的功能是，单击命令按钮，则计算并输出以下表达式的值：1+(1+3)+(1+3+5)+…+(1+3+5+…+39) 请填空。
单击一次命令按钮后，下列程序的执行结果是( )。 Private Sub Commandl_Click() s=P(1)+P(2)+P(3)+P(4) Print s End Sub Public FunctionP(N As Integer) Static Sum Fori=1To N Sum=Sum+i Nexti P=Sum End FunctionA．15B．25C．35D．45
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x, s) Sum=Sum+s Next x Print Sum End Sub Private Sub subl(y, w) w=1 For i=1 To y w=w*i Next i End Sub 程序运行后。单击命令按钮，则窗体上显示的内容是______。A．5B．120C．153D．160
下列程序的功能是计算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
下列程序的功能是计算sum=1+(1+3)+(1+3+5)+……+(1+3+5+……+39)Private Sub Command34_Click()t=0m=1sum=0Dot=t+msum=sum+tm=_______Loop While m=39MsgBox“Sum”＆Sum ．End Sub为保证程序正确完成上述功能，空白处应填人的语句是A．m+1B．m+2C．t+1D．t+2
在窗体中有一个命令按钮(名称为run34)，对应的事件代码如下： Private Sub run 34_Click() sum=0 For i=1 To 10 Step 3 sum=sum+i Next i MsgBox sum End Sub 运行以上事件，程序的输出结果是( )。A．22B．30C．55D．25
有如下程序： Private Sub Form_Click() Dim i As Integer，Sum As Integer Sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then Sum=Sum+i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为A．12B．30C．24D．18
下列程序运行后,单击窗体,输出结果为( )。 Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 <> 0 Andi Mod 3 = 0 Then sum = sum ＋ i End If Next i Print sum End Sub A. 12B. 18C. 24D. 30
阅读下列程序： Function func(n As Integer)As Integer Sum = 0 For i = 1 To n Sum = Sum + (i + 1)* i Next i func = Sum End Function.Private Sub Command1_Click () Dim a As Integer a= 5 s = func (A)Print s End Sub 程序运行后，单击命令按钮，输出的结果为A．80B．60C．70D．15
下面程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数。请在‘空白处填入适当语句将程序补充完整。Private Sub Form_Click()sum＝0For i＝1 To 1000If______Thensum＝sum+iEnd IfNext iMsgBox sumEnd Sub
设有如下程序： Private Sub Command1_ Click() Dim sum As Double, x As Double sum=0 n=0 For i=1 To 3 x=n/i n=n+1 sum=sum+x Next i End Sub 该程序通过For循环来计算sum的值，sum值的精确结果是( )。A．1+1/2+2/3B．1+1/2+1/3+1C．1/2+2/3D．1/2+1/3
有如下程序： Private Sub Form_Click( ) Dim i As Integer, Sum As Integer Sum = 0 For i = 2 To 10 If i Mod 2=0 And i Mod 3＜＞0 Then Sum = Sum + i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为A．12B．30C．24D．18
在窗体上画一个名为Commandl的命令按钮，然后编写如下程序：Private Sub Conunandl_Click()Dim i As IntegerSum=0n=InputBox(”晰a number”)n=Val(n)For i=1 T0 nSum=【 】Nextiprint SumEnd SubFunction fun(t As Integer)As LongP=1For i=1 To tP=P*iNext i【 】End Function以上程序的功能是，计算1 1+2 1+3 1+…+n!，其中n从键盘输入，请填空。
下列程序的功能是求方程：x2+y2=1000的所有整数解。请在空白处填入适当的语句，使程序完成指定的功能。Private Sub Command 1_Click()Dim x as intege,y as integerFor x=-34 To 34For y=-34 To 34If______ThenDebug．print x，YEnd IfNext yNext xEnd Sub
运行下列程序，显示的结果是Private Sub Command34_Click()i=0Doi=i+1Loop While i10MsgBox iEnd SubA．0B．1C．10D．11
下列程序的功能是计算N＝2+(2+4)4-(24-44-6)4-…+(2+4+6+…4-40)的值。 PrivateSub Command34_Click t=0 m=0 sum=0 Do t==t+m sum==sum4-t m=__________ LoopWhile m41 MsgBox”um=”sumEndSub 空白处应该填写的语句是（ ）。A.t+2B.t+1C.m+2D.m+1
下列程序的功能是计算surn=1+{1+3)+(1+3+5)+…+(1+3+5+…+39) 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+1B.m+2C.t+1D.t+2
运行下列程序： Private Sub Form. Click() Sum=0 For i=1 To 100 If Mid(CStr(i)，1， 1)="1" Then Sum=Sum+1 End If Next i Print Sum End Sub 单击窗体后，在窗体上显示的结果是A．12B．13C．14D．15
下列程序的功能是计算N=2+(2+4)+(2+4+6)+……+(2+4+6+……+40)的值。Private Sub Command 34_Click( )t=0m=0sum =0Dot=t+msum = sum+tm=____Loop While m41MsgBox ＂Sum=＂ sumEnd Sub空白处应该填写的语句是A)m+2B)m+1C)t+2D)t+1
有如下程序:: Private Sub Form. Click() Dim i As Integer,sum As Integer sum=0 For i=2 To 10 If i Mod 2 ＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。A． 12B．30C．24D．18
以下能够正确计算1+2+3+…+10的程序是A．Private Sub Command1_Click() Sum=0 ForI=1 To 10 Sum=Sum+I Next I Print Sum End SubB．Private Sub Command1_Click() Sum=0，I=1 Do While I＜=10 Sum=Sum+I I=I+1 Print Sum End SubC．Private Sub Command1_Click() Sum=0： I=1 Do Sum=Sum+I I=I+1 Loop While I＜10 Print Sum End SubD．Private Sub Command1_Click() Sum=0： I=1 Do Sum=Sum+I I=I+1 Loop Until I＜10 Print Sum End Sub
下列程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数，请补充完整此程序：Private Sub Form_Click()sum＝0For i＝1 To 1000If______Thensum＝sum+IEnd IfNext IMsgBox sumEnd Sub
下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End SubA．3B．9C．5D．6
设有如下程序： Private Sub Form. Click（ ） Dim ary(1 To 5)As Integer Dim i As Integer Dim sum As Integer For i=1 To 5 ary(i)=i+l sum=sum+ary(i) Next i Print sum End Sub 程序运行后，单击窗体，则在窗体上显示的是（ ）。A.15B.16C.20D.25
下列程序运行后的输出结果是______。Private Sub f(k，s)s=1For j=1 To ks=s*jNextEnd SubPrivate Sub Command1_Click()Sum=0For i=1 To 3Call f(i，s)Sum=Sum+sNextPrint SumEnd Sub
试题34运行以下程序，显示的结果是（）Private Sub Command34_Click()i = 0Doi = i + 1Loop While i 10MsgBox iEnd SubA．0B．1C．10D．11