阅读程序： Option Base 1 Private Sub Form Click() Dim arr，Sum Sum= 0 arr=Array(1，3，5，7，9，11，13，15，17，19) Fo

admin2013-04-11 31

问题阅读程序： 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

答案4

解析本题综合考查Array函数与For循环等相关知识。首先用Array函数为数组arr赋值10个元素数值。If语句表明当arr(i)为3的倍数解，就把该arr(i)加到变量Sum上，Sum的初始值为0。故本题的正确答案为：3+9+15，C项为正确答案。

转载请注明原文地址:https://jikaoti.com/ti/LT60FFFM

本试题收录于：二级VB题库NCRE全国计算机二级分类