亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

計算機二級VB考試題及答案

　　1.以下能判斷指針是否指向文件尾的函數(shù)是(D)(單)

　　A.BOF

　　B.LOC

　　C.LOF

　　D.EOF

　　2.如果一個工程含有多個窗體及標準模塊，則以下敘述中錯誤的是(B)(單)

　　A.如果工程中含有Sub Main過程，則程序一定首先執(zhí)行該過程

　　B.不能把標準模塊設置為啟動模塊

　　C.用Hide方法只是隱藏一個窗體,不能從內存中清除該窗體

　　D.任何時刻最多只有一個窗體是活動窗體

　　3.窗體的過程Form_MouseDown (Button As Integer, Shift As Integer, X As Single, YAs Single) ，有4個參數(shù)，關于這些參數(shù)，正確的描述是(D)(單)

　　A.通過Button參數(shù)判定當前按下的是鍵盤上哪一個鍵

　　B.Shift參數(shù)只能用來確定是否按下Shift鍵

　　C.Shift參數(shù)只能用來確定是否按下Alt和Ctrl鍵

　　D.參數(shù)x,y用來設置鼠標當前位置的坐標

　　4.設組合框Combo1中有3個項目，則以下能刪除最后一項的語句是(B)(單)

　　A.Combo1.RemoveItem Text

　　B.Combo1.RemoveItem 2

　　C.Combo1.RemoveItem 3

　　D.Combo1.RemoveItem Combo1.Listcount

　　5.以下關于焦點的敘述中，錯誤的是(A)(單)

　　A.如果文本框的Enabled屬性為False，能接收從鍵盤上輸入的數(shù)據(jù)

　　B.當文本框失去焦點時，觸發(fā)LostFocus事件

　　C.當文本框的Enabled屬性為False時，其Tab順序不起作用

　　D.可以用TabIndex屬性改變Tab順序

　　6.如果要在菜單中添加一個分隔線，則應將其Caption屬性設置為(D)(單)

　　A.=

　　B.*

　　C.&

　　D.-

　　7.在窗體上畫一個名稱為Command1的命令按鈕和兩個名稱分別為Text1、Text2的文本框，然后編寫如下事件過程：

　　Private Sub Command1_Click( )

　　n = val(Text1.Text )

　　Select Case n

　　Case 1 To 20

　　x = 10

　　Case 2, 4, 6

　　x = 20

　　Case Is < 10

　　x = 30

　　Case 10

　　x = 40

　　End Select

　　Text2.Text = x

　　End Sub

　　程序運行后，如果在文本框Text1中輸入10，然后單擊命令按鈕，則在Text2中顯示的內容是(A)(單)

　　A.10

　　B.20

　　C.30

　　D.40

　　8.設有以下循環(huán)結構

　　Do

　　循環(huán)體

　　Loop While <條件>

　　則以下敘述中錯誤的是(A)(單)

　　A.若"條件"是一個為0的常數(shù)，則一次也不執(zhí)行循環(huán)體

　　B."條件"可以是關系表達式、邏輯表達式或常數(shù)

　　C.循環(huán)體中可以使用Exit Do語句

　　D.如果"條件"總是為True，則不停地執(zhí)行循環(huán)體

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

　　Private Sub Command1_Click( )

　　Dim num As Integer

　　num = 1

　　Do Until num > 6

　　Print num;

　　num = num + 2.4

　　Loop

　　End Sub

　　程序運行后，單擊命令按鈕，則窗體上顯示的內容是(B)(單)

　　A.1 3.4 5.8

　　B.1 3 5

　　C.1 4 7

　　D.無數(shù)據(jù)輸出

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

　　Private Sub Command1_Click( )

　　Dim a As Integer, s As Integer

　　a = 8

　　s = 1

　　Do

　　s = s + a

　　a = a-1

　　Loop While a <= 0

　　Print s; a

　　End Sub

　　程序運行后，單擊命令按鈕，則窗體上顯示的內容是(C)(單)

　　A.7 9

　　B.34 0

　　C.9 7

　　D.死循環(huán)

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

　　有如下通用過程：

　　Public Function f(x As Integer)

　　Dim y As Integer

　　x = 20

　　y = 2

　　f = x * y

　　End Function

　　Private Sub Command1_Click( )

　　Static x As Integer

　　x = 10

　　y=5

　　y = f(x)

　　Print x; y

　　End Sub

　　程序運行后，如果單擊命令按鈕，則在窗體上顯示的內容是(C)(單)

　　A.10 5

　　B.20 5

　　C.20 40

　　D.10 40

　　12.設有如下通用過程：

　　Public Sub Fun(a( ), ByVal x As Integer)

　　For i = 1 To 5

　　x = x + a(i)

　　Next I

　　End Sub

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

　　Private Sub Command1_Click( )

　　Dim arr(5) As Variant

　　For i = 1 To 5

　　arr(i) = i

　　Next I

　　n = 10

　　Call Fun(arr( ), n)

　　Text1.Text = n

　　End Sub

　　程序運行后，單擊命令按鈕，則在文本框中顯示的內容是(A)(單)

　　A.10

　　B.15

　　C.25

　　D.24

　　13.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下代碼：

　　Option Base 1

　　Private Sub Command1_Click( )

　　d = 0

　　c = 10

　　x = Array(10, 12, 21, 32, 24)

　　For i = 1 To 5

　　If x(i) > c Then

　　d = d + x(i)

　　c = x(i)

　　Else

　　d = d-c

　　End If