阅读下面程序

Private Function a (load As Integer)As Single

If loud＜20 then

money=lnad/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(loa@D@Print fee

End Sub

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

设a=6，则执行x=IIf(a＞5,-1,0)后，x的值为【 】。

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

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

阅读下列程序

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)=k

Next k

Next j

Call fun(x())

End Sub

Private Sub fun(x())

For j=1 to 3

Fork-1 to 3

Print x(j,k)

Next k

Next j

End Sub

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

阅读下面程序

Private Function a (load As Integer)As Single

If loud＜20 then

money=lnad/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(loa@D@Print fee

End Sub

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

执行下列程序，输入框中显示的默认字符串为【 】；

Pirate Sub Command 1_Click()

InputBox"ok"，"输入参数"，Format("&H12")

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

可以使用【 】键添加断点。

Access字段名长度最多为【 】个字符。