问题 单项选择题

下面程序运行时,单击窗体后,窗体上显示的结果是( )。
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。

实验题
单项选择题