itgle.com
以下能够正确计算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
相似考题
参考答案和解析
解析：A选项进行10次循环，分别将1至10累加给Sum，故正确。选项B缺少Loop关键词，否则也是正确的。选项C与D由于受条件“Iclo'’限制，Do循环只能进行一次。
更多“以下能够正确计算1＋2＋3＋…＋10的程序是A.Private sub Command1_Click( ) sum=0 For 1=1 To 10 Sum= ”相关问题
-
第1题：
下列程序的功能是计算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
-
第2题：
以下程序的运行结果是()。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、运行出现错误
参考答案：D
-
第3题：
阅读下列程序： 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
正确答案：C
解析：本题调用一个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。 -
第4题：
设有如下程序 Private Sub Command1_Click( ． Dim sum As Double, x As Double sum = 0 n = 0 For i=1 To 5 x = n / i n = n + 1 sum = sum + x Next i End Sub 该程序通过For循环来计算一个表达式的值，这个表达式是
A.1+1/2+2/3+3/4+4/5
B.1+1/2+1/3+1/4+1/5
C.1/2+2/3+3/4+4/5
D.1/2+1/3+1/4+1/5
正确答案：C
当i=1时，sum=0+0/1;当i=2时，sum=0+0/1+1/2;当i=3时，sum=0+0/1+1/2+2/3;当i=4时，sum=0+0/1+1/2+2/3+3/4;当i=5时，sum=0+0/1+1/2+2/3+3/4+4/5，即For循环是用来计算表达式"1/2+2/3+3/4+4/5"的。所以本题答案为C。 -
第5题：
在窗体中有一个命令按钮(名称为run34)，对应的事件代码如下： Private Sub run34_Click() Sum=0 For i=10 To 1 Step -2 sum＝sum+i Next i MsgBox sum End Sub运行以上事件，程序的输出结果是______。
A．10
B．30
C．55
D．其他结果
正确答案：B
解析：事件代码中“For i=10 To 1 Step -2”表示循环变量i的初值为10，终值为1，步长为-2，所以：
第一轮循环结果：i=10，sum=0+10=10；
第二轮循环结果：i=10-2=8，sum=10+8=18；
第三轮循环结果：i=8-2=6，sum=18+6=24；
第四轮循环结果：i=6-2=4，sum=24+4=28
第五轮循环结果：i=4-2=2，sum=28+2=30。 -
第6题：
在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(4)As Integer, x As Integer, sum As Integer n = 4: sum = 0 a (1) = 1 For k = 0 To n - 1 For i = 1 To k + 1 x = k + 2 - i a(x)= a(x)+ a(x - 1) If x ＜ n - k Then Exit For sum = sum + a(x) Next i Next k Print sum End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A．5
B．6
C．8
D．11
正确答案：D
解析：上述程序在双层循环内有一个判断条件，分析其计算过程时比较麻烦，读者要仔细分析。变量x的计算过程为：x=1、2、3、2、1、4、3、2、1，表达式n-k的计算过程为：n-k=4、3、2、2、2、1、1、1、1。其中有14、23、21这些条件成立时跳出内部循环，其他内循环都将数组元素值相加起来，即sum=1+2+1+3+3+1=11。 -
第7题：
设有如下程序： Private Sub Command1_Click() Dim sum As Double，x As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是 ______。
A．1+1/2+2/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
正确答案：C
解析：本题考查循环语句，其过程如下：
i=1时，x=0/1=0，n=0+1=1，sum=0+0；
i=2时，x=1/2，n=1+1=2，sum=0+1/2；
i=3时，x=2/3，n=2+1=3，sum=0+1/2+2/3；
i=4时，x=3/4，n=3+1=4，sum=0+1/2+2/3+3/4；
i=5时，x=4/5，n=4+1=5，sum=0+1/2+2/3+3/4+4/5。 -
第8题：
有如下程序： Option Base 1 Private Sub Form. Click() Dim arr,Sum Sum=0 alt=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。
A． 25
B．26
C．27
D．28
正确答案：C
解析：Option Base 1表示数组的下标是从1开始的。本题中先定义arr=Array(1,3,5,7,9,11,13,15,17,19)，即a(1)=1,a(2)=3,a(3)=5,a(4)=7,a(5)=9,a(6)=11,a(7)=13,a(8)=15,a(9)-17,a(10)=19，而在循环语句中就是要求把能被3整除的数加起来，即4(2)+a(5)+a(8)=3+9+15=27。 -
第9题：
在窗体中有一个命令按钮(名称为run1)，对应的事件代码如下： Private Sub rum_Click() suln=0 For i=10 To 1 Step-2 sum=Sum+i Next i MsgBox sum End Sub 运行以上事件，程序的输出结果是( )。
A．10
B．30
C．55
D．其他结果
正确答案：B
解析： 本题考查的是VBA编程基础、循环结构。事件代码中“For i=10 To 1 Step -2”表示循环变量i的初值为10，终值为1，步长为-2，那么：第一轮循环结果：i=10，Sum=0+10=10；第二轮循环结果：i-10-2=8，Sum=10+8=18；第三轮循环结果：i=8-2=6，sum=18+6=24；第四轮循环结果：i=6-2=4，Sum=24+4=28；第五轮循环结果：i=4-2=2，sum=28+2=30。 -
第10题：
在窗体上画一个命令按钮，名称为Command1。然后编写如下事件过程： Private Sub Command1_Click() x=11 Sum=0 For i=1 To x n=Iif(i＞5, 1, 2) Sum=Sum+n Next i Print Sum End Sub 运行后的输出结果是______。
A．16
B．11
C．5
D．2
正确答案：A
解析：Iif(条件，表达式1，表达式2)根据条件返回表达式1或表达式2的值。当循环变量I=1～5时，变量n=2，当i=6～11时，变量n=1，所以变量Sum的计算过程为Sum=2+2+2+2+2+1+1+1+1+1+1=16。 -
第11题：
（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
-
第12题：
已经int i；int sum=0，要求求1加到10的和，能完成此操作的程序段正确的是（）。
- A、for（i=1；i<10；i++）sum+=i；
- B、for（i=1；i<11；i++）sum=i；
- C、for（i=1；i<=10；i++）sum=sum+i；
- D、for（i=0；i<=20；i++）sum+=i；
正确答案:C -
第13题：
以下能够正确计算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