有如下程序： Private Sub Form_Click( ) Dim S As Integer，p As Integer p=1 For i=1 T0 4 For j=1 To i

admin2020-08-10 67

问题有如下程序：
Private Sub Form_Click(  )
Dim S As Integer，p As Integer
p=1
      For i=1 T0 4
         For j=1 To i
            s=s+j
      Next j
      p=p * s
Next i
Print p
End Sub
程序运行后，单击窗体，则输出结果是(       )。

选项 A、90
B、180
C、400
D、800

答案D

解析程序是一个双层For循环，外层循环变量的值决定内层For循环的次数。
当i=1时，内层循环1次，s=1，p=1；
当i=2时，内层循环2次，s=1+1+2=4，p=1*4=4；
当i=3时，内层循环3次，s=4+1+2+3=10，p=4*10=40；
当i=4时，内层循环4次，s=10+1+2+3+4=20，p=40*20=800。

转载请注明原文地址:https://www.kaotiyun.com/show/2qHp777K

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