點(diǎn)擊查看:2018年9月計(jì)算機(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í),對(duì)標(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ī)等級(jí)考試必做試題匯總(各科目)
2018年全國計(jì)算機(jī)等級(jí)考試復(fù)習(xí)知識(shí)點(diǎn)匯總(各科目)
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |