问题
单项选择题
下面程序运行时，单击窗体后，窗体上显示的结果是( )。
Private Sub Form Click()
Dim i As Integer
Dim sum As Long
Dim t As Long
t=1:sum=0
For i=1 To 3
t=t*i
sam=sum+t
Next i
Print sum
End Sub
A．3
B．9
C．5
D．6
答案
参考答案：B
解析： 本题考查累加算法。题目中sum为求和项，初值为0，t为每一项的值，变化规律为后一项是前一项的i倍，i的变化为从1到3，由于t的初值为1，因此求和为1*1+1*2+2*3。