下面程序运行时,单击窗体后,窗体上显示的结果是( )。 Private Sub Form_Click() Dim i As Intege,sum As Long Dimt As Long t=1:sum=0 For i=1To3 t=t*i sum=

admin2017-03-26  64

问题 下面程序运行时,单击窗体后,窗体上显示的结果是(    )。
Private Sub Form_Click()
Dim i As Intege,sum As Long
Dimt As Long
t=1:sum=0
For i=1To3
t=t*i
sum=sum+t
Nexti
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。
转载请注明原文地址:https://kaotiyun.com/show/fmGp777K
0

最新回复(0)