點(diǎn)擊查看：2018年9月計(jì)算機(jī)二級VB語言程序設(shè)計(jì)試題及答案匯總

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

　　A.BOF

　　B.LOC

　　C.LOF

　　D.EOF

　　2.如果一個(gè)工程含有多個(gè)窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯(cuò)誤的是(B)(單)

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

　　B.不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動(dòng)模塊

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

　　D.任何時(shí)刻最多只有一個(gè)窗體是活動(dòng)窗體

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

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

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

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

　　D.參數(shù)x,y用來設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo)

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

　　A.Combo1.RemoveItem Text

　　B.Combo1.RemoveItem 2

　　C.Combo1.RemoveItem 3

　　D.Combo1.RemoveItem Combo1.Listcount

　　5.以下關(guān)于焦點(diǎn)的敘述中，錯(cuò)誤的是(A)(單)

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

　　B.當(dāng)文本框失去焦點(diǎn)時(shí)，觸發(fā)LostFocus事件

　　C.當(dāng)文本框的Enabled屬性為False時(shí)，其Tab順序不起作用

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

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

　　A.=

　　B.*

　　C.&

　　D.-

　　7.在窗體上畫一個(gè)名稱為Command1的命令按鈕和兩個(gè)名稱分別為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

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

　　A.10

　　B.20

　　C.30

　　D.40

　　8.設(shè)有以下循環(huán)結(jié)構(gòu)

　　Do

　　循環(huán)體

　　Loop While <條件>

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

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

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

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

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

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

　　Private Sub Command1_Click( )

　　Dim num As Integer

　　num = 1

　　Do Until num > 6

　　Print num;

　　num = num + 2.4

　　Loop

　　End Sub

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

　　A.1 3.4 5.8

　　B.1 3 5

　　C.1 4 7

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

　　10.在窗體上畫一個(gè)名稱為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

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

　　A.7 9

　　B.34 0

　　C.9 7

　　D.死循環(huán)

　　11.在窗體上畫一個(gè)名稱為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

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

　　A.10 5

　　B.20 5

　　C.20 40

　　D.10 40

　　12.設(shè)有如下通用過程：

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

　　For i = 1 To 5

　　x = x + a(i)

　　Next I

　　End Sub

　　在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為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

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

　　A.10

　　B.15

　　C.25

　　D.24

　　13.在窗體上畫一個(gè)名稱為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

　　Next i

　　Print d

　　End Sub

　　程序運(yùn)行后，如果單擊命令按鈕，則在窗體上輸出的內(nèi)容為(C)(單)

　　A.89

　　B.99

　　C.23

　　D.77

　　14.在窗體上畫兩個(gè)滾動(dòng)條，名稱分別為Hscroll1、Hscroll2;六個(gè)標(biāo)簽，名稱分別為Label1、Label2、Label3、Label4、Label5、Label6，其中標(biāo)簽Label 4、Label6分別顯示"A"、"B"、"A*B"等文字信息，標(biāo)簽Label1、Label2分別顯示Hscroll1、Hscroll2滾動(dòng)條的數(shù)值，Label3顯示A*B的計(jì)算結(jié)果。當(dāng)移動(dòng)滾動(dòng)條時(shí)，在相應(yīng)的標(biāo)簽中顯示滾動(dòng)條的值。當(dāng)單擊命令按鈕"計(jì)算"時(shí)，對標(biāo)簽Label1、Label2中顯示的兩個(gè)值求積，并將結(jié)果顯示在Label3中。以下不能實(shí)現(xiàn)上述功能的事件過程是(C)(單)

　　A.Private Sub Command1_Click( )

　　Label3.Caption = =Str(Val(Label1.Caption)*Val( Label2.Caption))

　　End Sub

　　B.Private Sub Command1_Click( )

　　Label3.Caption = HScroll1.Value *HScroll2.Value

　　End Sub

　　C.Private Sub Command1_Click( )

　　Label3.Caption = HScroll1 * HScroll2

　　End Sub

　　D.Private Sub Command1_Click( )

　　Label3.Caption = HScroll1. Text *HScroll2.Text

　　End Sub

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

　　Private Sub Command1_Click( )

　　For n = 1 To 20

　　If n Mod 3 <> 0 Then m = m + n \ 3

　　Next n

　　Print n

　　End Sub

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

　　A.15

　　B.18

　　C.21

　　D.24

　　16.在窗體上畫一個(gè)名稱為Text1的文本框，并編寫如下程序：

　　Private Sub Form_Load( )

　　Show

　　Text1.Text = ""

　　Text1.SetFocus

　　End Sub

　　Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X AsSingle, Y As Single)

　　Print "程序設(shè)計(jì)"

　　End Sub

　　Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

　　Print "Visual Basic";

　　End Sub

　　程序運(yùn)行后，如果按"A"鍵，然后單擊窗體，則在窗體上顯示的內(nèi)容是(A)(單)

　　A.Visual Basic

　　B.程序設(shè)計(jì)

　　C.A程序設(shè)計(jì)

　　D.Visual Basic程序設(shè)計(jì)

　　17.設(shè)有如下程序：

　　Private Sub Command1_Click( )

　　Dim sum As Double, x As Double

　　sum = 0

　　n = 0

　　For i = 1 To 5

　　x = n / i

　　n = n + 1

　　sum = sum + x

　　Next

　　End Sub

　　該程序通過For循環(huán)計(jì)算一個(gè)表達(dá)式的值，這個(gè)表達(dá)式是(C)(單)

　　A.1+1/2+ 2/3+3/4+4/5

　　B.1+1/2+2/3+3/4

　　C.1/2+2/3+3/4+4/5

　　D.1+1/2+1/3+1/4+1/5

　　18.以下有關(guān)數(shù)組定義的語句序列中，錯(cuò)誤的是(D)(單)

　　A.Static arr1(3) ：arr1(1) = "100" ：

　　arr1(2) = "Hello" ：arr1(3) = "123.45"

　　B.Dim arr2( ),size As Integer

　　Private Sub Command2_Click( )

　　size =InputBox("輸入：") ReDim arr2(size) ......

　　End Sub

　　C.Option Base 1 Private Sub Command3_Click( )

　　Dim arr3(3) As Integer ......

　　End Sub

　　D.Dim n As Integer Private Sub Command4_Click( )

　　Dim arr4(n) As Integer......

　　End Sub

　　19.執(zhí)行下面的程序段后，I的值為【5.6】

　　s = 2

　　For I = 3.2 To 4.9 Step 0.8

　　s = s + 1

　　Next I

　　Print i

　　52170.執(zhí)行下面的程序段后，S的值為【5】

　　Private Sub Command1_Click( )

　　s = 2

　　For c = 3.2 To 4.9 Step 0.8

　　s = s + 1

　　Next c

　　Print s

　　End Sub

　　相關(guān)推薦：

　　2018年全國計(jì)算機(jī)等級考試必做試題匯總(各科目)

　　2018年全國計(jì)算機(jī)等級考試復(fù)習(xí)知識(shí)點(diǎn)匯總(各科目)

　　2018全國計(jì)算機(jī)等級考試備考經(jīng)驗(yàn)及應(yīng)試技巧匯總

　　歷年真題匯總|考試吧策劃：2018年計(jì)算機(jī)等級考試報(bào)考指南