選修操作歷年真題剖析

輸出圖案題型

1、打開“161”文件夾中的文件“工程1.vbp"，進(jìn)行以下操作后并保存！

(1)在窗體"Forml.frm”中,設(shè)置"Commandl”按鈕的“Caption”屬性值為“繪圖”;

(2)完善程序，單擊“繪圖”按鈕，使之打印出如下圖形。

注：①運行時，把紅色下劃線刪除

②不能刪除注釋語句

PrivateSubCommandl_Click()

DimiAsInteger,jAsInteger

Fori=1To5_?第一空

PrintSpace(i-1);'輸出空格

Forj=1To6-i

Print'第二空

Nextj

Print

Nexti'第三空

EndSub

2、打開“162”文件夾中的文件“工程l.vbp"，進(jìn)行以下操作后并保存！

(1)在窗體"Forml.frm”中，設(shè)置“Commandl”按鈕的“Caption”屬性值為“繪圖”；

(2)完善程序，單擊“繪圖”按鈕，使其能輸出如下圖形。

注：①運行時，把紅色下加線刪除

②不能刪除注釋語句

PrivateSubCommand1_Click()

DimiAsInteger,jAsInteger

Fori=1To4'第一空

PrintSpace(i-1);，打印空格

Forj=1To5

Print'第二空

Nextj

Print

nexti，第三空

EndSub

3、打開“工程Lvbp”進(jìn)行以下操作后并保存！

(1)在窗體"Forml.frm”中，設(shè)置“Commandl”按鈕的“Caption”屬性值為“繪圖”;

(2)完善程序，單擊“繪圖”按鈕，使之輸出如下圖形(由“A”組成)。

注：①運行時，把紅色下劃線刪除

②不能刪除注釋語句

PrivateSubCommand1_Click()

Fori=1To5_第一空

PrintSpace(i);'輸出空格

Forj=iTo5

Print"A";'第二空

Nextj

Print

Nexti，第三空

EndSub

判斷結(jié)果型

1、打開“163”文件夾中的文件“工程1.vbp”，進(jìn)行以下操作后并保存！

(1)在窗體"Forml.frm”中，設(shè)置“Command1”按鈕的“Caption”屬性值為“判斷”;

(2)完善程序，使之能夠?qū)崿F(xiàn)如下功能：在“輸入數(shù)”文本框中輸入一個數(shù)，單擊“判斷”

按鈕，在“判斷值”中顯示“正數(shù)”或“負(fù)數(shù)”，輸入零則顯示“輸入數(shù)值為0,請重新輸入！

注：①運行時，把紅色下劃線刪除

②不能刪除注釋語句

PrivateSubCommandl_Click()

Dimx

x=Vai(Textl.Text)

Ifx=0Then'第一空

Label3.Caption=〃輸入數(shù)值為3請重新輸入！〃

Else

If_x>0Then'第二空

Labe13.Caption=〃正數(shù)〃

Else

Labe13.Caption=〃負(fù)數(shù)〃

Endif'第三空

EndIf

EndSub

2、打開“164”文件夾中的文件“工程1.vbp”，進(jìn)行以下操作后并保存??！

(1)在窗體"Forml.frm”中,設(shè)置"Commandl”按鈕的“Caption”屬性值為“查找”；

(2)設(shè)計程序：在三個文本框分別輸入語文、數(shù)學(xué)、英語成績，點擊“查找”按鈕后,

在“最高分''中輸出三門課成績的最高分。

注：①運行時，把紅色下劃線刪除

②不能刪除注釋語句

PrivateSubCommandlClick()

Dimyw,sx,yy,gf

yw=Vai(Textl.Text)

sx=Vai(Text2.Text)

yy=Vai(Text3.Text)

Ifyw>sxThen

gf=yw

Else

gf=sx，第一空

EndIf

Ifgf<yyThen

gf二yy'第二空

Else

gf=gf

endif'第三空

Label5.Caption二gf

EndSub

3、打開“165”文件夾中的文件“工程Lvbp”，進(jìn)行以下操作后并保存！

