下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click() Dim i As Integer Dim sum As Long Dim t As Long t

admin2012-09-07 28

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

转载请注明原文地址:https://jikaoti.com/ti/xiO0FFFM

本试题收录于：二级VB题库NCRE全国计算机二级分类