(28)執(zhí)行下面的程序段后，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中定義符號(hào)常量可以用關(guān)鍵字

　　A)Const

　　B)Dim

　　C)Public

　　D)Static

　　(30)下列程序段的功能是實(shí)現(xiàn)"學(xué)生"表中"年齡"字段值加1：

　　Dim Str As String (共35題)

　　Str="____________"

　　Docmd.RunSQL Str

　　空白處應(yīng)填入的程序代碼是

　　A)年齡=年齡+1

　　B)Update 學(xué)生 Set 年齡=年齡+1

　　C)Set 年齡=年齡+1

　　D)Edit 學(xué)生 Set 年齡=年齡+1

　　(31)在窗體中添加一個(gè)名稱為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

　　窗體打開運(yùn)行后，單擊命令按鈕，則消息框的輸出結(jié)果為

　　A)10

　　B)30

　　C)40

　　D)50

　　(32)下列過程的功能是：通過對象變量返回當(dāng)前窗體的Recordset屬性記錄集引用，消息框中輸出記錄集的記錄(即窗體記錄源)個(gè)數(shù)。

　　Sub GetRecNum()

　　Dim rs As Object

　　Set rs = Me.Recordset

　　MsgBox ______

　　End Sub

　　程序空白處應(yīng)填寫的是

　　A)Count

　　B)rs.Count

　　C)RecordCount

　　D)rs.RecordCount

　　(33)在窗體中添加一個(gè)名稱為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

　　窗體打開運(yùn)行后，單擊命令按鈕，則消息框的輸出結(jié)果是

　　A)22

　　B)32

　　C)42

　　D)52

　　(34)設(shè)有如下程序

　　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循環(huán)來計(jì)算一個(gè)表達(dá)式的值，這個(gè)表達(dá)式是

　　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)在窗體中使用一個(gè)文本框(名為n)接受輸入的值，有一個(gè)命令按鈕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) * * * *

　　* * * *

　　* * * *

　　* * * *