单选题
有如下程序: 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。
提交答案
关闭