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