2013年9月計(jì)算機(jī)二級(jí)Access無(wú)紙化預(yù)測(cè)選擇題十二

2013年9月計(jì)算機(jī)二級(jí)Access無(wú)紙化預(yù)測(cè)選擇題匯總

　　考點(diǎn)12：VBA編程

　　1.窗體中有命令按鈕run34，對(duì)應(yīng)的事件代碼如下：

　　Private Sub run34_Enter()

　　Dim num As Integer,a As Integer,b As Integer,i As Integer

　　For i=1 To 10

　　num=InputBox("請(qǐng)輸入數(shù)據(jù)：","輸入")

　　If Int(num/2)=num/2 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)行以上事件過(guò)程，所完成的功能是( )。答案：C

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

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

　　C)對(duì)輸入的10個(gè)數(shù)據(jù)分別統(tǒng)計(jì)奇數(shù)和偶數(shù)的個(gè)數(shù)

　　D)對(duì)輸入的10個(gè)數(shù)據(jù)分別統(tǒng)計(jì)整數(shù)和非整數(shù)的個(gè)數(shù)

　　2.在窗體中添加一個(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)運(yùn)行后，單擊命令按鈕，則消息框的輸出結(jié)果是( )。答案：B

　　A)7

　　B)15

　　C)157

　　D)538

　　3.在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：

　　Private Sub Command1_Click()

　　x=0

　　n=InputBox(" ")

　　For i=1 to n

　　For j=1 to i

　　x=x+1

　　Next j

　　Next i

　　Print x

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，如果輸入3，則在窗體上顯示的內(nèi)容是( )。答案：D

　　A)3

　　B)4

　　C)5

　　D)6

　　4.以下程序運(yùn)行后，消息框的輸出結(jié)果是( )。

　　a=sqr(3)

　　b=sqr(2)

　　c=a>b

　　MsgBox c+2答案：B

　　A)-1

　　B)1

　　C)2

　　D)出錯(cuò)

　　5.執(zhí)行語(yǔ)句MsgBox"AAA"，vbOKCancel+vbQuestion，"BBB"之后，彈出的信息框外觀樣式是( )。答案：C

　　A)

　　B)

　　C);

　　D);

　　6.在窗體中有一個(gè)命令按鈕run1，對(duì)應(yīng)的事件代碼如下：

　　Private Sub run1_Enter( )

　　Dim num As Integer

　　Dim m As Interger

　　Dim n As Integer

　　Dim i As Integer

　　For i=1 To 10

　　num=InputBox("請(qǐng)輸入數(shù)據(jù)："，"輸入"，1)

　　If Int(num/2)=num/2 Then

　　m=m+1

　　Else

　　n=n+1

　　End If

　　Next i

　　MsgBox("運(yùn)行結(jié)果：m=" & Str(m)& "，n="& Str(n))

　　End Sub

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

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

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

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

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

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

　　Private Sub Command1_Click()

　　A=75

　　If A>60 Then I=1

　　If A>70 Then I=2

　　If A>80 Then I=3

　　If A>90 Then I=4

　　MsgBox I

　　End Sub

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

　　A)1

　　B)2

　　C)3

　　D)4

　　8.窗體中有命令按鈕Command1和文本框Text1，事件過(guò)程如下：

　　Function result(ByVal x As Integer)As Boolean

　　If x Mod 2=0 Then

　　result=True

　　Else

　　result=False

　　End If

　　End Function

　　Private Sub Command1_Click()

　　x=Val(InputBox("請(qǐng)輸入一個(gè)整數(shù)"))

　　If Then

　　Text1=Str(x)& "是偶數(shù)."

　　Else

　　Text1=Str(x)& "是奇數(shù)."

　　End If

　　End Sub

　　運(yùn)行程序，單擊命令按鈕，輸入19，在Text1中會(huì)顯示“19是奇數(shù).”。那么在程序的空白處應(yīng)填寫(xiě)( )。答案：B

編輯推薦：

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

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

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

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