- 相關(guān)推薦
2017計(jì)算機(jī)二級(jí)考試VB基礎(chǔ)考試題
2017年計(jì)算機(jī)二級(jí)考試即將在九月份進(jìn)行，VB是計(jì)算機(jī)二級(jí)考試的科瑪之一，你知道計(jì)算機(jī)二級(jí)考試VB科目都考哪些知識(shí)嗎?為了方便考生備考計(jì)算機(jī)二級(jí)考試VB 科目。下面是小編為大家?guī)淼挠?jì)算機(jī)二級(jí)考試VB考試題，歡迎閱讀。
考試題一：
1. 下面程序是從鍵盤上輸入一個(gè)字符串，把該字符串中的大寫字母轉(zhuǎn)換成小寫字母，輸出到文件Ks61.dat中，然后從該文件中讀出字符串并顯示出來。請(qǐng)完善下面的程序：
Private Form_Click( )
Dim Str1 As String * 50 , Str2 As String , FileNo As Integer
FileNo = 【63】
Open “d:Vb2003KsKs61.dat” For 【64】As FileNo
Str1 = InputBox ( “請(qǐng)輸入一個(gè)字符串：” )
Str1 = Lcase ( Str1 )
Seek #FileNo , 1
Put #FileNo, , Str1
【65】#FileNo, 1
Str2 = Input (【66】, #FileNo )
Print Str2
End Sub
【63】(A)Free (B)File (C)FreeFile (D)FileFree
【64】(A)Input (B)Output (C)Random (D)Binary
【65】(A)Loc (B)Lof (C)Eof (D)Seek
【66】(A)Len ( Str1 ) (B)Len ( Str2 ) (C)StrLen ( Str1 ) (D)StrLen (Str2)
2. 以下程序的功能是：把當(dāng)前目錄下的順序文件smtext1.txt的內(nèi)容讀入內(nèi)存，并在文本框Text1中顯示出來。請(qǐng)?zhí)羁铡?/p>
Private Sub Command1_Click()
Dim inData As String
Text1.Text = ""
Open ".smtext1.txt" 【14】 As #1
Do While 【15】
Input #1, inData
Text1.Text = Text1.Text & inData
Loop
Close #1
End Sub
3. 在窗體上畫一個(gè)文本框(其Name屬性為Text1)，然后編寫如下事件過程：
Private Sub Form_Load( )
Text1.Text = “ ”
Text1.SetFocus
For i = 1 to 10
Sum = Sum + i
Next i
Text1.Text = Sum
End Sub
程序運(yùn)行后，輸出結(jié)果為( 【67】 )
(A)在文本框Text1中輸出55 (B)在文本框Text1中輸出0
(C)在文本框Text1中輸出不定值 (D)出錯(cuò)
4. 在窗體上畫一個(gè)文本框和一個(gè)列表框，然后編寫如下兩個(gè)事件過程：
Private Sub Form_Load( )
List1.AddItem “123 ”
List1.AddItem “456 ”
List1.AddItem “369”
List1.AddItem “789 ”
Text1.Text = “ ”
End Sub
Private Sub List1_DblClick( )
a = List1.Text
Print a + Text1.Text
End Sub
程序運(yùn)行后，在文本框中輸入“248”，然后雙擊列表框中的“369”，則輸出結(jié)果( 【68】 )
(A)617 (B)248369 (C)369248 (D)0
5. 在窗體上畫兩個(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分別顯示其右側(cè)的滾動(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)上述功能的事件過程是
(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
6. 閱讀下面程序：
Public Sub xy ( a As Integer , b As Integer )
Dim t As Integer
Do
t = a Mod b
a = b : b = t
Loop While t
Print a
End Sub
用Call xy (16 , 40 )調(diào)用此通用過程后，輸出結(jié)果為( 【69】 )
(A)4 (B)8 (C)16 (D)32
7. 在窗體上畫一個(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)容是
(A)15 (B)18 (C)21 (D)24
8. 以下語句的輸出結(jié)果是( 【70】 )
a = “BeiJing”
b = “ShangHai”
Print a;b
以下結(jié)果中，“ □ ”表示空格：
(A)BeiJing□ShangHai (B)BeiJingShangHai
(C)BeiJingShangHai□ (D)BeiJing□ShangHai□
9. 下面程序共執(zhí)行了( 【71】 )次循環(huán)。
Dim Intsum As Integer , i As Integer , j As Integer
考試題二：
1. 在窗體上畫一個(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)容是
(A)1 3.4 5.8 (B)1 3 5 (C)1 4 7 (D)無數(shù)據(jù)輸出
2. 有如下函數(shù)：
Function Facn ( x As Integer ) As Long
Dim p As Long , i As Integer
p = 1
For i = 1 To x
p = p * i
Next i
Facn = p
End Function
調(diào)用它的事件過程如下：
Private Sub Command1_Click ( )
i = Val ( InputBox ( “請(qǐng)輸入數(shù)據(jù)”))
a = Facn (( i ) ) ‘實(shí)參i用圓括號(hào)括起，則強(qiáng)制為值傳遞
Print a
End Sub
若輸入數(shù)據(jù)6，則程序運(yùn)行結(jié)果為( 【73】 )
(A)60 (B)120 (C)600 (D)720
3. 在窗體上畫一個(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)容是
(A) 7 9 (B) 34 0 (C) 9 7 (D)死循環(huán)
4. 下列程序的執(zhí)行結(jié)果為( 【74】 )
Dim IntSum As Integer , i As Integer
IntSum = 0
For i = 30.2 To 1 Step -5.3
IntSum = IntSum + i
Next i
Print IntSum
(A)106 (B)105 (C)102 (D)101
5. 在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程，該過程執(zhí)行結(jié)果為( 【75】 )
Option Base 1
Private Sub Command1_Click ( )
Dim a As Variant , s As Integer
a = Array ( 2 , 4 , 6 , 8 )
j = 1
For i = 1 To 4 Step 1
s = s + a ( i ) * j
j = j *10
Next i
Print s
End Sub
(A)0 (B)1110 (C)2468 (D)8642
設(shè)有如下通用過程：
Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
6. 在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Static x As Integer
x = 10
y=5
y = f(x)
Print x; y
End Sub
程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是
(A)10 5 (B)20 5 (C)20 40 (D)10 40
7. 對(duì)窗體編寫如下代碼：
Option Base 1
Private Sub Form_KeyPress( KeyAscii As Integer)
a = Array (123 , 86 , 57 , 248 , 32)
m1 = a ( 1 )
m2 = 1
If KeyAscii = 13 Then
For i=2 To 5
If a ( i ) > m1 Then
m1 = a ( i )
m2 = i
End If
Next i
End If
Print m1 , m2
End Sub
程序運(yùn)行后，按回車鍵，輸出結(jié)果為( 【76】 )
(A)32 5 (B)248 4 (C)32 1 (D)248 5
設(shè)有如下通用過程：
Public Sub Fun(a(), ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
8. 在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下的事件過程：
Private Sub Command1_Click()
Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Next
n = 10
Call Fun(arr(), n)
Text1.Text = n
End Sub
程序運(yùn)行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是
(A)10 (B)15 (C)25 (D)24
9. 閱讀程序：
Function Func ( a As Integer )
b = 1
Static c As Integer
b = b +1
c = c +1
Func = a + b + c
End Function
Private Sub Command1_Click( )
Dim a As Integer
a = 3
For i =1 to 3
Print Func( a )
Next i
End Sub
運(yùn)行上面的程序，單擊命令按鈕后，輸出結(jié)果為( 【77】 )
(A)6 (B)6 (C)6 (D)6
7 6 8 13
8 6 10 21
10. 在窗體上畫一個(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)容為
(A)89 (B)99 (C)23 (D)77
【計(jì)算機(jī)二級(jí)考試VB基礎(chǔ)考試題】相關(guān)文章：
計(jì)算機(jī)二級(jí)考試《VB》基礎(chǔ)習(xí)題及答案07-22
2016年計(jì)算機(jī)二級(jí)《VB》考試題及答案03-13
二級(jí)計(jì)算機(jī)VB語言程序設(shè)計(jì)考試題及答案11-26
2017年9月計(jì)算機(jī)二級(jí)考試VB基礎(chǔ)題11-27
2015年計(jì)算機(jī)二級(jí)《VB》考試基礎(chǔ)知識(shí)：窗口12-07
2015年計(jì)算機(jī)二級(jí)《VB》考試基礎(chǔ)知識(shí)：對(duì)象與窗體12-07
2016計(jì)算機(jī)二級(jí)《VB》考試的重點(diǎn)內(nèi)容03-30