执行如下程序段后,intsum的值为【】。 Private Sub Command1_Click() sum=0 For i=1 To 18 Step 2 For j=2 To 6 If(i Mod j)0 Then sum=sum+j

admin2010-11-20 35

问题执行如下程序段后,intsum的值为【】。
Private Sub Command1_Click()
sum=0
For i=1 To 18 Step 2
For j=2 To 6
If(i Mod j)<>0 Then sum=sum+j
Next
Next
Print sum
End Sub

选项

答案161

解析单循环次数r=int((终值-初值+步长)/步长),嵌套循环次数是各层循环次数的乘积。该段程序的循环次数为9×5=45次),当i不能被j整除时,j的值相加。该段程序中只有以下条件不成立,即3/3、5/5、9/3、15/3、15/5,所以计算结果为9×（2+3+4+5+6)-(3+5+3+3+5)=161。

转载请注明原文地址:https://jikaoti.com/ti/PRg0FFFM

本试题收录于：二级VB题库NCRE全国计算机二级分类