国家二级（ACCESS）笔试模拟试卷52

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

Private Sub Command1_Click()

Dim a(1 To 20)

Dim i

For i=l To 20

a(i)=i

Next i

For Each i In a()

a (i) =20

Next i

阅读下列程序。

Option Base 1

Private Sub Form. Click()

Dim x(3,3)

For j=l to 3

For k=l to 3

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

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

For k=1 to 3

Print x(j,k);

Next k

Next j

End Sub

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

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

Option Base 1

Private Sub swap (a() As Integer)

For I=1 to 10/2

t=a (I)

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

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) =1*2

Next I

Swap x ()

For I=1 to 10

Print x (I)

Next I

End Sub

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

A="1"

B="2"

A=Val (@A@+Val (@B@B=Val ("12")

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

(11)阅读下列程序:

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=l to 3

For k=1 to 3

Print a (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，运行后的输出结果是【 】。

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

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

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

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

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