有如下程序: Private Sub Form.Click() Dim S As Integer,P As Integer P=1 For i=l To 4 Forj=1 To i S=S+j Nextj P=P*S Next i PrintP End S

admin2015-12-09  22

问题 有如下程序:
Private Sub Form.Click()
Dim S As Integer,P As Integer
P=1
For i=l To 4
Forj=1 To i
S=S+j
Nextj
P=P*S
Next i
PrintP
End Sub
程序运行后,单击窗体,则输出结果是

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

答案D

解析 本题是一个二重循环,而且内循环次数根据外循环的循环变量而定。内循环完成累加,内循环结束后将累加和乘到p中保存起来。在4次外循环中分别累乘的是1、4、10、20。
转载请注明原文地址:https://jikaoti.com/ti/vtJ0FFFM
0

最新回复(0)