2013年9月计算机等考二级Access模拟试题及答案（6）

　　(28)执行下面的程序段后，x的值为

　　x = 5

　　For I = 1 To 20 Step 2

　　x = x + I \ 5

　　Next I

　　A)21

　　B)22

　　C)23

　　D)24

　　(29)VBA中定义符号常量可以用关键字

　　A)Const

　　B)Dim

　　C)Public

　　D)Static

　　(30)下列程序段的功能是实现"学生"表中"年龄"字段值加1：

　　Dim Str As String (共35题)

　　Str="____________"

　　Docmd.RunSQL Str

　　空白处应填入的程序代码是

　　A)年龄=年龄+1

　　B)Update 学生 Set 年龄=年龄+1

　　C)Set 年龄=年龄+1

　　D)Edit 学生 Set 年龄=年龄+1

　　(31)在窗体中添加一个名称为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

　　(32)下列过程的功能是：通过对象变量返回当前窗体的Recordset属性记录集引用，消息框中输出记录集的记录(即窗体记录源)个数。

　　Sub GetRecNum()

　　Dim rs As Object

　　Set rs = Me.Recordset

　　MsgBox ______

　　End Sub

　　程序空白处应填写的是

　　A)Count

　　B)rs.Count

　　C)RecordCount

　　D)rs.RecordCount

　　(33)在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：

　　Private Sub Command1_Click()

　　Dim a(10,10)

　　For m=2 To 4

　　For n=4 To 5

　　a(m,n)=m*n

　　Next n

　　Next m

　　MsgBox a(2,5)+a(3,4)+a(4,5)

　　End Sub

　　窗体打开运行后，单击命令按钮，则消息框的输出结果是

　　A)22

　　B)32

　　C)42

　　D)52

　　(34)设有如下程序

　　Private Sub Command1_Click( )

　　Dim sum As Double, x As Double

　　sum = 0

　　n = 0

　　For i=1 To 5

　　x = n / i

　　n = n + 1

　　sum = sum + x

　　Next i

　　End Sub

　　该程序通过For循环来计算一个表达式的值，这个表达式是

　　A)1+1/2+2/3+3/4+4/5

　　B)1+1/2+1/3+1/4+1/5

　　C)1/2+2/3+3/4+4/5

　　D)1/2+1/3+1/4+1/5

　　(35)在窗体中使用一个文本框(名为n)接受输入的值，有一个命令按钮run，事件代码如下：

　　Private Sub run_Click( )

　　result = ""

　　For i= 1 To Me!n

　　For j = 1 To Me!n

　　result = result + "*"

　　Next j

　　result = result + Chr(13) + Chr(10)

　　Next i

　　MsgBox result

　　End Sub

　　打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是

　　A)* * * *

　　* * * *

　　* * * *

　　* * * *

　　B) *

　　* * *

　　* * * * *

　　* * * * * * *

　　C) * * * *

　　* * * * * *

　　* * * * * * * *

　　* * * * * * * * * *

　　D) * * * *

　　* * * *

　　* * * *

　　* * * *