2013年計(jì)算機(jī)二級(jí)ACCESS筆試預(yù)測(cè)試題及答案（4）

　　(26)On Error Goto 0語(yǔ)句的含義是

　　A)忽略錯(cuò)誤并執(zhí)行下一條語(yǔ)句

　　B)取消錯(cuò)誤處理

　　C)遇到錯(cuò)誤執(zhí)行定義的錯(cuò)誤

　　D)退出系統(tǒng)

　　(27)VBA中用實(shí)際參數(shù)a和b調(diào)用有參過(guò)程Area(m,n)的正確形式是

　　A)Area m,n

　　B)Area a,b

　　C)Call Area(m,n)

　　D)Call Area a,b

　　(28)下列四種形式的循環(huán)設(shè)計(jì)中，循環(huán)次數(shù)最少的是

　　A)a = 5 : b = 8

　　Do

　　a = a + 1

　　Loop While a < b

　　B)a = 5 : b = 8

　　Do

　　a = a + 1

　　Loop Until a < b

　　C)a = 5 : b = 8

　　Do Until a < b

　　b = b + 1

　　Loop

　　D)a = 5 : b = 8

　　Do Until a > b

　　a = a + 1

　　Loop

　　(29)下列數(shù)據(jù)類型中，不屬于VBA的是

　　A)長(zhǎng)整型 B)布爾型 C)變體型 D)指針型

　　(30)在已建窗體中有一命令按鈕(名為Command1)，該按鈕的單擊事件對(duì)應(yīng)的VBA代碼為：

　　Private Sub Command1_Click()

　　subT.Form.RecordSource = "select * from 雇員"

　　End Sub

　　單擊該按鈕實(shí)現(xiàn)的功能是

　　A)使用select命令查找"雇員"表中的所有記錄

　　B)使用select命令查找并顯示"雇員"表中的所有記錄

　　C)將subT窗體的數(shù)據(jù)來(lái)源設(shè)置為一個(gè)字符串

　　D)將subT窗體的數(shù)據(jù)來(lái)源設(shè)置為"雇員"表

　　(31)假定有如下的Sub過(guò)程：

　　sub sfun(x As Single, y As Single)

　　t=x

　　x=t/y

　　y=t Mod y

　　End Sub

　　在窗體上添加一個(gè)命令按鈕(名為Command1)，然后編寫(xiě)如下事件過(guò)程：

　　Private Sub Command1_Click()

　　Dim a as single

　　Dim b as single

　　a=5

　　b=4

　　sfun(a,b)

　　MsgBox a & chr(10)+chr(13) & b

　　End Sub

　　打開(kāi)窗體運(yùn)行后，單擊命令按鈕，消息框的兩行輸出內(nèi)容分別為

　　A)1和1

　　B)1.25和1

　　C)1.25和4

　　D)5和4

　　(32)在窗體上有一個(gè)命令按鈕Command1和一個(gè)文本框Text1，編寫(xiě)事件代碼如下：

　　Private Sub Command1_Click()

　　Dim i, j, x

　　For i = 1 To 20 Step 2

　　x = 0

　　For j = i To 20 Step 3

　　x = x + 1

　　Next j

　　Next i

　　Text1.Value = Str(x)

　　End Sub

　　打開(kāi)窗體運(yùn)行后，單擊命令按鈕，文本框中顯示的結(jié)果是

　　A)1 B)7 C)17 D)400

　　(33)在窗體上添加一個(gè)命令按鈕(名為Command1)，然后編寫(xiě)如下事件過(guò)程：

　　Private Sub Command1_Click()

　　For i=1 To 4

　　x=4

　　For j=1 To 3

　　x=3

　　For k=1 To 2

　　x=x+6

　　Next k

　　Next j

　　Next i

　　MsgBox x

　　End Sub

　　打開(kāi)窗體后，單擊命令按鈕，消息框的輸出結(jié)果是

　　A)7 B)15 C)157 D)538

　　(34)如下程序段定義了學(xué)生成績(jī)的記錄類型：由學(xué)號(hào)、姓名和三門(mén)課程成績(jī)(百分制)組成。

　　Type Stud

　　no As Integer

　　name As String

　　score (1 to 3) As Single

　　End Type

　　若對(duì)某個(gè)學(xué)生的各個(gè)數(shù)據(jù)項(xiàng)進(jìn)行賦值，下列程序段中正確的是

　　A)Dim S As Stud

　　Stud.no = 1001

　　Stud.name = "舒宜"

　　Stud.score = 78,88,96

　　B)Dim S As Stud

　　S.no = 1001

　　S.name = "舒宜"

　　S.score = 78,88,96

　　C)Dim S As Stud

　　Stud.no = 1001

　　Stud.name = "舒宜"

　　Stud.score(1) = 78

　　Stud.score(2) = 88

　　Stud.score(3) = 96

　　D)Dim S As Stud

　　S.no = 1001

　　S.name = "舒宜"

　　S.score(1) = 78

　　S.score(2) = 88

　　S.score(3) = 96

　　(35)在窗體中添加一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件代碼：

　　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

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

　　A)AABAAB

　　B)ABBABA

　　C)BABBA

　　D)BBABBA