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

admin2009-03-15 27

问题执行如下程序段后，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((终值-初值+步K)/步长)，嵌套循环次数是各层循环次数的乘积。该段程序的循环次数为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/hIq0FFFM

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