17.在窗體中添加一個名稱為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

　　窗體打開運行后，單擊命令按鈕，則消息框的輸出結果是( )。答案：D

　　A)AABAAB

　　B)ABBABA

　　C)BABBA

　　D)BBABBA

　　18.下面編寫了一個打開指定窗體的子過程OpenForms。代碼如下：

　　Sub OpenForms(strFormName As String)

　　If strFormName=" " then

　　MsgBox"打開窗體名稱不能為空!",VbCritical,"警告"

　　Exit Sub

　　End If

　　DoCmd.OpenForm strFormName

　　End Sub

　　如果此時需要調用該子過程打開名為“學生管理”的窗體，只需在主調過程合適的位置增添語句：

　　OpenForms("學生管理")

　　空白處應該填寫的關鍵字是( )。答案：C

　　A)Open

　　B)OpenForm

　　C)Call

　　D)Function

　　19.運行下列程序，結果是( )。

　　Private Sub Command32_Click()

　　f0 = 1: f1 = 1: k = 1

　　Do While k <= 5

　　f = f0 + f1

　　f0 = f1

　　f1 = f

　　k = k + 1

　　Loop

　　MsgBox "f = " & f

　　End Sub答案：D

　　A)f = 5

　　B)f = 7

　　C)f = 8

　　D)f = 13

　　20.在窗體中有一個命令按鈕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 num Mod 2=0 Then

　　a = a + 1

　　Else

　　b = b + 1

　　End If

　　Next i

　　MsgBox("運行結果：a=" & Str(A)&",b=" & Str(B))

　　End Sub

　　運行以上事件所完成的功能是( )。答案：D

　　A)對輸入的10個數據求累加和

　　B)對輸入的10個數據求各自的余數，然后再進行累加

　　C)對輸入的10個數據分別統計有幾個是整數，有幾個是非整數

　　D)對輸入的10個數據分別統計有幾個是奇數，有幾個是偶數

　　21.在窗體中使用一個文本框(名為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

　　打開窗體后，在文本框n中輸入4，輸出結果是( )。答案：D

　　A)* * * *

　　* * *

　　* *

　　*

　　B)*

　　* * *

　　* * * * *

　　* * * * * * *

　　C)* * * *

　　* * * * * *

　　* * * * * * * *

　　* * * * * * * * * *

　　D)* * * *

　　* * * *

　　* * * *

　　* * * *

編輯推薦：

考試吧考后首發2013年9月計算機等級考試試題及答案

2013年計算機等級考試備考精華資料匯總

全國計算機等級考試教材目錄（2013年版）

全國計算機等級考試考試大綱（2013年版）