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

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

　　A)AABAAB

　　B)ABBABA

　　C)BABBA

　　D)BBABBA

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

　　Sub OpenForms(strFormName As String)

　　If strFormName=" " then

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

　　Exit Sub

　　End If

　　DoCmd.OpenForm strFormName

　　End Sub

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

　　OpenForms("學(xué)生管理")

　　空白處應(yīng)該填寫的關(guān)鍵字是( )。答案：C

　　A)Open

　　B)OpenForm

　　C)Call

　　D)Function

　　19.運(yùn)行下列程序，結(jié)果是( )。

　　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.在窗體中有一個(gè)命令按鈕run35，對應(yīng)的事件代碼如下：

　　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("請輸入數(shù)據(jù):", "輸入",1)

　　If num Mod 2=0 Then

　　a = a + 1

　　Else

　　b = b + 1

　　End If

　　Next i

　　MsgBox("運(yùn)行結(jié)果：a=" & Str(A)&",b=" & Str(B))

　　End Sub

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

　　A)對輸入的10個(gè)數(shù)據(jù)求累加和

　　B)對輸入的10個(gè)數(shù)據(jù)求各自的余數(shù)，然后再進(jìn)行累加

　　C)對輸入的10個(gè)數(shù)據(jù)分別統(tǒng)計(jì)有幾個(gè)是整數(shù)，有幾個(gè)是非整數(shù)

　　D)對輸入的10個(gè)數(shù)據(jù)分別統(tǒng)計(jì)有幾個(gè)是奇數(shù)，有幾個(gè)是偶數(shù)

　　21.在窗體中使用一個(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

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

　　A)* * * *

　　* * *

　　* *

　　*

　　B)*

　　* * *

　　* * * * *

　　* * * * * * *

　　C)* * * *

　　* * * * * *

　　* * * * * * * *

　　* * * * * * * * * *

　　D)* * * *

　　* * * *

　　* * * *

　　* * * *

編輯推薦：

考試吧考后首發(fā)2013年9月計(jì)算機(jī)等級考試試題及答案

2013年計(jì)算機(jī)等級考試備考精華資料匯總

全國計(jì)算機(jī)等級考試教材目錄（2013年版）

全國計(jì)算機(jī)等級考試考試大綱（2013年版）