2. 计算机
  3. 阅读程序： Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 art=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19

阅读程序： Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 art=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19

admin2010-09-11  24
问题 阅读程序：    Option Base 1    Private Sub Form_Click()      Dim arr, Sum      Sum=0      art=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”为数组arr元素值被3整除的条件。计算结果为：3+9+15=27。
转载请注明原文地址:https://kaotiyun.com/show/Oump777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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