(1)在窗體"Forml.frm”中，設(shè)置“Commandl”按鈕的“Caption”屬性值為“評價”；

(2)完善程序，某一路段在車輛限速，當(dāng)車速在80公里/每小時以上時為“超速行駛”

(包括80),當(dāng)車速在80公里/每小時以下時為“正常行駛”。完善程序，在“輸入車

速”文本框中輸入一個數(shù)值，在“評價”中顯示“請注意，您是超速行駛！”或“車輛

在正常行駛！”。

注：①運行時，把紅色下劃線刪除

②不能刪除注釋語句

車速測量:程序

?人車選忸公U/小畔

得價靖注意,怎給風(fēng)速行較1

PrivateSubCommandl_Click()

DimaAsSingle'定義變量a

cs=Vai(Textl.Text)

Ifcs>=80Then'第一空

Label3.Caption=〃請注意，您是超速行駛！〃

else'第二空

Label3.Caption=〃車輛在正常行駛！〃

endif'第三空

EndSub

4、打開“169”文件夾中的文件“工程l.vbp”，進(jìn)行以下操作后并保存！

(1)在窗體"Forml.frm”中，設(shè)置"Commandl”按鈕的"Caption”屬性值為"測試”；

(2)依照中華人民共和國《機動車駕駛員駕車時血液中酒精含量規(guī)定》，血液中酒精

含量大于或等于0.3mg/ml駕駛機動車的屬酒后駕車；大于或等于駕駛機動車的屬

醉酒駕車。完善程序，當(dāng)輸入“酒精量”單擊“測試”按鈕時，在“評價”中顯示評價說明。

注：①運行時，把紅色下劃線刪除

②不能刪除注釋語句

酢酒牌車評估程序

AM1|0-8

評價你屬于■后口拿!

PrivateSubCommandl_Click()

DimxAsSingle

x=Vai(Textl.Text)

Ifx>=lThen'第一空

Label3.Caption="你屬于醉酒駕車！”

Else

Ifx>=0.3Then

Label3.Caption="你屬于酒后駕車!”

else'第二空

Label3.Caption="你沒有違規(guī)駕駛!”

EndIf

Endi「，第三空

EndSub

5、打開“D:\ExamData292”文件夾中的文件：“工程1.vbp”進(jìn)行以下

操作后并保存！

(1)在窗體"Forml.frm”中，設(shè)置“Commandl”按鈕的“Caption”屬性值為“判斷”；

(2)完善程序，在“輸入數(shù)值”的文本框中輸入一個100以內(nèi)的正整數(shù)(包括100不包

括0),單擊“判斷”按鈕，在“判斷奇偶性”中顯示是“奇數(shù)”還是“偶數(shù)”，當(dāng)輸入大于

100的整數(shù)或小于等于0的整數(shù)時則顯示“輸入的整數(shù)不在范圍內(nèi)

注：①運行時，把紅色下劃線刪除

②不能刪除注釋語句

PrivateSubCommandI_Click()

DimxAsInteger

x=Val(Textl.Text)

Ifx<=0Orx>100Then，第一空

Label3.Caption="輸入的整數(shù)不在范圍內(nèi)”

Else

Ifx\2v>x/2Then'第二空

Label3.Caption二“奇數(shù)”

Else

Label3.Caption="偶數(shù)"

El山T第三空

EndIf

EndSub

6、打開“工程l.vbp”進(jìn)行以下操作后并保存！

（1）在窗體"FormLfrm”中，設(shè)置“Commandl”按鈕的“Caption”屬性值為“測試”；

（2）完善程序，在“輸入正整數(shù):“文本框中輸入一個正整數(shù)，判斷該是否是“素數(shù)”,

在“判斷：”中顯示“是素數(shù)”或“不是素數(shù)”。（素數(shù)是一個大于1的自然數(shù)，除了1和它

本身外，不能被其他自然數(shù)整除。）

注：①運行時，把紅色下劃線刪除

②不能刪除注釋語句

PrivateSubCommand1_Click()

DimaAsSingle,iAsInteger，定義變量a,i

