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

D.Me.Name =\

23.定义了三维数组A(5,5,5),则该数组的元素个数为 。 A.15 B.25 C.125 D.216 24.假定有以下循环结构 。 Do Until 条件 循环体 Loop

则正确的叙述是

A.如果“条件”的值为false,则一次循环体也不执行 B.如果“条件”的值为false,则至少执行一次循环体 C.如果“条件”的值不为false,则至少执行一次循环体 D.不论“条件”的值是否为true,至少要执行一次循环体 25.下列程序段的执行结果为 。 X = 2 : Y = 1

If X * Y < 1 Then Y = Y – 1 Else Y = -1 MsgBox Y – X > 0

A.True B.False C.-1 D.1 26.以下程序段:

Private Sub Command1_Click()

a = InputBox ( \请输入\请输入\MsgBox a + b End Sub

运行时输入3和4,输出结果为 。

A.7 B.34 C.3 + 4 D.出错 27.在窗体上创建两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程 。 Private Sub Command1_Click() Dim x As Integer,n As Integer x = 0 : n = 0 Do While x <50

x = (x + 2) * (x + 3) : n = n + 1 Loop

Text1 = Str (n) : Text2 = Str (x) End Sub

程序运行后,单击命令按钮,在两个文本框中显示的值分别是 。 A.1和0 B.2和72 C.3和50 D.4和168 28.以下程序段运行后,消息框的输出结果是 。 a = sqr (3) : b = sqr (2) : c = a > b Msgbox c + 2

A. -1 B.1 C.2 D.出错 29.程序段:

D=#2004-8-1# : MM=Month(D) MM的返回值是 。

A.2004 B.8 C.1 D.2004-8-1 30.程序段: x=0

For i=1 to 10 Step 2 x = x+i : i = i*2 Next i

当循环结束后,变量i的值为 。 A.22 B.10 C.11 D.16 31.有如下程序:

Private Sub Form_Click( )

a$ = \等级考试\海洋卫星\For j = 1 To 6 Step 2

p$ = p$ & Mid$ ( a$, 6-j, 2 ) & Mid$ ( b$, j, 2 ) If Len (p$) = 6 Then Exit For Next j MsgBox p$ End Sub

运行时输出的结果是 。

A.海洋考 B.考试海 C.海洋考试卫星 D.考试海洋等级卫星

32.假定有以下函数过程:

Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S)

s1=UCase(Mid(s,i,1))+sl Next i Fun=sl

End Function

则Fun (\的输出结果为 。

A.abcdefg B.ABCDEFG C.gfedcba D.GFEDCBA

33.在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程: Private Sub Command_Click() s = 0

For i = 1 to 15 x = 2 * i – 1

if x Mod 3 = 0 Then s = s+1 Next i

Label1.Caption = s End Sub

单击命令按钮后,Label1上显示 。 A.5 B.15 C.16 D.14

34.在程序中添加一个命令按钮,并编写如下程序:

Private Sub Command1_Click ( ) x = \z = x + y : zz = Val (z) MsgBox zz End Sub

程序运行后,单击命令按钮, 输出结果为 。

A.12.34 B.56.78 C.69.12 D.12.3456 35. Mid(\返回的值是 。

A.“abc” B.“abcd” C.“def” D.“cdef” 36. 运行下列程序后,单击命令按钮后输出的图案是 。 Private Sub Command1_Click ( ) a =\

Mid ( a, 2, 4 ) =\MsgBox a End Sub

A.AAA B.aaAAA C.aAAAaa D.aaaAAA 37.下面过程运行之后,则变量J的值为 。 Private Sub Fun() Dim J As Integer J=5 Do J=J+2

Loop While J>10 End Sub

A.5 B.7 C.9 D.11

38.下面Main过程运行之后,则变量J的值为 。 Private Sub MainSub() Dim J As Integer J=5

Call GetData(J) End Sub

Private Sub GetData(ByRef f As Integer) f=f*2+Sgn(-1) End Sub

A. 5 B.7 C. 9 D.10

39.窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click () x = 0

Do Until x = -1

a = InputBox (“请输入A的值”) : a = Val (a) b = InputBox (“请输入B的值”) : b = Val (b) x = InputBox (“请输入x的值”) : x = Val (x) a = a + b + x Loop

MsgBox a End Sub

程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1,则输出结果为 。

A.2 B.3 C.14 D.15 40. 阅读下面的程序段: For i = 1 to 3 For j = 1 to I For k = j to 3 a = a + 1 Next k Next j Next I

执行上面的三重循环后,a的值为 。 A.3 B.9 C.14 D.21

41.在Command1_Click事件程序的功能是:按顺序读入10名学生4门课程的成绩,计算出每位学生的平均分并输出,程序如下: Dim n As Integer , k As integer

Dim score As Single , sum As Single , ave As Single Sum = 0.0

For n = 1 To 10 For k = 1 To 4

score = val(InputBox (“请输入一门课的成绩”)) : sum = sum + score Next k

ave = sum / 4

MsgBox n : MsgBox ave Next n

上述程序运行后结果不正确,调试中发现有一条语句出现在程序中的位置不正确。这条语句是 。

A.sum = 0.0 B.sum = sum + score C.ave = sum / 4 D.MsgBox n :MsgBox ave

42.以下程序的输出结果是 。 Private Sub Command1_Click () Dim a (10), p (3) As Integer k = 5

For i = 1 To 10 a (i) = i Next i

For i = 1 to 3 p (i) = a ( i * i )