06-11高校等考預(yù)測試題與真題對比------- 二級ＶＢ
一、ＶＢ部分?jǐn)?shù)據(jù)統(tǒng)計
真題 預(yù)測題 知識點(diǎn)
選擇第1題 第四套選擇第9題 文本框獲得焦點(diǎn)方法
選擇第2題 第四套選擇第8題 獲得滾動條當(dāng)前值
選擇第3題 第五套選擇第5題 文件打開方式
選擇第4題 第四套選擇第9題 單選按鈕的Value屬性
選擇第6題 第二套填空第9題 時鐘控件
選擇第7題 第一套選擇第6題 圖像框的Stretch屬性
填空第1題 第四套選擇第10題 圖片裝入函數(shù)
填空第2題 第四套填空第4題 對象
填空第3題 第五套填空第6題 變體類型
填空第4題 第四套填空第7題 Chr、Asc函數(shù)
填空第6題 第五套填空第8題 Mid、InStr函數(shù)
填空第9題 第五套選擇第3題 文本框的MultiLine屬性
填空第10題 第五套填空第1題 表達(dá)式運(yùn)算
運(yùn)行結(jié)果第1題 第四套運(yùn)行結(jié)果第2題 For循環(huán)嵌套
運(yùn)行結(jié)果第2題 第四套運(yùn)行結(jié)果第5題 數(shù)組值的輸出
程序填空第3題 第四套運(yùn)行結(jié)果第1題 素數(shù)判斷
程序問答第1題 第五套運(yùn)行結(jié)果第5題 函數(shù)調(diào)用
二、試題對比：
1、真題選擇第1題 預(yù)測第四套選擇第9題
考查知識點(diǎn)：文本框獲得焦點(diǎn)方法
真題選擇第1題：
1、若要在程序中使得文本框獲得焦點(diǎn)，應(yīng)該調(diào)用文本框的（1）方法。
A．TabIndex B．GotFocus C．LostFocus D．SetFocus
預(yù)測第四套選擇第9題：
9、若要在程序中使得文本框獲得焦點(diǎn)，應(yīng)該調(diào)用文本框的（9）方法。
A）TabIndex B）SetFocus C）LostFocus D）GotFocus
2、真題選擇第2題 預(yù)測第四套選擇第8題
考查知識點(diǎn)：獲得滾動條當(dāng)前值
真題選擇第2題：
2、通過（2）屬性可以獲得滾動條當(dāng)前值。
A．SmallChange B． Text C．Value D．Max
預(yù)測第四套選擇第8題：
8、通過（8）屬性可以獲得滾動條當(dāng)前值。
A）SmallChange B）Text C）Value D）Max
3、真題選擇第3題 預(yù)測第五套選擇第5題
考查知識點(diǎn)：文件打開方式
真題選擇第3題：
3、以（3）訪問方式打開文件時，文件指針被定位在文件末尾。
A．Output B．Append C．Input D．Random
預(yù)測第五套選擇第5題：
5、以（5）讀寫方式打開文件時，文件指針被定位在文件末尾。
A）Output B）Input C）Append D）Random
4、真題選擇第4題 預(yù)測第五套選擇第9題
考查知識點(diǎn)：單選按鈕的Value屬性
真題選擇第4題：
4、若在程序運(yùn)行時某單選按鈕被選中，則屬性Value的值為（4）。
A．True B．1 C．0 D．False
預(yù)測第五套選擇第9題：
9、若在程序運(yùn)行時某單選鈕被選中，則屬性Value的值為（9）。
A）0 B）1 C）True D）False
5、真題選擇第6題 預(yù)測第二套填空第9題
考查知識點(diǎn)：時鐘控件
真題選擇第6題：
6、在窗體上畫一個名稱為Timer1的計時器控件，要求每隔0.5秒發(fā)生一次計時器事件，則以下正確的屬性設(shè)置語句是（6）。
A．Timer1.InterVal=0.5 B．Timer1.Interval=500
C．Timer1.Interval=50 D．Timer1.Interval=5
預(yù)測第二套填空第9題：
9、語句：timer1.Interval=900(Timer1為窗體中的一個Timer控件)中的900指的是 （10） 。
6、真題選擇第7題 預(yù)測第一套選擇第6題
考查知識點(diǎn)：圖像框的Stretch屬性
真題選擇第7題：
7、圖像框（Image）有一個屬性，可以自動調(diào)整圖形的大小，以適應(yīng)圖像框的尺寸，這個屬性是（7）。
A．AutoSize B．AutoRedraw C．Stretch D．Appearance
預(yù)測第一套選擇第6題：
6、圖像框（Image）的Stretch性，可以自動調(diào)整圖形的大小，以適應(yīng)圖像框的尺寸，要想使圖象自動放大或縮小，應(yīng)將該屬性設(shè)置為（）
A．True B．False C．1 D．0
7、真題填空第1題 預(yù)測第四套選擇第10題
考查知識點(diǎn)：圖片裝入函數(shù)
真題填空第1題：
在程序運(yùn)行過程中，如果要在PictureBox圖片框中裝入圖片，則應(yīng)使用函數(shù) （1） 。
預(yù)測第四套選擇第10題：
10、在程序運(yùn)行時使圖片框中裝入指定圖片，應(yīng)使用函數(shù)（10）
A）Inputbox B）Msgbox
C）Open D）Loadpicture
8、真題填空第2題 預(yù)測第四套填空第4題
考查知識點(diǎn)：對象
真題填空第2題：
Visual Basic程序設(shè)計中，通過對象的一組 （2） 描述其特性，把能被對象識別的動作稱為事件。
預(yù)測第四套填空第4題：
4、VB程序設(shè)計中，通過對象的一組（4） 描述其特性，把能被對象識別的動作稱為（5） .
9、真題填空第3題 預(yù)測第五套填空第6題
考查知識點(diǎn)：變體類型
真題填空第3題：
對于Visual Basic中沒有顯示聲明的變量，其默認(rèn)類型為 （3） 。
預(yù)測第五套填空第6題：
6、對于VB中沒有顯示聲明的變量，其默認(rèn)類型為 （7）
10、真題填空第4題 預(yù)測第四套填空第7題
考查知識點(diǎn)：Chr、Asc函數(shù)
真題填空第4題：
語句：Print Chr$ (Asc( "a") – 32)運(yùn)行的輸出結(jié)果為 （4） 。
預(yù)測第四套填空第7題：
7、Print chr$ ( asc ( "a" ) - 32 ) 運(yùn)行結(jié)果為 （8） 。
11、真題填空第6題 預(yù)測第五套填空第8題
考查知識點(diǎn)：Mid、InStr函數(shù)
真題填空第6題：
6、設(shè)有如下程序段：
a$="BeijingShanghai"
b$=Mid(a$,InStr(a$,"g")+1)
執(zhí)行上面的程序段后，變量b$的值為 （6） 。
預(yù)測第五套填空第8題：
8、某事件過程中有語句 Print Mid$("Min gong", Instr("Min gong","g")+1) ，程序運(yùn)行后觸發(fā)該事件將會在窗體上顯示結(jié)果 （10） 。
12、真題填空第9題 預(yù)測第五套選擇第3題
考查知識點(diǎn)：文本框的MultiLine屬性
真題填空第9題：
9、在程序運(yùn)行中，如果要使得用戶無法編輯文本框中的內(nèi)容，只能瀏覽，應(yīng)設(shè)置文本框的 （9） 屬性。
預(yù)測第五套選擇第3題：
3、要使程序運(yùn)行時禁止用戶編輯文本框中的文本，但是可以瀏覽，則其（3）屬性必須設(shè)置為True
A）Enabled B）Locked C）Visible D）MultiLine
13、真題填空第10題 預(yù)測第五套填空第1題
考查知識點(diǎn)：表達(dá)式運(yùn)算
真題填空第10題：
10、語句Print Int(12345.6789 * 100 + 0.5) / 100的輸出結(jié)果是 （10） 。
預(yù)測第五套填空第1題：
1、VB表達(dá)式Int( 28.3689*100 +0.5)/100的值是 （1） 。
14、真題運(yùn)行結(jié)果第1題 預(yù)測第四套運(yùn)行結(jié)果第2題
考查知識點(diǎn)：For循環(huán)嵌套
真題運(yùn)行結(jié)果第1題：
Private Sub Command1_Click()
Dim i As Integer, j As Integer, Sum As Integer, k As Integer
Sum = 0
For i = 1 To 5
k = 0
For j = 1 To i
k = k + j
Next j
Sum = Sum + k
Next i
Print "Sum="; Sum
End Sub
預(yù)測第四套運(yùn)行結(jié)果第2題：
2、程序2
Private Sub Command1_Click()
Dim s As Integer , p as Integer
s=0
For m=1 To 5
p=0
For n=1 To m
p=p+n
Next n
s=s+p
Next m
Print "s="; s
End Sub15、真題運(yùn)行結(jié)果第2題 預(yù)測第四套運(yùn)行結(jié)果第5題
考查知識點(diǎn)：數(shù)組值的輸出
真題運(yùn)行結(jié)果第2題：
２、程序２
Private Sub Command1_Click()
Dim a(5) As Integer, i As Integer, j As Integer
For i = 1 To 5
a(i) = 2 * i - 1
Next i
For i = 1 To 4
For j = i + 1 To 5
If a(i) < a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
For i = 1 To 5
Print a(i);
Next i
End Sub
預(yù)測第四套運(yùn)行結(jié)果第5題：
5、程序5
Private Sub Command1_Click()
Dim a(5) As Integer
For m = 1 To 5
a(m) = 2 * m - 1
Next m
For m = 1 To 4
For n = m + 1 To 5
If a(m) < a(n) Then t = a(m): a(m) = a(n): a(n) = t
Next n
Next m
For m = 1 To 5
Print a(m);
Next m
End Sub
16、真題程序填空第3題 預(yù)測第四套運(yùn)行結(jié)果第1題
考查知識點(diǎn)：素數(shù)判斷
真題程序填空第3題：
3、以下程序段用于從鍵盤輸入一個整數(shù)，判斷其是否為素數(shù)，是則在窗體上輸出“Yes”，否則在窗體上輸出“No”。
Private Sub Command1_Click()
Dim w As Boolean, x As Integer
x = Val(InputBox("請輸入整數(shù)x( X>2) :"))
w = True
k = 2
Do While k < > x And w = （7）
If x Mod k = 0 Then
w = False
（8）
k = （9）
Loop
If w Then
Print "Yes"
Else
Print "No"
End If
End Sub
預(yù)測第四套運(yùn)行結(jié)果第1題：
1、程序1
Private Sub Command1_Click()
Dim w As Boolean
x=Val(InputBox("請輸入整數(shù)x( X>2) :"))
w=True : k=2
DO
If x mod k =0 Then w=False
k=k+1
Loop Until k=x Or w=False
If w Then Print "Yes" Else Print "NO"
End Sub
輸入5
17、真題程序問答第1題 預(yù)測第五套運(yùn)行結(jié)果第5題
考查知識點(diǎn)：函數(shù)調(diào)用
真題程序問答第1題：
1、程序1
Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
x = 10
y = 20
Call s(x, y)
Print x, y
End Sub
Private Sub s(a As Integer, ByVal b As Integer)
a = a + 5
b = a + b
End Sub
問題1（2分）：寫出程序運(yùn)行結(jié)果。
問題2（2分）：語句Call s(x, y)的作用是調(diào)用子過程s，寫出調(diào)用子過程s的另一種形式。
預(yù)測第五套運(yùn)行結(jié)果第5題：
5、程序5
Private Sub Command1_Click()
Static x As Integer
Dim y As Integer
x = 10
y = 20
Call s(x, y)
Print x, y
End Sub
Private Sub s(a As Integer, ByVal b As Integer)
a = a + 5
b = a + b
End Sub
一、ＶＢ部分?jǐn)?shù)據(jù)統(tǒng)計
真題 預(yù)測題 知識點(diǎn)
選擇第1題 第四套選擇第9題 文本框獲得焦點(diǎn)方法
選擇第2題 第四套選擇第8題 獲得滾動條當(dāng)前值
選擇第3題 第五套選擇第5題 文件打開方式
選擇第4題 第四套選擇第9題 單選按鈕的Value屬性
選擇第6題 第二套填空第9題 時鐘控件
選擇第7題 第一套選擇第6題 圖像框的Stretch屬性
填空第1題 第四套選擇第10題 圖片裝入函數(shù)
填空第2題 第四套填空第4題 對象
填空第3題 第五套填空第6題 變體類型
填空第4題 第四套填空第7題 Chr、Asc函數(shù)
填空第6題 第五套填空第8題 Mid、InStr函數(shù)
填空第9題 第五套選擇第3題 文本框的MultiLine屬性
填空第10題 第五套填空第1題 表達(dá)式運(yùn)算
運(yùn)行結(jié)果第1題 第四套運(yùn)行結(jié)果第2題 For循環(huán)嵌套
運(yùn)行結(jié)果第2題 第四套運(yùn)行結(jié)果第5題 數(shù)組值的輸出
程序填空第3題 第四套運(yùn)行結(jié)果第1題 素數(shù)判斷
程序問答第1題 第五套運(yùn)行結(jié)果第5題 函數(shù)調(diào)用
二、試題對比：
1、真題選擇第1題 預(yù)測第四套選擇第9題
考查知識點(diǎn)：文本框獲得焦點(diǎn)方法
真題選擇第1題：
1、若要在程序中使得文本框獲得焦點(diǎn)，應(yīng)該調(diào)用文本框的（1）方法。
A．TabIndex B．GotFocus C．LostFocus D．SetFocus
預(yù)測第四套選擇第9題：
9、若要在程序中使得文本框獲得焦點(diǎn)，應(yīng)該調(diào)用文本框的（9）方法。
A）TabIndex B）SetFocus C）LostFocus D）GotFocus
2、真題選擇第2題 預(yù)測第四套選擇第8題
考查知識點(diǎn)：獲得滾動條當(dāng)前值
真題選擇第2題：
2、通過（2）屬性可以獲得滾動條當(dāng)前值。
A．SmallChange B． Text C．Value D．Max
預(yù)測第四套選擇第8題：
8、通過（8）屬性可以獲得滾動條當(dāng)前值。
A）SmallChange B）Text C）Value D）Max
3、真題選擇第3題 預(yù)測第五套選擇第5題
考查知識點(diǎn)：文件打開方式
真題選擇第3題：
3、以（3）訪問方式打開文件時，文件指針被定位在文件末尾。
A．Output B．Append C．Input D．Random
預(yù)測第五套選擇第5題：
5、以（5）讀寫方式打開文件時，文件指針被定位在文件末尾。
A）Output B）Input C）Append D）Random
4、真題選擇第4題 預(yù)測第五套選擇第9題
考查知識點(diǎn)：單選按鈕的Value屬性
真題選擇第4題：
4、若在程序運(yùn)行時某單選按鈕被選中，則屬性Value的值為（4）。
A．True B．1 C．0 D．False
預(yù)測第五套選擇第9題：
9、若在程序運(yùn)行時某單選鈕被選中，則屬性Value的值為（9）。
A）0 B）1 C）True D）False
5、真題選擇第6題 預(yù)測第二套填空第9題
考查知識點(diǎn)：時鐘控件
真題選擇第6題：
6、在窗體上畫一個名稱為Timer1的計時器控件，要求每隔0.5秒發(fā)生一次計時器事件，則以下正確的屬性設(shè)置語句是（6）。
A．Timer1.InterVal=0.5 B．Timer1.Interval=500
C．Timer1.Interval=50 D．Timer1.Interval=5
預(yù)測第二套填空第9題：
9、語句：timer1.Interval=900(Timer1為窗體中的一個Timer控件)中的900指的是 （10） 。
6、真題選擇第7題 預(yù)測第一套選擇第6題
考查知識點(diǎn)：圖像框的Stretch屬性
真題選擇第7題：
7、圖像框（Image）有一個屬性，可以自動調(diào)整圖形的大小，以適應(yīng)圖像框的尺寸，這個屬性是（7）。
A．AutoSize B．AutoRedraw C．Stretch D．Appearance
預(yù)測第一套選擇第6題：
6、圖像框（Image）的Stretch性，可以自動調(diào)整圖形的大小，以適應(yīng)圖像框的尺寸，要想使圖象自動放大或縮小，應(yīng)將該屬性設(shè)置為（）
A．True B．False C．1 D．0
7、真題填空第1題 預(yù)測第四套選擇第10題
考查知識點(diǎn)：圖片裝入函數(shù)
真題填空第1題：
在程序運(yùn)行過程中，如果要在PictureBox圖片框中裝入圖片，則應(yīng)使用函數(shù) （1） 。
預(yù)測第四套選擇第10題：
10、在程序運(yùn)行時使圖片框中裝入指定圖片，應(yīng)使用函數(shù)（10）
A）Inputbox B）Msgbox
C）Open D）Loadpicture
8、真題填空第2題 預(yù)測第四套填空第4題
考查知識點(diǎn)：對象
真題填空第2題：
Visual Basic程序設(shè)計中，通過對象的一組 （2） 描述其特性，把能被對象識別的動作稱為事件。
預(yù)測第四套填空第4題：
4、VB程序設(shè)計中，通過對象的一組（4） 描述其特性，把能被對象識別的動作稱為（5） .
9、真題填空第3題 預(yù)測第五套填空第6題
考查知識點(diǎn)：變體類型
真題填空第3題：
對于Visual Basic中沒有顯示聲明的變量，其默認(rèn)類型為 （3） 。
預(yù)測第五套填空第6題：
6、對于VB中沒有顯示聲明的變量，其默認(rèn)類型為 （7）
10、真題填空第4題 預(yù)測第四套填空第7題
考查知識點(diǎn)：Chr、Asc函數(shù)
真題填空第4題：
語句：Print Chr$ (Asc( "a") – 32)運(yùn)行的輸出結(jié)果為 （4） 。
預(yù)測第四套填空第7題：
7、Print chr$ ( asc ( "a" ) - 32 ) 運(yùn)行結(jié)果為 （8） 。
11、真題填空第6題 預(yù)測第五套填空第8題
考查知識點(diǎn)：Mid、InStr函數(shù)
真題填空第6題：
6、設(shè)有如下程序段：
a$="BeijingShanghai"
b$=Mid(a$,InStr(a$,"g")+1)
執(zhí)行上面的程序段后，變量b$的值為 （6） 。
預(yù)測第五套填空第8題：
8、某事件過程中有語句 Print Mid$("Min gong", Instr("Min gong","g")+1) ，程序運(yùn)行后觸發(fā)該事件將會在窗體上顯示結(jié)果 （10） 。
12、真題填空第9題 預(yù)測第五套選擇第3題
考查知識點(diǎn)：文本框的MultiLine屬性
真題填空第9題：
9、在程序運(yùn)行中，如果要使得用戶無法編輯文本框中的內(nèi)容，只能瀏覽，應(yīng)設(shè)置文本框的 （9） 屬性。
預(yù)測第五套選擇第3題：
3、要使程序運(yùn)行時禁止用戶編輯文本框中的文本，但是可以瀏覽，則其（3）屬性必須設(shè)置為True
A）Enabled B）Locked C）Visible D）MultiLine
13、真題填空第10題 預(yù)測第五套填空第1題
考查知識點(diǎn)：表達(dá)式運(yùn)算
真題填空第10題：
10、語句Print Int(12345.6789 * 100 + 0.5) / 100的輸出結(jié)果是 （10） 。
預(yù)測第五套填空第1題：
1、VB表達(dá)式Int( 28.3689*100 +0.5)/100的值是 （1） 。
14、真題運(yùn)行結(jié)果第1題 預(yù)測第四套運(yùn)行結(jié)果第2題
考查知識點(diǎn)：For循環(huán)嵌套
真題運(yùn)行結(jié)果第1題：
Private Sub Command1_Click()
Dim i As Integer, j As Integer, Sum As Integer, k As Integer
Sum = 0
For i = 1 To 5
k = 0
For j = 1 To i
k = k + j
Next j
Sum = Sum + k
Next i
Print "Sum="; Sum
End Sub
預(yù)測第四套運(yùn)行結(jié)果第2題：
2、程序2
Private Sub Command1_Click()
Dim s As Integer , p as Integer
s=0
For m=1 To 5
p=0
For n=1 To m
p=p+n
Next n
s=s+p
Next m
Print "s="; s
End Sub15、真題運(yùn)行結(jié)果第2題 預(yù)測第四套運(yùn)行結(jié)果第5題
考查知識點(diǎn)：數(shù)組值的輸出
真題運(yùn)行結(jié)果第2題：
２、程序２
Private Sub Command1_Click()
Dim a(5) As Integer, i As Integer, j As Integer
For i = 1 To 5
a(i) = 2 * i - 1
Next i
For i = 1 To 4
For j = i + 1 To 5
If a(i) < a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
For i = 1 To 5
Print a(i);
Next i
End Sub
預(yù)測第四套運(yùn)行結(jié)果第5題：
5、程序5
Private Sub Command1_Click()
Dim a(5) As Integer
For m = 1 To 5
a(m) = 2 * m - 1
Next m
For m = 1 To 4
For n = m + 1 To 5
If a(m) < a(n) Then t = a(m): a(m) = a(n): a(n) = t
Next n
Next m
For m = 1 To 5
Print a(m);
Next m
End Sub
16、真題程序填空第3題 預(yù)測第四套運(yùn)行結(jié)果第1題
考查知識點(diǎn)：素數(shù)判斷
真題程序填空第3題：
3、以下程序段用于從鍵盤輸入一個整數(shù)，判斷其是否為素數(shù)，是則在窗體上輸出“Yes”，否則在窗體上輸出“No”。
Private Sub Command1_Click()
Dim w As Boolean, x As Integer
x = Val(InputBox("請輸入整數(shù)x( X>2) :"))
w = True
k = 2
Do While k < > x And w = （7）
If x Mod k = 0 Then
w = False
（8）
k = （9）
Loop
If w Then
Print "Yes"
Else
Print "No"
End If
End Sub
預(yù)測第四套運(yùn)行結(jié)果第1題：
1、程序1
Private Sub Command1_Click()
Dim w As Boolean
x=Val(InputBox("請輸入整數(shù)x( X>2) :"))
w=True : k=2
DO
If x mod k =0 Then w=False
k=k+1
Loop Until k=x Or w=False
If w Then Print "Yes" Else Print "NO"
End Sub
輸入5
17、真題程序問答第1題 預(yù)測第五套運(yùn)行結(jié)果第5題
考查知識點(diǎn)：函數(shù)調(diào)用
真題程序問答第1題：
1、程序1
Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
x = 10
y = 20
Call s(x, y)
Print x, y
End Sub
Private Sub s(a As Integer, ByVal b As Integer)
a = a + 5
b = a + b
End Sub
問題1（2分）：寫出程序運(yùn)行結(jié)果。
問題2（2分）：語句Call s(x, y)的作用是調(diào)用子過程s，寫出調(diào)用子過程s的另一種形式。
預(yù)測第五套運(yùn)行結(jié)果第5題：
5、程序5
Private Sub Command1_Click()
Static x As Integer
Dim y As Integer
x = 10
y = 20
Call s(x, y)
Print x, y
End Sub
Private Sub s(a As Integer, ByVal b As Integer)
a = a + 5
b = a + b
End Sub