2. 计算机
  3. 阅读程序： Option Base 1 Private Sub Form_Click( ) Dim arr Sum Sum=0

阅读程序： Option Base 1 Private Sub Form_Click( ) Dim arr Sum Sum=0

admin2009-02-13  16
问题 阅读程序：             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+art(i)                   End If               Next i               Print Sum        End Sub    程序运行后，单击窗体，输出结果为
选项 A、13
B、14
C、27
D、15
答案4
解析 首先用Array函数为数组arr赋值10个元素数值。If语句表明当 arr(i)为3的倍数时，就把该arr(i)加到变量Sum上，Sum的初始值为0。故本题的正确答案为：3+9+15，C项为正确答案。
转载请注明原文地址:https://kaotiyun.com/show/NO2p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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