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

admin2006-08-25  25

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

答案C

解析 分析题干,arr(i)/3=arr(i)\3是求出数组中能整除3的元素,而 Sum=Sum+arr(i)是将这些元素相加,也就是求3+9+15的值为27,所以选项C正确。
转载请注明原文地址:https://jikaoti.com/ti/lV80FFFM
0

最新回复(0)