有如下程序: Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 arr=Array(1, 3, 5, 7, 9, 11, 13, 15,

admin2013-04-11  30

问题 有如下程序:    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。
转载请注明原文地址:https://kaotiyun.com/show/f9Qp777K
0

最新回复(0)