2013年9月計算機二級Access無紙化預(yù)測選擇題匯總

　　考點12：VBA編程

　　1.窗體中有命令按鈕run34，對應(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("請輸入數(shù)據(jù)：","輸入")

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

　　a=a+1

　　Else

　　b=b+1

　　End If

　　Next i

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

　　End Sub

　　運行以上事件過程，所完成的功能是( )。答案：C

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

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

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

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

　　2.在窗體中添加一個名稱為Command1的命令按鈕，然后編寫如下事件過程：

　　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

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

　　A)7

　　B)15

　　C)157

　　D)538

　　3.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：

　　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

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

　　A)3

　　B)4

　　C)5

　　D)6

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

　　a=sqr(3)

　　b=sqr(2)

　　c=a>b

　　MsgBox c+2答案：B

　　A)-1

　　B)1

　　C)2

　　D)出錯

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

　　A)

　　B)

　　C);

　　D);

　　6.在窗體中有一個命令按鈕run1，對應(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("請輸入數(shù)據(jù)："，"輸入"，1)

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

　　m=m+1

　　Else

　　n=n+1

　　End If

　　Next i

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

　　End Sub

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

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

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

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

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

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

　　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

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

　　A)1

　　B)2

　　C)3

　　D)4

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

　　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("請輸入一個整數(shù)"))

　　If Then

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

　　Else

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

　　End If

　　End Sub

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

編輯推薦：

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

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

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

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