已知序列{17,18,60,40,7,32,73,65,85}，采用冒泡排序法对该序列作降序排序时，第4趟的结果是【 】。

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

Private Sub Command1_Click()

Dim a(1 To 20)

Dim i

For i=1 To 20

a(i)=i

Next i

For Each i In a()

a(i)=20

Next i

Print a(2)

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

阅读下列程序。

Option Base 1

Private Sub Form. _Click()

Dim x(3,3)

For j=1 to 3

For k=l to 3

If j=k then x(j,k)=1

If j＜＞k then x(j,k)=k

Next k

Next i

Call fun(x())

End Sub

Private Sub fun(x())

For j=1 to 3

For k=1 to 3

Print x(j,k)；

Next k

Next j

End Sub

运行程序时，输出结果为【 】。

阅读下面程序。

Private Function a(load As Integer) As Single

If load ＜ 20 then

money=load / 2

else

money=20+load

end if

a=money

End Function

Private Sub Form. Click()

Dim load As Integer，fee As Single

Load=InputBox("请输入一个数：")

Fee=a(load)

Print fee

End Sub

输入20，运行后的输出结果是【 】。

阅读下列程序。

Option Base 1

Private Sub Form CliCk()

Dim x(3,3)

For j=1 to 3

For k=1 to 3

If j=k then x(j,k)=1

If j＜＞ k then x(j,k)=3

Next k

Next j

Call fun(x())

End Sub

Private Sub fun(a())

For j=1 to 3

For k=1 to 3

Print a (j,k)；

Next k

Next j

End Sub

运行程序时，输出的结果是【 】。

调整活动窗口大小的宏操作是【 】。

通过宏打开某个数据表的宏命令是【 】。

下列程序的运行结果为【 】。

 A="1"

 B="2"

 A=Val(A) +Val(B)

 B=Val("12")

 If A＜＞B Then Print A-B Else Print B-A

若a=12,b=14,c=0，则表达式“((y=(a＞b)?a:b)?y:c)?y:c”的值为【 】。

【 】规定数据的输入模式，具有控制数据输入功能。