活动（i，j）的时间为tij，总时差为R（i，j），点i及点j的最早开始时刻为TE（i）和TE（j），最迟结束时间为TL（i）和TL（j），下列正确的关系式是（）A、TLF（i，j）=TL（j）B、TLF（i，j）=TL（j）-tijC、TES（i，j）=TE（i）-tijD、R（i，j）=TLF（i，j）-TES（i，j）

下面程序的输出结果是( )。 #include"stdio.h" int sub(int m) { static a=4; a+=m; return a; } void main() { int i=2,j=1,k; k=sub(i); k=sub(j); printf("%d",k); }

A．6

B．7

C．8

D．9

在窗体上画一个名称为CoilTlilandl的命令按钮，然后编写如下事件过程： Private Sub command1 Click() Dim m As Integer， i As Integer， x(3)As Integer For i=0 To 3：x(i)=i：Next i For i = 1 To 2： Call sub1(x，i)：Next i For i = 0 To 3： Print x(i)；： Next i End Sub Private Sub sub1(a()As Integer，k As Integer) Dim i As Integer Do a(k)=a(k)+a(k+1) j = j + 1 Loop While j ＜ 2 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．0 3 7 5

B．0 1 2 3

C．3 2 4 5

D．0 5 8 3

Private Sub Commandl Click（）

Dim i As Integer, j As Integer

Dim a （10,10）As Integer

For i=1 To 3

For j= i To 3

a（i,j）=（i-1）*3+j

Print a （i,j）;

Next j

Print

Next i

End Sub

程序运行后，单击命令按钮，窗体上显示的是（ ）。

阅读如下程序： Option Base 1 Private Sub Form Click() Dim Arr(4，4)As Integer For i=1 To 4 For j=1 To 4 Arr(i，j)=(i-1)*2+j Next j Next i For i=3 To 4 For j=3 To 4 Print Arr(j，i)； Next j Print Next i End Sub 程序运行后，单击窗体，输出的结果为

A．5 7 6 8

B．6 8 7 9

C．7 9 8 10

D．8 10 8 11

若有如下程序： float sub(int a，int b) { return(a*b)； } main() {int i=1，j=2，k=3； printf("%4.0f\n"，sub((int)sub(k+j，j)，k+i))； } 则程序运行后的输出结果是( )。

A．40

B．32

C．16

D．编译出错

阅读程序： Option Base 1 Dim arr() As Integer Private Sub Form. Click() Dim i As Integer，i As Integer ReDim arr(3，2) For i=1 To 3 For j=1 To 2 arr(i，j)=i*2+j Next j Next i ReDim arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为

A．21

B．13

C．8

D．25

【程序说明】 计算下列算式的值。a，Ai为正整数，从键盘输入。其小∑Ai＝1+2…+ Ai，Ai!＝1 *2*3*Ai(i＝1，2… a)。

【程序】

SET TAIK OFF

CLEAR

INPUT“M＝”TO M

STORE 0 TO S1，S2

FOR I=1 TO M

(8)

DO SUB1

DO SUB2

ENDFOR

? ” 所求算式的值为：“+ALLTRIM(STR(S1/S2，15，3))

SET TALK ON

PROCEDURE SUB1

(9)

FOR R＝1 TO A

K＝K+R

ENDFOR

(10)

RETURN

PROCEDURE SUB2

(11)

FOR P＝1 TO A

T=T*P

ENDFOR

(12)

RETURN

(8)

A．INPUT“A＝”TO A

B．INPUT“I=”TO I

C．INPUT“R=”TO STR(R)

D．INPUT“K＝”TOK

下列程序的功能是：输入l0个整数。‘Private sub Command2_Click Dim i，j，k，temp，arr(11)As Integer Dimresult As String For k=1T0 10 arr(k)=Val(InputBox( “请输入第”&k&”个数：”，”数据输入窗口”)) Next k i=1 J=10 Do Temp=arr(i) arr(i)=arr(j) arr(j)=tempi=i+1 j=__________LoopWhileresule=””For k=1 To 10 result=result&arr(k)&Chr(13)Nextk MsgBoxresult End Sub 横线处应填写的内容是（ ）。

A.J-i i<j

B.j+1 i<j

C.j+1 i>j

D.J-1 i>j

有如下事件过程，单击命令按钮扣，输出结果是 Private Sub Command1 Click( ) Dim b% (1 To4) ,j%, t# For j=1 To 4 b(j) =j Next j t=Tax(b( ) ) Print "t="; t, End Sub Function Tax (a( ) As Integer) Dim t#, i% t=1 For i=2 To UBound (A)t=t * a(i) Next i Tax=t End Function

A．t=18

B．t=24

C．t=30

D．t=32

下列程序用于输出一个主对角线上元素值为“*”，其他元素值为“”的5×5阶的方阵，试将程序补充完整。

Private Sub Command1_Click()

Dim x(5, 5)

For i = 1 To 5

For j = 1 To 5

If ______Then

x(i, j) = '*'

Else

______

End If

Print ______

Next j

Print

Next i

End Sub

设关系模式R＜U,F＞，其中U{H,I,J,K,L}，若F={H→IJ,J→K,IJK→L,L→H,L→K)，则F的最小函数依赖集Fmin={(54)}，关系模式R的候选关键字是(55)。

A．H→I,H→J,J→K,IJK→L,L→H

B．H→I,H→J,J→K,IJ→L,L→H

C．H→I,H→J,J→K,IJ→L,J→K

D．H→I,J→K,IJ→L,L→H,L→K

窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1 Click（ ） Dim arr(5)As Integer ． For k=1 To 5 art(k)=k Next k prog art（ ） For k=1 T0 5 Print art(k)； Next k End Sub Sub prog(a（ ）As Integer) n=UBound(a) For i=n To 2 step-1 if a(j)<a(j十1)Then t=a(j)：a(1)=a(j+1)；a(j+1)=t End If Next j Next i End Sub 程序运行时，单击命令按钮后显示的是（ ）。

A.12345

B.54321

C.01234

D.43210