计算机二级
以下能够正确计算1+2+3+…+10的程序是A．Private sub Command1_Click( ) sum=0 For 1=1 To 10 Sum=sum+1， Next I Print Sum End SubB．Private sub Command1_Click( ) Sum=0,I=1 Do While l＜=10 Sum=Sum+1 I=I+1 Print Sum End SubC．Private Sub command1_click( ) Sum=0：I=1 Do Sum=Sum+1 I
题目
以下能够正确计算1+2+3+…+10的程序是
A．Private sub Command1_Click( ) sum=0 For 1=1 To 10 Sum=sum+1， Next I Print Sum End Sub
B．Private sub Command1_Click( ) Sum=0,I=1 Do While l＜=10 Sum=Sum+1 I=I+1 Print Sum End Sub
C．Private Sub command1_click( ) Sum=0：I=1 Do Sum=Sum+1 I=I+1 Loop While I＜10 Print Sum End Sub
D．Private Sub command1_Click( ) Sum=0：I=1 Do Sum=Sum+1 l=I+1 Loop Until I＜10 Print Sum End Sub
相似问题和答案
第1题：
设有如下程序： Private Sub Command1_Click() Dim sum As Double, k As Double sum=0 n=0 For i=1 To 5 k=n/i n=n+1 sum=sum+k Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是______。
A．1+1/2+2/3+3/4+4/5
B．1+1/2+2/3+3/4
C．1/2+2/3+3/4+4/5
D．1+1/2+1/3+1/4+1/5
解析：此题关键是变量n的初值问题。因为n的初值为0，所以在第一次循环时“n/i”的计算结果为0，从第二次循环开始，n的变化值是从1至4。
第2题：
下列程序的功能是计算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
第3题：
窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。
Private Sub Form_Load（）
For i=1 To 100
If i Mod 7 =0 Then
________
End If
Next
End Sub
Private Sub Command1_Click（）
Sum = 0
For i = 0 To ________
Sum = Sum + ________
Next
Text1.Text = Sum
End Sub
list1.additem i list1.listcount-1 list1.list(i)
第4题：
阅读下列程序： 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．80
B．60
C．70
D．15
解析：本题调用一个Function过程func，该过程只有一个参数，类型为整型，返回值也为整型。过程的调用十分简单，关键是要搞清楚过程func的功能。从For-Next循环可以看出，该过程的功能是：1×2+2×3+3×4+…+(n+1)×n。在调用过程时，实参a的值为5，即上式中的n=5。因此返回的值为：1×2+2×3+3×4+4×5+5×6=70。
第5题：
以下程序的运行结果是()。main(){inti=1,sum=0;while(i10)sum=sum+1;i++;printf(“i=%d,sum=%d“,i,sum);}
A、i=10,sum=9
B、i=9,sum=9
C、i=2,sum=1
D、运行出现错误
第6题：
在窗体上画一个名称为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．5
B．120
C．153
D．160
解析：由于参数y、w是ByRef的参数，称为“引用”，所以在过程Subl中改变的值是带回到调用的地方的，因此Sum结果是5次Subl计算结果的和，即sum=(1+2+6+24+120)=153。本题答案为153。
第7题：
以下能够正确计算1+2+3+…+10的程序是( )
A.PrivateSubCommand1_Click()
Sum=0ForC=1To10
Sum=Sum+1
NextC
PrintSum
EndSub
B.PrivateSubCommand1_Click()
Sum=0,C=1DoWhileC<=10
Sum=Sum+1
C=C+1
Loop
PrintSum
EndSub
C.PrivateSubCommand1_Click()
Sum=0;C=1Do
Sum=Sum+1C=C+1
Loop
WhileC>10
PrintSum
EndSub
D.PrivateSubCommand1_Click()
Sum=0;C=1Do
Sum=Sum+1
C=C+1
Loop
WhileC<10
PrintSum
EndSub