Private Sub Command1_Click()

　　m=2.17

　　n=Len(Str$(m)+Space(5))

　　Me!Text1=n

　　End Sub

　　打開窗體運行后，單擊命令按鈕，在文本框中顯示

　　A)5 B)8 C)9 D)10

　　(27)VBA中去除前后空格的函數是

　　A)LTrim B)Rtrim C)Trim D)Ucase

　　(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) * * * *

　　* * * *

　　* * * *

　　* * * *

　　相關推薦：

　　2013年9月計算機等級考試答案 

　　2013年9月計算機等考答案交流

　　2013年9月計算機等級考試真題