2. 计算机
  3. 阅读程序： 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

阅读程序： 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  52
问题 阅读程序：    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://www.kaotiyun.com/show/VoQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)