在计划网络图中，节点i的最迟时间T_L（i）

阅读程序： Sub p( b () As Integer)For i =1To 4 b(i) = 2(iNext i End Sub Private Sub Command1_Click()Dim a (1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 call p (a) For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为。

下面程序的输出结果是【 】。

Private Sub Form_Click()

i=0

Do Until 0

i=i+1

if i＞10 then Exit Do

Loop

Print i

End Sub

下面程序段的运行结果是【 】。

Option Base 1

Private Sub swap(a()As InteSer)

For I=1 to 10\2

t=a(i)

a(i)=a(10-1+1)

a(10-1+1)=t

Next1

End Sub

Private Sub Form_Click()

Dim x(10)As Integer

For I=1 to 10

x(i)=I*2

Next1

Swap x()

For1=1 to 10

Print x (i)

Next I

End Sub

有如下事件过程：

Private Sub Form. Active ( )

Dim Score (1 to 3) As Integer

Dim i As Integer

Dim t As Variant

Fori=3 To 1 step-1

Score (i) = 2 * i

Next

For Each t In Score

Print t

Next

End Sub

程序运行后窗体上显示的值为【 】。

以下能够正确计算n!的程序是

A．Private Sub Command1 Click() n=5：x=1 Do x=x * I I=I + 1 Loop While I ＜ n Print x End Sub

B．Private Sub Command1_Click() n=5：X=1：I=1 Do X=X*I I=I + 1 Loop While I ＜n Print x End Sub

C．Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While I＜=n Print X End Sub

D．Private Sub Command1_Click() n=5：X=1：I=1 Do x=x * I I=I + 1 Loop While I＞n Print X End Sub

下面程序段的运行结果是【 】。

Option Base 1

Private Sub Swap (a() As Integ

For I=1 to 10\2

t=a(I)

a(I)=a(10-I+1)

a(10-I+1)=t

Next I

End Sub

Private Sub Form_Click()

Dim x(10) As Integer

For I=1 to 10

x(I)=I*2

Next I

Swap x()

For I=1 to 10

Print x(I)

Next I

End Sub

以下能够正确计算n!的程序是

A．Private Sub Command1_Chck( ) n=5：x=1 Do x=x*i i=i+1 Loop While i＜n Print x End Sub

B．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜n Print x End Sub

C．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜=n Print x End Sub

D．Private Sub Command1_Click( ) n=5：x=1：i=l Dox=x*i i=i+1 Loop While i＞n Print x End Sub

程序执行结果s的值是【 】.

Private Sub Command l-Click ()

I =0

Do

S= I +S

I = I + l

Loop Until I ＞=4

End Sub

以下程序的运行结果是( ) #define MAX 10 int a[MAX]，i; main() { printf("\n");sub1()；sub3(A) ,sub2()，sub3(A) ； } sub2() { int a[MAX]，i，max； max=5； for(i=0；i＜max；i++)a[i]＝i； } sub1() {for(i=0;i＜MAX；i++)a[i]＝i+i; } sub3(int a[]) { int i; for(i=0;i＜MAX，i++)printf("%d"，a[i])； printf("\n")； }

A．0 2 4 6 8 10 12 14 16 18 0 1 2 3 4

B．0 1 2 3 4 0 2 4 6 8 10 12 14 16 18

C．0 1 2 3 4 5 6 7 8 9 0 1 2 3 4

D．0 2 4 6 8 10 12 14 16 18 0 2 4 6 8 10 12 14 16 18

下面程序段，运行后的结果是 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．t=18

B．t=24

C．t=30

D．t=32