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

admin2009-02-13  23

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

最新回复(0)