- 相關(guān)推薦
計(jì)算機(jī)等級考試二級VB考前練習(xí)
為了使廣大考生在備戰(zhàn)計(jì)算機(jī)等級考試時，更快的掌握相應(yīng)知識點(diǎn)，下面是小編搜索整理的計(jì)算機(jī)等級考試二級VB考前練習(xí)，供參考練習(xí)，預(yù)�？忌鷤兛汲鲎约豪硐氲某煽�!
計(jì)算機(jī)等級考試二級VB考前練習(xí)
1． 下面程序是從鍵盤上輸入一個字符串，把該字符串中的大寫字母轉(zhuǎn)換成小寫字母，輸出到文件Ks61.dat中，然后從該文件中讀出字符串并顯示出來。請完善下面的程序：
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 ( “請輸入一個字符串：” )
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中顯示出來。請?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． 在窗體上畫一個文本框（其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】 ）
�。ˋ）在文本框Text1中輸出55 （B）在文本框Text1中輸出0
�。–）在文本框Text1中輸出不定值 （D）出錯
4． 在窗體上畫一個文本框和一個列表框，然后編寫如下兩個事件過程：
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． 在窗體上畫兩個滾動條，名稱分別為Hscroll1 、Hscroll2；六個標(biāo)簽，名稱分別為 Label1、Label2、Label3、Label4、Label5、Label6，其中標(biāo)簽Label 4~ Label6分別顯示“A”、“B”、“A*B”等文字信息，標(biāo)簽Label1、Label2分別顯示其右側(cè)的滾動條的數(shù)值，Label3 顯示A*B的計(jì)算結(jié)果。如圖所示。當(dāng)移動滾動框時，在相應(yīng)的標(biāo)簽中顯示滾動條的值。當(dāng)單擊命令按鈕"計(jì)算"時，對標(biāo)簽Label1、Label2中顯示的兩個值求積，并將結(jié)果顯示在Label3中。以下不能實(shí)現(xiàn)上述功能的事件過程是
（A）Private Sub Command1_Click()
Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption))
End Sub
�。˙）Private Sub Command1_Click()
Label3.Caption = HScroll1.Value * HScroll2.Value
End Sub
（C）Private Sub Command1_Click()
Label3.Caption = HScroll1 * HScroll2
End Sub
�。―）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】 ）
�。ˋ）4 （B）8 （C）16 （D）32
7． 在窗體上畫一個名稱為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)容是
�。ˋ）15 （B）18 （C）21 （D）24
8． 以下語句的輸出結(jié)果是（ 【70】 ）
a = “BeiJing”
b = “ShangHai”
Print a;b
以下結(jié)果中，“ □ ”表示空格：
�。ˋ）BeiJing□ShangHai （B）BeiJingShangHai
�。–）BeiJingShangHai□ （D）BeiJing□ShangHai□
9． 下面程序共執(zhí)行了（ 【71】 ）次循環(huán)。
Dim Intsum As Integer , i As Integer , j As Integer
i = 1 : j = 1
Do
Do
Intsum = Intsum + j
j = j + 2
Print j;
Loop Until j > 3
i = i + 1
Loop Until i > 11
Print Intsum
（A）10 （B）11 （C）12 （D）13
10． 下列程序執(zhí)行后，變量x的值為（ 【72】 ）
Dim a , b , c , d , x As Single
a = 200 : b = 100 : c = 500
If b > a Then
d = a : a = b : b = d
End If
If b > c Then
x = b
ElseIf a > c Then
x = c
Else
x = a
End If
Print x
�。ˋ）0 （B）100 （C）200 （D）500
【計(jì)算機(jī)等級考試二級VB考前練習(xí)】相關(guān)文章：
2015全國計(jì)算機(jī)等級考試二級VB考前輔導(dǎo)：VB的啟動與退出10-11
2016年計(jì)算機(jī)二級考試《VB》考前練習(xí)題08-05
2017計(jì)算機(jī)二級VB考前練習(xí)題及答案07-13
計(jì)算機(jī)等級考試二級Access考前試題09-19
2016計(jì)算機(jī)二級考試VB考前沖刺題06-18
2016年12月計(jì)算機(jī)二級VB考前練習(xí)08-19
2016年12月計(jì)算機(jī)二級VB考前模擬練習(xí)05-22
2015年計(jì)算機(jī)等級考試二級VB模擬試題08-12