发布时间 : 星期三 文章数据库系统Access - 第1—9章练习题及答案更新完毕开始阅读45b2c8053968011ca30091be
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 )