单项选择题

下面程序段，运行后的结果是( )。
Private Sub Command1_Click()
Dim b%(1 To 4),i%,t#
For i=1 To 4
b(i)=i
Next
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
Tof=t
End Function

A) t=18
B) t=24
C) t=30
D) t=32
<上一题 目录 下一题>
热门 试题

单项选择题
有如下一个函数过程： Function Fun(a As Integer) Stcitic C b=0:b=b+1:c=c+1 Fu n=a+b+c End Function 在窗体上添加一个命令按钮，事件过程如下： Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print Fun(A)： Next End Sub 运行该程序，单击命令按钮，输出结果是( )。
A) 4 4 4
B) 4 5 6
C) 6 7 8
D) 4 7 9
单项选择题
在窗体中添加一个命令按钮，编写如下程序： Private Sub Sub1(p,m,n) p=p+1:m=m+1:n=n+1 Print sub1: ;p;m;n End Sub Private Sub Command1_Click() a1=1:b1=2:c1=3 Call Sub1(a),b1+3,c1) Print Main: ;a1;b1;c1 End Sub 程序运行后，输出结果为( )。
A) Sub: 2 6 4
Main:2 6 4
B)
Sub: 2 6 4
Main: 2 6 4
C)
Sub: 2 6 4
Main: 1 2 4
D)
Sub: 2 6 4
Main: 2 2 4
相关试题