2013年9月计算机等考二级Access模拟试题及答案(3)

　　(19)下列逻辑表达式中，能正确表示条件"x和y都是奇数"的是

　　A)x Mod 2=1 Or y Mod 2=1

　　B)x Mod 2=0 Or y Mod 2=0

　　C)x Mod 2=1 And y Mod 2=1

　　D)x Mod 2=0 And y Mod 2=0

　　(20)在窗体中添加了一个文本框和一个命令按钮(名称分别为tText和bCommand)，并编写了相应的事件过程。运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为"计算机等级考试"。以下能实现上述操作的事件过程是

　　A)Private Sub bCommand_Click()

　　Caption="计算机等级考试"

　　End Sub

　　B)Private Sub tText_Click()

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

　　End Sub

　　C)Private Sub bCommand_Change()

　　Caption="计算机等级考试"

　　End Sub

　　D)Private Sub tText_Change()

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

　　End Sub

　　(21)从字符串s中的第2个字符开始获得4个字符的子字符串函数是

　　A)Mid$(s,2,4)

　　B)Left$(s,2,4)

　　C)Right$(s,4)

　　D)Left$(s,4)

　　(22)某窗体中有一命令按钮，在"窗体视图"中单击此命令按钮，运行另一个应用程序。如果通过调用宏对象完成此功能，则需要执行的宏操作是

　　A)RunApp

　　B)RunCode

　　C)RunMacro

　　D)RunSQL

　　(23)在VBA中，如果没有显式声明或用符号来定义变量的数据类型，变量的默认数据类型为

　　A)Boolean

　　B)Int

　　C)String

　　D)Variant

　　(24)假设某数据库已建有宏对象"宏1"，"宏1"中只有一个宏操作SetValue，其中第一个参数项目"[Label0].[Caption]"，第二个参数表达式为"[Text0]"。窗体"fmTest"中有一个标签Label0和一个文本框Text0，现设置控件Text0的"更新后"事件为运行"宏1"，则结果是

　　A)将文本框清空

　　B)将标签清空

　　C)将文本框中的内容复制给标签的标题，使二者显示相同内容

　　D)将标签的标题复制到文本框，使二者显示相同内容

　　(25)要显示格式为"页码/总页数"的页码，应当设置文本框控件的控件来源属性为

　　A)Page/Page

　　B)=Page/Pages

　　C)Page&"/"&Pages

　　D)=Page&"/"&Pages

　　(26)VBA中不能进行错误处理的语句结构是

　　A)On Error Then 标号

　　B)On Error Goto 标号

　　C)On Error Resume Next

　　D)On Error Goto 0

　　(27)执行语句：MsgBox "AAAA",vbOKCancel+vbQuestion,"BBBB"之后，弹出的信息框

　　A)标题为"BBBB"、框内提示符为"惊叹号"、提示内容为"AAAA"

　　B)标题为"AAAA"、框内提示符为"惊叹号"、提示内容为"BBBB"

　　C)标题为"BBBB"、框内提示符为"问号"、提示内容为"AAAA"

　　D)标题为"AAAA"、框内提示符为"问号"、提示内容为"BBBB"

　　(28)已知程序段：

　　s = 0

　　For i = 1 To 10 Step 2

　　s = s + 1

　　i = i * 2

　　Next i

　　当循环结束后，变量i和s的值分别为______

　　A)10 4

　　B)11 3

　　C)22 3

　　D)16 4

　　(29)以下内容中不属于VBA提供的数据验证函数的是

　　A)IsText

　　B)IsDate

　　C)IsNumeric

　　D)IsNull

　　(30)给定日期DD，可以计算该日期当月最大天数的正确表达式是

　　A)Day(DD)

　　B)Day(DateSerial(Year(DD),Month(DD),day(DD)))

　　C)Day(DateSerial(Year(DD),Month(DD),0))

　　D)Day(DateSerial(Year(DD),Month(DD)+1,0))

　　(31)假定有以下两个过程：

　　Sub S1(ByVal x As Integer, ByVal y As Integer)

　　Dim t As Integer

　　t = x

　　x = y

　　y = t

　　End Sub

　　Sub S2(x As Integer, y As Integer)

　　Dim t As Integer

　　t = x

　　x = y

　　y = t

　　End Sub

　　则以下说法中正确的是

　　A)用过程S1可以实现交换两个变量的值的操作，S2不能实现

　　B)用过程S2可以实现交换两个变量的值的操作，S1不能实现

　　C)用过程S1和S2都可以实现交换两个变量的值的操作

　　D)用过程S1和S2都不能实现交换两个变量的值的操作

　　(32)在窗体中有一个命令按钮Command1，编写事件代码如下：

　　Private Sub Command1_Click()

　　Dim s As Integer

　　s = P(1)+P(2) +P(3) +P(4)

　　debug.Print s

　　End Sub

　　Public Function P(N As Integer)

　　Dim Sum As Integer

　　Sum = 0

　　For i = 1 To N

　　Sum = Sum + i

　　Next i

　　P = Sum

　　End Function

　　打开窗体运行后，单击命令按钮，输出结果是

　　A)15

　　B)20

　　C)25

　　D)35

　　(33)在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：

　　Private Sub Command1_Click()

　　For I =1 To 4

　　x = 3

　　For j = 1 To 3

　　For k = 1 To 2

　　x = x + 3

　　Next k

　　Next j

　　Next I

　　Text1.value = Str(x)

　　End Sub

　　打开窗体运行后，单击命令按钮，文本框Text1输出的结果是

　　A)6 B)12 C)18 D)21

　　(34)在窗体中有一个命令按钮run35，对应的事件代码如下：

　　Private Sub run35_Enter( )

　　Dim num As Integer

　　Dim a As Integer

　　Dim b As Integer

　　Dim i As Integer

　　For i= 1 To 10

　　num = InputBox("请输入数据:", "输入",1)

　　If Int(num/2) = num/2 Then

　　a = a + 1

　　Else

　　b = b + 1

　　End If

　　Next i

　　MsgBox("运行结果：a=" & Str(a) &",b=" & Str(b))

　　End Sub

　　运行以上事件所完成的功能是

　　A)对输入的10个数据求累加和

　　B)对输入的10个数据求各自的余数，然后再进行累加

　　C)对输入的10个数据分别统计有几个是整数，有几个是非整数

　　D)对输入的10个数据分别统计有几个是奇数，有几个是偶数

　　(35)以下是宏m的操作序列设计：

　　条件 操作序列 操作参数

　　MsgBox消息为"AA"

　　[tt]>1 MsgBox消息为"BB"

　　… MsgBox消息为"CC"

　　现设置宏m为窗体"fTest"上名为"bTest"命令按钮的单击事件属性，打开窗体"fTest"运行后，在窗体上名为"tt"的文本框内输入数字1，然后单击命令按钮bTest，则

　　A)屏幕会先后弹出三个消息框，分别显示消息"AA"、"BB"、"CC"

　　B)屏幕会弹出一个消息框，显示消息"AA"

　　C)屏幕会先后弹出两个消息框，分别显示消息"AA"和"BB"

　　D)屏幕会先后弹出两个消息框，分别显示消息"AA"和"CC"