单选题有如下程序：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 Nextj p=p*s Next i Print PEnd Sub程序运行后，单击窗体，则输出结果是

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

【正确答案】 D

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