数据库系统Access - 第1—9章练习题及答案 下载本文

Next i

For i = 1 To 3 k = k + p (i) * 2 Next i MsgBox k End Sub

A.33 B.28 C.37 D.35 43.有如下程序:

Dim a (3,3 ) As Integer For m = 1 To 3 For n = 1 To 3

a ( m , n) = ( m-1) * 3 + n Next n Next m

For m = 2 To 3 For n = 1 To 2 MsgBox a(m,n) Next n Next m

运行后消息框依次输出的结果是 。

A.2 5 3 6 B.2 3 5 6 C.4 7 5 8 D.4 5 7 8 44.有如下程序,运行后输出的是 。 Private Sub Command1_Click () Dim aj ( 10 ) For j = 6 To 10 Aj (j) = j * 2 Next j

MsgBox aj (1) + aj (j) End Sub

A.5 B.20 C.22 D.显示出错信息 45.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:

Private Sub Command_Click ( ) Dim x , y , z As Integer x = 5 : y = 7 : z = 0 Text1 = \

Call fun ( x , y , z ) Text1 = Str ( z ) End Sub

Sub fun( ByVal a As Integer , ByVal b As Integer, c As Integer ) C = a + b End Sub

程序运行后,如果单击命令按钮,则在文本框中显示的内容是 。 A.0 B.12 C.Str(z) D.没有显示

46.阅读程序:

Function F ( a As Integer ) b = 0 : Static c

b = b + 1 : c = c + 1 : F = a + b + c End Function

Private Sub Command1_Click ( ) Dim a As Integer a = 2

For i = 1 To 3 MsgBox F ( a ) Next i End Sub

运行上面的程序,单击命令按钮,运行后消息框依次输出结果为 。 A.4 4 4 B.4 5 6 C.4 6 8 D.4 7 9 47.有如下程序:

Private Function func ( ByVal a As Integer , ByVal b As Integer ) Func = a + b End Function

Private Sub Command1_Click ( ) Dim x As Integer , y As Integer Dim z As Integer , r As Integer x = 2 : y = 5 : z = 8

r = func ( func ( x , y ) , z ) MsgBox r End Sub

当在Command1按钮上单击,该程序的输出结果是 。 A.12 B.13 C.14 D.15 48.在窗体上画一个名称为Command1的命令按钮和3个名称为Label1、Label2、Label3的标签,然后编写如下程序段: Private x As Integer

Private Sub Command_Click()

Static y As Integer : Dim z As Integer n = 10 : z = n + z : y = y + z : x = x + z

Label1.Caption = x : Label2.Caption = y : Label3.Caption = z End Sub

运行程序,连续3次单击命令按钮后,则3个标签中显示的内容是 。 A.30 30 30 B.10 10 10 C.30 30 10 D.10 30 10

49.在窗体中添加了一个文本框和一个命令按钮(名称分别为tText和

bCommand),并编写了相应的事件过程。运行此窗体后,在文本框中输入一个字符,则命令按钮上的标题变为“计算机等级考试”。以下能实现上述操作的语句是 。

A.Caption="计算机等级考试" B.bCommand.Caption=计算机等级考试

C.Caption="计算机等级考试"

D.bCommand.Caption="计算机等级考试"

50.在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序: Public x As integer

Private Sub Command1_Click() x=10

Call s1 :Call s2 :MsgBox x End Sub

Private Sub s1() x=x+20 End Sub

Private Sub s2() Dim x As integer x=x+20 End Sub

窗体打开运行后,单击命令按钮,则消息框的输出结果为 。 A.10 B.30 C.40 D.50

参考答案

1. C 2.C 3.C 4.D 5.A 6.C 7.B 8.D 9. A 10.C 11.B 12.B 13.B 14.A 15.B 16.C 17.B 18.A 19.A 20.D 21.B 22.B 23.D 24.B 25.B 26.B 27.B 28.B 29.B 30.A 31.C 32.D 33.A 34.D 35.C 36.C 37.B 38.C 39.A 40.C 41.A 42.A 43.D 44.D 45.B 46.B 47.D 48.C

49.D 50.B