niusouti.com
有如下程序：Option Base 1Private Sub Command1 Click（ ）Dim arr(10)arr=Array(10，35，28，90，54，68，72，90)For Eaeh a In arrIf a>50ThenSum=Sum+aEnd IfNext aEnd Sub运行上述程序时出现错误，错误之处是（ ）。A.数组定义语句不对，应改为Dim arrB.没有指明For循环的终值C.应在For语句之前增加Sum=0D.Next a应改为Next
题目
有如下程序：
Option Base 1
Private Sub Command1 Click（ ）
Dim arr(10)
arr=Array(10，35，28，90，54，68，72，90)
For Eaeh a In arr
If a>50Then
Sum=Sum+a
End If
Next a
End Sub
运行上述程序时出现错误，错误之处是（ ）。
A.数组定义语句不对，应改为Dim arr
B.没有指明For循环的终值
C.应在For语句之前增加Sum=0
D.Next a应改为Next
相似考题
更多“有如下程序:Option Base 1Private Sub Command1 Click( )Dim arr(10)arr=Array(10,35,28,90,54, ”相关问题
-
第1题：
阅读程序： Option Base 1 Private Sub Form. Click() Dim arr，Sum Sum= 0 arr=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．13
B．14
C．27
D．15
正确答案：C
解析：本题综合考查Array函数与For循环等相关知识。首先用Array函数为数组arr赋值10个元素数值。If语句表明当arr(i)为3的倍数解，就把该arr(i)加到变量Sum上，Sum的初始值为0。故本题的正确答案为：3+9+15，C项为正确答案。 -
第2题：
阅读程序： Option Base 1 Private Sub Form_Click( ) Dim arr，Sum Sum=0 arr=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．13
B．14
C．27
D．15
正确答案：C
解析：分析题干，arr(i)/3=arr(i)\3是求出数组中能整除3的元素，而 Sum=Sum+arr(i)是将这些元素相加，也就是求3+9+15的值为27，所以选项C正确。 -
第3题：
在窗体上添加一命令按钮,其名为Command1,然后编写代码如下。
private Sub Command1_Click()
Dim arr(5)As Integer,arr1(5)As Integer
n=3
For i=1 To 5
arr(i)=i
arr1(n)=2*n+i
Next
Print arr1(n);arr(n)
End Sub
程序的运行结果为
A．3 11
B．11 3
C．13 3
D．3 13
正确答案：B
解析：在给数组赋值时,如果每次都是赋给数组中同一个成员,那么后面的赋值将覆盖掉以前的值。 -
第4题：
下列程序的输出结果是______。
Private Sub Commandl_Click()
Dim alt(1 To 10)
Fori＝1 To 10
arr(i) ＝I
Next i
For Each i In arr()
arr(i) ＝arr(i) *2+1
Next i
MsgBox arr(7)
End Sub
正确答案：15
15 解析： 本题考查VBA中For Each...Next循环的知识。For Each...Next循环是一种特殊的循环，这种循环只能用在数组中，用来遍历数组中的每一个元素。本题中的第一个循环为数组的每个元素赋值，而第二个循环中更改了这些值。综合两个循环来看，实际上最后arr(i) 的值为2*i+1。 -
第5题：
在窗体上画一个文本框，然后编写如下程序： Option Base 1 Private Sub Form_Click() Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i-3 Next i Text1．Text：Str(Arr(6)+Arr(Arr(6)+Arr(10))) End Sub 程序运行后，单击窗体，在文本框中显示的内容是
A．1
B．3
C．6
D．10
正确答案：D
解析：在本题中，定义了一个一维数组Arr，并为其开辟了10个元素的空间，然后通过For循环为该数组的后5个元素赋值。不难看出，数组Arr后5个元素的值分别为3、4、5、6、7。最后一个语句是为文本框的Text属性赋值，这个值是Arr数组的两个元素之和，其中第一个元素是Arr(6)，即3；第二个元素的下标是数组Arr第六个元素(3)和第十个元素(7)的和，即Arr(3+7)=Arr(10)，而该元素的值为7。因此，Arr(6)+Arr(Arr(6)+Arr(10))=3+Arr(10)=3+7=10 -
第6题：
有如下程序： Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 arr=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arE(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
解析：本题考查的是数组赋值以及算术运算符“/”和“\”的区别。本程序段首先用Array函数给arr数组赋初值。“/”是浮点除法，执行标准除法操作，结果为浮点数。“\”为整数除法，整型整除运算，结果为整型值。本程序的功能是：找出arr数组中能被3整除的元素值，将其累加到sum中，然后输出。满足该条件的元素是3、9、15，和值为27。