单选题有如下程序：
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

【答案解析】[解析] 本题是一个二重循环，而且内循环次数根据外循环的循环变量而定。内循环完成累加，内循环结束后将累加和乘到p中保存起来。在4次外循环中分别累乘的是1、4、10、20。