当前位置：首页 > Access数据库程序设计
2013年计算机等级考试二级Access练习19
(28)下列四种形式的循环设计中，循环次数最少的是
A)a = 5 : b = 8
Do
a = a + 1
Loop While a < b
B)a = 5 : b = 8
Do
a = a + 1
Loop Until a < b
C)a = 5 : b = 8
Do Until a < b
b = b + 1
Loop
D)a = 5 : b = 8
Do Until a > b
a = a + 1
Loop
(29)下列数据类型中，不属于VBA的是
A)长整型
B)布尔型 http://ks.examda.com
C)变体型
D)指针型
(30)在已建窗体中有一命令按钮(名为Command1)，该按钮的单击事件对应的VBA代码为：
Private Sub Command1_Click()
subT.Form.RecordSource = "select * from 雇员"
End Sub
单击该按钮实现的功能是
A)使用select命令查找"雇员"表中的所有记录
B)使用select命令查找并显示"雇员"表中的所有记录
C)将subT窗体的数据来源设置为一个字符串
D)将subT窗体的数据来源设置为"雇员"表
(31)假定有如下的Sub过程：
sub sfun(x As Single, y As Single)
t=x
x=t/y
y=t Mod y
End Sub
在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a as single
Dim b as single
a=5
b=4
sfun(a,b)
MsgBox a & chr(10)+chr(13) & b
End Sub
打开窗体运行后，单击命令按钮，消息框的两行输出内容分别为
A)1和1
B)1.25和1
C)1.25和4
D)5和4
(32)在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：
Private Sub Command1_Click()
Dim i, j, x
For i = 1 To 20 Step 2
x = 0
For j = i To 20 Step 3
x = x + 1
Next j
Next i
Text1.Value = Str(x)
End Sub
打开窗体运行后，单击命令按钮，文本框中显示的结果是
A)1
B)7
C)17
D)400
(33)在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
MsgBox x
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是
A)7
B)15
C)157
D)538
(34)如下程序段定义了学生成绩的记录类型：由学号、姓名和三门课程成绩(百分制)组成。
Type Stud
no As Integer
name As String
score (1 to 3) As Single
End Type
若对某个学生的各个数据项进行赋值，下列程序段中正确的是
A)Dim S As Stud
Stud.no = 1001
Stud.name = "舒宜"
Stud.score = 78,88,96
B)Dim S As Stud
S.no = 1001
S.name = "舒宜"
S.score = 78,88,96
C)Dim S As Stud
Stud.no = 1001
Stud.name = "舒宜"
Stud.score(1) = 78
Stud.score(2) = 88
Stud.score(3) = 96
D)Dim S As Stud
S.no = 1001
S.name = "舒宜"
S.score(1) = 78
S.score(2) = 88
S.score(3) = 96
(35)在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click()
s="ABBACDDCBA"
For I=6 To 2 Step -2
x=Mid(s,I,I)
y=Left(s,I)
z=Right(s,I)
z=x & y & z
Next I
MsgBox z
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是
A)AABAAB
B)ABBABA
C)BABBA
D)BBABBA
(28)C
【解析】Do…Loop Until和Do Until…Loop都是当条件值为假时，重复执行循环，直至条件值为真或执行到选择Exit Do语句，结束循环。Do…Loop While当条件结果为真时，执行循环体，并持续到条件结果为假或执行到选择Exit Do语句，结束循环。本题中选项A执行了3次，选项B执行了1次，选项C一次都没有执行，选项D执行了4次，因此本题中循环次数最少的为C选项。所以本题答案为C。
(29)D
【解析】VBA数据类型包括：整型、长整型、单精度型、双精度型、货币型、字符串型、布尔型、日期型、变体型。所以本题答案为D。
(30)D
【解析】可以使用RecordSource属性指定窗体的数据源。语法：表达式.RecordSource(表达式：一个代表Form对象的变量)。本题使用SQL语句"select * from 雇员"查找出"雇员"表中的所有数据作为subT窗体的数据来源。所以本题答案为D。
(31)B
【解析】此题中设定了一个sfun()函数，进行除法运算和求模运算，为命令按钮(名为Command1)编写事件，定义两变量a=5，b=4;调用此函数传递a，b的值给x，y进行运算，t=x=5,y=4;x=t/y=5/4=1.25(除法运算);y=t Mod y=5 mod 4=1(求模运算)。所以本题答案为B。
(32)A
【解析】事件代码中有两个for循环，第一个for循环"For i = 1 To 20 step 2"变量i的初值为1，终值为20，步长为2，循环条件符合，执行语句"x=0"，为变量x赋值为0，从这里可以看出，无论循环执行多少次，在执行循环体时，x的值都将还原为0，通过这一点可知，最后一次循环的结果即为整个程序的运行值。再来看整个程序，第二个For循环"For j = i To 20 step 3"，初值为i，终值为20，步长为3，那么可以知道，当i=1时，第二个循环执行7次;当i=3时，第二个循环执行6次，依次类推，当i=19时，第一个循环最后一次执行，那么把i=19代入到第二个循环中：当i=19时，j=19，x=0+1=1。此时j=j+3=19+3=22，22>20，循环条件不成立，循环结束。至此，第一个for循环和第二个for循环都运行结束，所以x=1，通过语句"Text1.Value = Str(x)"将字符1显示在窗体的文本框中。所以本题答案为A。
(33)B
【解析】此题中应用三重嵌套循环，循环嵌套的执行，当外层循环执行一次，内层就要执行所有的循环：第一个for语句对变量x赋值，x=4;第二个for语句对变量x赋值，x=3;第三个for语句对变量x赋值，x=x+6。i=1时，j=1，k执行其内部的两次循环，此时x赋值为3，当k=1时，x=x+6=3+6=9;k=2时，x=x+6=9+6=15。退出内循环到第二个for语句执行其剩余的循环，i=1，j=2时，k依旧执行其内部的两次循环，最后x还是等于15。i=1，j=3时，因为第三个for语句始终对x的赋值为15，所以运算结果x始终等于15。第二层循环完成后退回到第一层，执行其剩余的循环，步骤同上，最后x=15。所以本题答案为B。
(34)D
【解析】用户定义数据类型是使用Type语句定义的数据类型。用户定义的数据类型可以包含一个或多个任意数据类型的元素。用Dim语句可创建用户定义的数组和其他数据类型。用户定义类型变量的取值，可以指明变量名及分量名，两者之间用句点分隔。本题中选项A、C中变量名均用的是类型名，所以错误。"score(1 to 3) As Single"定义了3个单精度数构成的数组，数组元素为score(1)至score(3)。所以本题答案为D。
(35)D
【解析】Mid(字符表达式，数值表达式1，数值表达式2)：返回一个值，该值是从字符表达式最左端某个字符开始，截取到某个字符为止的若干字符。其中，数值表达式1的值是开始的字符位置，数值表达式2是终止的字符位置。Left(字符表达式，数值表达式)：返回一个值，该值是从字符表达式左侧第1个字符开始，截取的若干字符。其中，字符个数是数值表达式的值。Right(字符表达式，数值表达式)：返回一个值，该值是从字符表达式右侧第1个字符开始，截取的若干字符。其中，字符个数是数值表达式的值。For循环运行三次，最后一次循环结束后，x="BB"，y="AB"，z="BA"，所以z="BBABBA"。故本题答案选D。