a=Val(Textl.Text)

i=2第一空

DoUntil(aModi=0)Or(i=a-1)

i=i+1

loop'第二空

IfaModi=0ThenLabel3.Caption二"不是素數(shù)"ElseLabel3.Caption="是素數(shù)”第三空

EndSub

累算型

1、打開“166”文件夾中的文件“工程Lvbp”，進(jìn)行以下操作后并保存！

(1)在窗體"Forml.frm”中，設(shè)置“Commandl”按鈕的“Caption”屬性值為“計算”；

(2)完善程序,使其能輸出:2+4+6+8...+100的值。單擊“計算”按鈕時，在“輸出值”中

輸出總值。

注：①運行時，把紅色下劃線刪除

②不能刪除注釋語句

PrivateSubCommandl_Click()

DimsAsInteger,iAsInteger

S=0，第一空

Fori=2To100Step_2_'第二空

S=s+i'第三空

Nexti

Label2.Caption=s

EndSub

2、打開“167”文件夾中的文件“工程l.vbp"，進(jìn)行以下操作后并保存！

(1)在窗體"Forml.frm”中，設(shè)置“Commandl”按鈕的“Caption”屬性值為“求值”；

(2)完善程序，使其能輸出：1+3+5+7...+99的值。單擊“求值”按鈕時,在“輸出值”

中輸出總值。

注：①運行時，把紅色下劃線刪除

②不能刪除注釋語句

PrivateSubCommandl_Click()

DimsAsInteger

DimiAsInteger

s-_0_，第一空

Fori=1To99Step'第二空

s=s+i

nexti，第三空

Label2.Caption二s

EndSub

3、打開“168”文件夾中的文件“工程l.vbp"，進(jìn)行以下操作后并保存！

(1)在窗體"Forml.frm”中，設(shè)置“Commandl”按鈕的“Caption”屬性值為“求值”；

(2)完善程序，求s=lX3X5…X(2nT)。單擊“求值”按鈕時，輸入n值，則在“輸出值”

中輸出總值。

注：①運行時，把紅色下劃線刪除

②不能刪除注釋語句

PrivateSubCommandl_Click()

DimsAsInteger,iAsInteger,nAsInteger

n=Vai(Textl.Text)

s二L'第一空

Fori=1To2*n-1Step2_J第二空

s=s*i'第三空

Nexti

Label2.Caption=s

EndSub

4、打開“295”文件夾中的文件：”工程l.vbp”進(jìn)行以下操作后并保存！

(1)在窗體"Forml.frm”中，設(shè)置“Commandl”按鈕的“Caption”屬性值為“計算”；

(2)完善程序，求s=lX2+2X3…+nX(n+l)(n取正整數(shù))。在“請輸入正整數(shù)n值”后的文

本框中輸入一個正整數(shù)，單擊“計算”按鈕時，則在“輸出值”中輸出總值。

注：①運行時，把紅色下劃線刪除

②不能刪除注釋語句

PrivateSubCommandl_Click()

DimnAsInteger,sAsDouble

n=Val(Textl.Text)

s=￡第一空

Fori=1Ton_'第二空

s=s+i*(i+l)'第三空

Nexti

Label2.Caption=s

EndSub

查找型

1、打開“164”文件夾中的文件“工程l.vbp"，進(jìn)行以下操作后并保存??！

(1)在窗體"Forml.frm”中，設(shè)置“Commandl”按鈕的“Caption”屬性值為“查找”；

(2)設(shè)計程序：在三個文本框分別輸入語文、數(shù)學(xué)、英語成績，點擊“查找”按鈕后,

在“最高分”中輸出三門課成績的最高分。

注：①運行時，把紅色下劃線刪除

②不能刪除注釋語句

■Forai

最高分查找程序

I

語文F一分

數(shù)學(xué)P一分

英語區(qū)—分

星高分88分

查找

PrivateSubCommandl_Click()

Dimyw,sx,yy,gf

yw=Vai(Textl.Text)

sx=Vai(Text2.Text)

yy=Vai(Text3.Text)

Ifyw>sxThen

