有如下程序: Private Sub Form_Click() Dim s As Integer,p As Integer p=1 For i=1 To 4 For j=1 To i s=s+j Ne

admin2019-08-21  22

问题 有如下程序:
    Private Sub Form_Click()
    Dim s As Integer,p As Integer
    p=1
    For i=1 To 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://jikaoti.com/ti/YsN0FFFM
0

随机试题
最新回复(0)