niusouti.com
在窗体上添加十个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()sum＝0For i＝3 To 7sum＝i+2Next iMsgBox sum+iEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是______。
题目
在窗体上添加十个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
sum＝0
For i＝3 To 7
sum＝i+2
Next i
MsgBox sum+i
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是______。
相似考题
参考答案和解析
17 解析：本题考查循环的知识。这个问题本来比较简单，只是具有一定的迷惑性。在循环内部为变量sum赋值，由于赋的值只和循环变量i有关，所以只有最后一次循环中为sum赋的值才有效，这个值会覆盖掉前面各次循环为sum赋的值；还有就是要注意，循环退出后循环变量必然处于不满足循环条件的状态，例如本题的循环退出后i的值应该为8。所以最终答案为9+8＝17。
更多“在窗体上添加十个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() sum=0 For i=3 ”相关问题
-
第1题：
在窗体上面一个名称为Commandl的命令按钮，然后编写如下程序： Option.Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1，2，3，4，5) Sum = 0 For i = 1 To 5 Sum=Sum+a(i) Next i x=Sum/5 For i=1 To 5 If a(i) ＞x Then Print a(i)； Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是
A．1 2
B．1 2 3
C．3 4 5
D．4 5
正确答案：D
解析：本题主要考查考生对程序代码的阅读理解能力。用Array函数为数组a(5)赋值，其元素分别为1、2、3、4、5。第一个For i循环把a(i)数组中的元素逐个加到变量Sum上，然后求出Sum浮点除5的结果(为3)，赋值给变量x。第二个Fori循环表示当a(i)大于3时，则用Print语句输出该元素。据此，正确答案为D。 -
第2题：
在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click（) For n = 1 To 20 If n Mod 3 ＜＞ 0 Then m = m + n 3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是（）。
A．15
B．18
C．21
D．24
C -
第3题：
在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click（) For n = 1 To 20 If n Mod 3 ＜＞ 0 Then m = m + n 3 Next n Form1.Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是（）。
A．15
B．18
C．21
D．24
C -
第4题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base1 Private Sub Command1_Click( ) Dim a As Variant a=Array(1，2，3，4，5) Sum=0 For i=1To 5 Sum=Sum+a(i) Next i x=Sum/5 For i=1 To 5 If a(i)>x Then Print a(i)； Next i End Sub程序运行后，单击命令按钮，在窗体上显示的内容是
A．1 2
B．1 2 3
C．3 4 5
D．4 5
正确答案：D
解析：此题中第一个For循环是将数组中所有元素相加并且将结果赋值给Sum，sum=15，而变量x=3，第二个循环是判断数组a(i)中各元素是否比3大，输出所有比3大的元素，因此选项D为正确答案。 -
第5题：
在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click（) Dim m（10) As Integer, n（10) As Integer i = 3 For t = 1 To 5 m（t) = t n（i) = 2 * i + t Next t Print n（i); m（i) End Sub 窗体运行后，单击命令按钮，显示结果为（）。
A．3 11
B．3 15
C．11 3
D．15 3
C