单项选择题

下面程序段，运行后的结果是（）。　Private Sub Commandl_Click( ) 　　Dim b%(1 To 4)，i%，t# 　　For i=1 To 4 　　　b(i)=i 　　Next i 　　t=Tof(b( ) ) 　　Print"t="；t，　End Sub 　Function Tof(a() As Integer) 　　Dim t#，i% 　　t=1 　　For i=2 To UBound(a) 　　　　　　t=t * a(i) 　　　　Next i 　　　　Tof=t 　　End Function

A．RunSQL
B．RunApp
C．Requery
D．Quit

<上一题目录下一题>

热门试题

填空题

填空题

下面程序段，运行后的结果是（ ）。 Private Sub Commandl_Click( ) Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i)=i Next i t=Tof(b( ) ) Print"t="；t， End Sub Function Tof(a() As Integer) Dim t#，i% t=1 For i=2 To UBound(a) t=t * a(i) Next i Tof=t End Function