gf=yw

Else

止sx，第一空

EndIf

Ifgf<yyThen

gf=yy'第二空

Else

gf=gf

endif'第三空

Label5.Caption=gf

EndSub

2、打開“293”文件夾中的文件：“工程l.vbp”進(jìn)行以下操作后并保存！

(1)在窗體"Forml.frm”中，設(shè)置uCommand1"按鈕的"Caption”屬性值為“查

找”；

(2)完善程序，打印出100以內(nèi)(包括100)能被3和7同時整除的正整數(shù)，單擊“查找”

按鈕時，在列表框中顯示出所有滿足條件的數(shù)。

注：①運行時，把紅色下劃線刪除

②不能刪除注釋語句

?FOLMI

查找滿足條件的數(shù)

查找100以內(nèi)同時能被3和7整除的數(shù)

21

■42

63

84

查找

PrivateSubCommandl_Click()

DimxAsInteger

Forx=20To100'第一空

IfxMod3=0andxMod7=0Then'第二空

Listl.AdditemStr(x)

Endif'第三空

Nextx

EndSub

3、打開“工程l.vbp”進(jìn)行以下操作后并保存！

(1)在窗體"Forml.frm”中，設(shè)置“Commandl”按鈕的“Caption”屬性值為“查找”；

(2)完善程序，使之能夠?qū)崿F(xiàn)如下功能：輸入十位學(xué)生姓名和百米成績查找出跑得

最快的學(xué)生姓名及成績。

在“輸入學(xué)生姓名和百米成績”列表框中顯示十位同學(xué)姓名和比賽成績，單擊“查找”

按鈕，在“第一名”下面顯示“學(xué)生姓名”及“成績”。(假設(shè)輸入的學(xué)生成績都不相同)

注：①運行時，把紅色下劃線刪除

②不能刪除注釋語句

?Foral

判斷誰跑得最快？

輸入孕生姓名和百米成績第一名

1ihan9.8

lilra*

liqian(

lixin

lih*n

xhiyin

sh?ncj>n

xh?nchu?

1b—W5

th?nshuo

查找

DimiAsInteger,xAsSingle,mAsString,fristAsSingle,MingAsString

frist=1000'設(shè)置變量最大初值

Fori=1To10'第一空

m=InputBox("輸入學(xué)生姓名”)

Listl.Additemm

x=Val(InputBox("輸入成績”))

List2.AddItemx

Ifx<fristThen

frist=2^第二空

Ming=m

Endif'第三空

Nexti

Label3.Caption=Ming+”+Str(frist)

EndSub

4、打開“工程l.vbp”進(jìn)行以下操作后并保存！

(1)在窗體"Forml.frm”中，設(shè)置uCommand1"按鈕的"Caption”屬性值為“查

找”；

(2)藁善程序，使之能夠?qū)崿F(xiàn)如下功能：輸入十位學(xué)生姓名和跳遠(yuǎn)成績查找出跳得

最遠(yuǎn)的學(xué)生姓名及成績。在“輸入學(xué)生姓名和跳遠(yuǎn)成績”列表框中顯示十位同學(xué)姓

名和比賽成績，單擊''查找”按鈕，在“第一名”下面顯示“學(xué)生姓名”和“成績”。

(假設(shè)輸入的學(xué)生成績都不相同)

注：①運行時，把紅色下劃線刪除

②不能刪除注釋語句

DimiAsInteger,xAsSingle,mAsString,firstAsSingle,MingAsString

first=0'設(shè)置變量最小初值

Fori=1To10'第一空

m=InputBox("輸入學(xué)生姓名”)

List1.Additemm

x=Val(InputBox("輸入成績”))

List2.AddItemx

Ifx>firstThen，第二空

first=x

Ming=m

EndIf

Nexti第三空

LabeB.Caption=Ming+"”+Str(first)

EndSub

分制轉(zhuǎn)換型

1、打開“296”文件夾中的文件：“工程l.vbp”進(jìn)行以下操作后并保存！

(1)在窗體"Forml.frm”中，設(shè)置“Co