計算機(jī)VB大題訓(xùn)練集

評分規(guī)章如下：

所建控件所在工程得分：4分

所建的窗體得分：11分

控件設(shè)計滿分：15分

1.在考生文件夾中，完成以下要求：

（1）啟動工程文件Sjt.Vbp,將該工程文件的工程名稱改為“Spks”,并將該_L程中的窗體文件Sjt.frm

的窗體名稱改為“vbbc”，窗體的標(biāo)題為“二級VB考試二

（2）在窗體上增加以下控件:定時器Timeri,時間間隔值為10；圖片框Picture1；標(biāo)簽Label」放

置在圖片框中，標(biāo)簽的大小自動調(diào)整；標(biāo)簽Label2的標(biāo)題為“快”；文本框Textl放置在圖片框

下方；水平滾動條"Scroll1,最小值為0,最大值為100。

（3）按如下要求編寫代碼：

文本框中輸入的字符自動顯示為標(biāo)簽的標(biāo)題；標(biāo)簽自動向左移動，移出圖片框后又從右邊進(jìn)入（提示:

編程使得當(dāng)標(biāo)簽的LeftGlOOO時，重置Left=10000）；拖動水平滾動條時，將調(diào)整移動的速度。

（4）請先調(diào)試、運(yùn)行，然后將工程、窗體保存。

參考程序如下：

PrivateSubHScrolll_Change（）

Timcrl.Interval=HScroill.Value

EndSub

PrivateSubTcxtl_Changc（）

LabelI.C叩lion=Textl.Text

EndSub

PrivateSubTimerl_Timer（）

LabelI.Left=Liibel1.Left-100

IfLabel1.Left<-1000ThenLabel1.Left=10000

EndSub

2.在考生文件夾中，完成以下要求：

（1）啟動工程文件Sjt.Vbp,將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件

Sjt.frm的窗體名稱改為“vbbe”。

（2）請在適當(dāng)位置添加控件:三個標(biāo)簽,Label1標(biāo)題為“姓名:"，Label2標(biāo)題為“籍貫：”，La位13

標(biāo)題為空；一個框架Framel標(biāo)題為“性別”；兩個單選按鈕在框架Framel中，Optionl標(biāo)題為

“男”，Style屬性為1巨為選中狀態(tài),0ption2標(biāo)題為“女”，Style屬性為1；一個文本框Textl

內(nèi)容為空，且Tabindex屬性值為0；一個列表框Listl；一，個命令按鈕Commandl,標(biāo)題為“確

定”。（以上操作在屬性窗口中完成）

（3）在窗體模塊中聲明全局變量xb,jg；在窗體的裝載大事中完成：列表框添加三項內(nèi)容：''北京”，

“上?！保昂戏省保摇氨本边x項默認(rèn)被選中，xb變量的初始值為“男”。

⑷按如下要求編寫代碼：選中Optionl時，為變量xb賦值為“男”；選中0ption2時，為變量xb

賦值為“女”；選中列表框的某一項時，把選中的內(nèi)容賦值給jg（要求在列表框的Click大事

中實(shí)現(xiàn)）；單擊按鈕Commandl時,在Label3中順次顯示姓名（Textl中的內(nèi)容），籍貫（變量jg

的值），性別（變量xb的值）。

運(yùn)行后如圖所示：

(5)請先調(diào)試、運(yùn)行，然后將工程、窗體保存。

參考程序如下，

Publicjg,xb

PrivateSubCommandl_Click()

Label3.Caption=Text1.Text&"："&jg&&xb

EndSub

PrivateSubFonn_Load()

List1.Additem"北京"

List1.Additem"上海”

List1.Additem”合肥”

xb二“男”

List1.Listindex=0

EndSub

PrivateSubListl_Click()

jg=List1.Text

EndSuh

PrivateSubOptionl_Click()

xb="男"

EndSub

PrivateSubOption2_Click()

xb="女"

EndSub

3.在考生文件夾中，完成以下要求：

⑴啟動工程文件Sjt.Vbp,將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件

Sjt.frm的窗體名稱改為“vbbc”o

(2)請在適當(dāng)位置添加控件:一個驅(qū)動器列表框Drivel；一個名目列表框Dir1；一個文件列表框Filel,

自動過濾出擴(kuò)展名為bmp和jpg的圖形文件；一個圖像框Imagel,其中的圖片自動匹配圖像框

的大小。(以上操作在屬性窗口中完成)

(3)按要求編寫代碼使得驅(qū)動器列表框、名目列表框和文件列表框同步工作；文件列表框中顯示擴(kuò)展

名為bmp和jpg的圖形文件；當(dāng)單擊文件列表框中的某人圖形文件時，圖像框中顯示出該圖片(可

為機(jī)器上任意擴(kuò)展名為bmp和jpg的圖形文件)。

運(yùn)行后，如下圖所示：

(4)請先調(diào)試、運(yùn)行，然后將工程、窗體保存。

參考程序如下：

PrivateSubDirl_Change()

File!.Path=Dir1.Path

EndSub

PrivateSubDrivel_Change()

Dir1.Path=Drivel.Drive

EndSub

PrivateSubFilel_Click()

IfrighKfileeLpath,1)="\"then

Strpath=filc1.path&file1.filename

Else

Strpath=file1.path&"\"&file!.filename

Endif

ImageI.Picture=LoadPicture(sirpalh)

EndSub

4.在考生文件夾中，完成以下要求：

⑴啟動工程文件Sjt.Vbp,將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件

Sjt.frm的窗體名稱改為“vbbe”。

(2)請在適當(dāng)位置添加控件：一個標(biāo)簽Labell,標(biāo)題改為“請輸入手機(jī)號：”；一個文本框Textl,其

值設(shè)為空，允許輸入的字符數(shù)最多為11個；兩個命令按鈕Commandl、Command2,標(biāo)題分別改為

“確定”、“取消”(以上操作在屬性窗口中完成)。

(3)要求窗體裝載時，文本框的值取“13”，輸入手機(jī)號碼時，一旦鍵入非數(shù)字字符，用Msgbox給出

“請輸入數(shù)字符號”的提示信息；輸入手機(jī)號碼后，單擊“確定”按鈕，假如數(shù)字符號不足11

位，用Msgbox給出“手機(jī)號碼為11位數(shù)字”的提示信息，反之，用Msgbox給出是“聯(lián)通用戶”

還是“移動用戶”或者是“空號”的判定結(jié)果(第三位數(shù)字為0、】、3是聯(lián)通用戶，5、6、7、8、

9為移動用戶，其它為“空號”，要求用SelectCase結(jié)構(gòu)實(shí)現(xiàn))；單擊“取消”按鈕可結(jié)束程

序運(yùn)行。運(yùn)行界面如下圖。

(4)請先調(diào)試、運(yùn)行，然后將工程、窗體保存。

參考程序如下：

PrivateSubCommand1_Click()

IfLen(Trim(Text1.Text))<>11Then

MsgBox("手機(jī)號為11數(shù)字”)

Text1.Text="13"

Textl.SelStart=3

text1.setfocus

Else

SelectCaseMid(Textl.Text,3,1)

Case0,1,3

MsgBox("聯(lián)通用戶”)

Case5,6,7,8,9

MsgBox(“移動用戶”)

CaseElse

MsgBox(“空號”)

EndSelect

EndIf

EndSub

PrivateSubCommand2_Click()

End

EndSub

PrivateSubFonn_Load()

Textl.Text="13"

textl.tabindcx=O

Textl.SelStart=3

EndSub

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

IfChr(KcyAscii)<"0"OrChr(KcyAscii)>"9"Then

MsgBox("請輸入數(shù)字符號”)

KeyAscii=0

EndIf

EndSub

5.在考生文件夾中，完成以下要求：

⑴啟動工程文件Sjt.Vbp,將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件

Sjt.frm的窗體名稱改為“vbbc”。

(2)請在適當(dāng)位置添加控件：一個文本框Textl,其值置為空，兩個命令按鈕Command1、Command2,

標(biāo)題分別為“添加”、“刪除"，Command2的Enabled屬性值設(shè)為假；一個列表框Li為1。(以

上操作在屬性窗口中完成)

⑶要求程序運(yùn)行時，單擊“添加”按鈕，若文本框中有內(nèi)容，則將文本框中的內(nèi)容添加到列表框中。

選中列表框中的某一項，命令按鈕“刪除”有效，單擊“刪除”按鈕可將該項刪除。運(yùn)行效果如

下圖。

(4)請先調(diào)試、運(yùn)行，然后將工程、窗體保存。

參考程序如下：

PrivateSubCommandI_Click()

IfText1.Text<>""Then

List1.AdditemText1.Text

EndIf

EndSub

PrivateSubCommand2_Click()

IfList!.Listindex<>-1Then

Listl.RemoveltemList!.Listindex

EndIf

EndSub

PrivateSubForm_Activate()

Text1.SetFocus

EndSub

PrivateSubLisll_Click()

Command2.Enabled=True

EndSub

PrivateSubTextl_Click()

Command1.Enabled=True

EndSub

6.在考生文件夾中，完成以下要求：

⑴啟動工程文件Sjt.Vbp,將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件

Sjt.frm的窗體名稱改為“vbbe”.

⑵請在適當(dāng)位置添加控件：一個標(biāo)簽Labell,標(biāo)題為“等級考試”；兩個命令按鈕Commandk

command2標(biāo)題分別為“移動”、“暫?！保珻ommand2的Enabled屬性值設(shè)為False,一個時鐘

控件Timerl,其Enabled屬性值設(shè)為False,Interval屬性值設(shè)置為500。(以上操作在屬性窗口

中完成)

(3)要求程序運(yùn)行時，單擊“移動”按鈕可使Timer】、Command2有效：時鐘控件每隔半秒觸發(fā)一次

Timer大事，該大事觸發(fā)時可將標(biāo)簽向左移動60堤，一旦整個標(biāo)簽出了窗體左端，要求標(biāo)簽再

從窗體的右端開頭移動，單擊“暫?！卑粹o可使時鐘控件失效。運(yùn)行效果如下圖。

(4)請先調(diào)試、運(yùn)行，然后將工程、窗體保存。

參考程序如下：

PrivateSubCommandl_Click()

Command?.Enabled=True

TimerI.Enabled=True

EndSub

PrivateSubCommand2_Click()

TimerI.Enabled=False

EndSub

PrivateSubTimerl_Timer()

IfLabel1.Left+Label1.Width>=0Then

Label1.Left=Label!.Left-60

Else

Label1.Left=Form1.Width

EndIf

EndSub

7.在考生文件夾中，完成以下要求：

(1)啟動工程文件Sjt.vbp,將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件Sjt.frm

的窗體名稱改為“Vbbc”。

(2)請在窗體適當(dāng)位置添加控件：一個標(biāo)簽Label1,標(biāo)題為“字體”且自動調(diào)整大小，一個組合框

ComboI；一個文本框texil,文本內(nèi)容為“計算機(jī)水平考試”，居中顯示；一個框架Framel標(biāo)題

為“顏色”；兩個單選按鈕在框架Framel中，Oplionl標(biāo)題為“紅色”，Option2標(biāo)題為“藍(lán)色”。

(以上操作在屬性窗口中完成)

(3)窗體裝教大事中編寫代碼，為組合框添加三個選項：“隸書”，“黑體”，“宋體”，且默認(rèn)選項為“隸

竹”；程序運(yùn)行時，選中組合框某項，相應(yīng)轉(zhuǎn)變義本框中的字體；選中某個單選按鈕，相應(yīng)轉(zhuǎn)變

文木框中字體的顏色；程序運(yùn)行界面如下圖所示：

(4)請調(diào)試、運(yùn)行，然后將工程、窗體保存。

參考代碼如下：

PrivateSubCombol_Click()

Textl.FontName=Combo1.Text

EndSub

PrivateSubForm_Load()

Combo1.Additem”隸書”

Combo1.Additem"黑體"

Combo1.Additem"宋體”

Combo1.Listindex=0

EndSub

PrivateSubOptionl_Click()

Text1.ForeColor=RGB(255,0,0)

'或者使用下面的語句

,Textl.ForeColor=vbRed

EndSub

PrivateSubOption2_Click()

Text1.ForeColor=RGB((),0.255)

'或者使用下面的語句

'Textl.ForeColor=vbBlue

EndSub

8.在考生文件夾中，完成以下要求：

(1)啟動工程文件Sjt.vbp,將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件Sjl.frm

的窗體名稱改為“Vbbc”。

(2)請在窗體適當(dāng)位置添加控件：一個標(biāo)簽Labell,標(biāo)題為“請輸入一個自然數(shù)”，自動調(diào)整大?。?/p>

一?個文本框textl,文本自容為空且Tabindex屬性值為0；一個命令按鈕Command1,標(biāo)題為“添

加”；一個列表框List］。［以上操作在屬性窗口中完成)

(3)按要求編寫代碼：程序運(yùn)行時，在文本框中輸入一個自然數(shù)，單擊“添加”按鈕時，首先清除列

表中的內(nèi)容，然后在列表框中列出小于等于該自然數(shù)的全部偶數(shù)。程序運(yùn)行界面如下圖所示：

(4)請調(diào)試、運(yùn)行，然后將工程、窗體保存。

參考代碼如下：

PrivateSubCommand1_click()

List1.Clear

x=Val(Tcxtl.Tcxt)

Fori=2toxStep2

Listl.Addltcmi

Nexti

EndSub

五、簡潔應(yīng)用題(每套試卷有1個簡潔應(yīng)用題，每題20分)

評分規(guī)章如下：

所建工程得分：4分

所建的窗體得分：10分

生成.exe文件：2分

生成答案文件：4分

編程題滿分：2。分

1.在考生文件夾中，完成以下要求：

(1)啟動工程文件Progl.Vbp,將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件

Progl.frm的窗體名稱改為“Progl”，窗體的標(biāo)題為“數(shù)據(jù)計算”。

(2)請在窗體適當(dāng)位置增加以下控件：一個標(biāo)簽Labcll,標(biāo)題為“計算結(jié)果”；一個文本框Textl；

兩個命令按鈕(名稱分別為C1和C2,標(biāo)題分別為“計算”和“保存”),如圖所示。

(3)編寫程序計算S的近似值，直到最終一項的肯定值小于ICT為止(要求將存放結(jié)果的變量類型定

義成單精度浮點(diǎn)型)。

(4)要求程序運(yùn)行后，單擊“計算:”按鈕，計算并將結(jié)果顯示在文本框中；最終單擊“保存”按鈕，

將結(jié)果存入考生文件夾中的文件“kssj.dat”中。

(5)在考生文件夾下有標(biāo)準(zhǔn)模塊Progl.bas,其中的Putdata過程可以把結(jié)果存入指定的文件，要求

把這個模塊文件添加到當(dāng)前的工程中，直接調(diào)用該過程。

(6)請先將工程、窗體與模塊保存，然后調(diào)試、運(yùn)行并生成可執(zhí)行文件：Progl.exe。

您的編程題模塊設(shè)計如下：(題中已在標(biāo)準(zhǔn)模塊給出的代碼)

OptionExplicit

Subputdata(t_FileNameAsString,t_StrAsVariant)

DimsFiicAsString

sFile="V&tFileName

OpenApp.Path&sFileForOutputAs#1

Print#1,t_Str

Close#1

EndSub

參考程序如下：(要求考生編寫代碼部分)

DimNasInteger,IasInteger

DimSasSingle,TasSingle

PrivateSubCI_Click()

S=1

Do

N=N+2

T=l

ForI=1ToN

T=T*I

NextI

S=S+1/T

LoopUntill/T<0.0000001

Text1.Text二S

EndSub

PrivateSubC2_Click()

Callpuldata("kssj.dat",S)

EndSub

2.在考生文件夾中，完成以下要求：

(1)啟動工程文件Progl.Vbp,將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件

Progl.frm的窗體名稱改為“Progl”，窗體的標(biāo)題為“字符串個數(shù)”。

(2)請在窗體適當(dāng)位置增加以下控件:文本框1(名稱為Tex:1,Multiline屬性為True,ScrollBars

屬性為2)；義本框2(名稱為Text2)和三個命令按鈕(名稱分別為Cl、C2和C3,標(biāo)題分別為“讀

入數(shù)據(jù)”、“顯示結(jié)果”和“保存”),如圖所示。

(3)要求程序運(yùn)行后，單擊“讀入數(shù)據(jù)”按鈕，讀入“ini.txt”文件中的內(nèi)容，同時在文本框textl

中顯示出來；然后單擊“顯示結(jié)果”按鈕，統(tǒng)計出字符串“and”消失的次數(shù)，并把結(jié)果在文本

框Text2中顯示出來：最終單擊“保存”按鈕，把該結(jié)果(Text2的值)存入考生文件夾中的文

件“kssj.dat”中。

(4)在考生文件夾下有標(biāo)準(zhǔn)模塊Progl.bas,其中的getdata過程可以讀出文件“ini.txt”中的內(nèi)

容，Putdata過程可以把結(jié)果存入指定的文件，要求把這個模塊文件添加到當(dāng)前工程中，直接調(diào)

用過程。

(5)請先將工程、窗體與模塊保存，然后調(diào)試、運(yùn)行并生成可執(zhí)行程序：Progl.exe。

您的編程題模塊設(shè)計如下：(題中已在標(biāo)準(zhǔn)模塊給出的代碼)

OptionExplicit

Subputdata(t_FilcNamcAsString,t_StrAsVariant)

DimsFileAsString

sFile=&t.FileName

OpenApp.Path&sFileForOutputAs#1

Print#1,t_Str

Close#1

EndSub

Subgeldala(t_FileNameAsString.t_S(rAsVariant)'讀文件函數(shù)

DimsFileAsString,StrnameAsString

sFile="V&t_FileName

OpenApp.Path&sFileForinputAs#1

DoWhileNotEOF(l)

LineInput#I,strname

t_Str=t_Str&strname&chr(13)&chr(10)

Loop

Close#1

參考程序如下，(要求考生編寫代碼部分)

DimCountIAsInteger

PrivateSubCl_Click()

Callge(da(a("ini.lxr,Strl)

Text1.Text=Strl

EndSub

PrivateSubC2_Click()

DimLenlAsInteger

DimiAsInteger

DimStrlAsString

Strl=Text1.Text

i=1

Lenl=Len(Textl.Texl)

Fori=1ToLen1-3

IfMid(StrI,i,3)="and1'Then

CountI=Count1+1

EndIf

Nexti

Tcxt2.Tcxt=Count!

EndSub

PrivateSubC3_Click()

putdata"kssj.dat'*,Count1

EndSub

3.在考生文件夾中，完成以下要求：

(1)啟動工程文件Progl.Vbp,將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件

Progl.frm的窗體名稱改為“Progl”。

(2)請在窗體適當(dāng)位置增加以下控件：兩個標(biāo)簽必66】1,幅匕312,標(biāo)題分別為“平均數(shù)為：”，“大

于平均數(shù)的個數(shù)為：”；三個文本框Textl,Text2,Text3；Textl的Multiline的屬性為True,

ScrollBars屬性為2,文本均為空白；兩個命令按鈕Commandl,Command2,標(biāo)題分別為：“讀數(shù)

并計算”，“保存”；將窗體標(biāo)題改為“求平均數(shù)”(如圖所示)。

(3)要求程序運(yùn)行后，單擊“讀數(shù)并計算”按鈕,則讀入“ini.txt”文件中的50個整數(shù)顯示在Textl

中，同時在Texl2中顯示這些整數(shù)的平均數(shù)，在Texl3中顯示大于平均數(shù)的個數(shù)。單百“保存”

按鈕將大于平均數(shù)的個數(shù)(Text3的值)存入考生文件夾中的文件“kssj.dat”中。

(4)在考生文件夾下有標(biāo)準(zhǔn)模塊ProgLbas,其中Getdata過程可以讀出文件“ini.txt”口的數(shù)據(jù)，

Putdata過程可以把結(jié)果存入指定的文件，要求把該模塊文件添加到當(dāng)前工程中，直接調(diào)用該過

程。

(5)請先將工程、窗體與模塊保存，然后調(diào)試、運(yùn)行并生成可執(zhí)行文件：Progl.exe。

您的編程題模塊設(shè)計如下：(題中已在標(biāo)準(zhǔn)模塊給出的代碼)

OptionExplicit

Subputdata(t_FiIcNamcAsString,t_StrAsVariant)

DimsFileAsString

sFilc="\o&t.FilcNamc

OpenApp.Path&sFileForOutputAs#1

Print#1,t_Str

Close#1

EndSub

參考程序如下：(要求考生編寫代碼部分)

PrivateSubCommandl_Click()

DimsAsInteger

DimSumAsInteger

DimAveAsSingle

DimA(50)AsInteger

DimstrNameAsString

Sum=0

Ave=0

Text1=""

sFile="\"&t_FileName

OpenApp.Path&"\ini.txt"ForInputAs#1

'讀數(shù)到數(shù)組中

DoWhileNotEOF(l)

LineInput#I,strName

i=i+1

A(i)=Val(strNamc)

Sum=Sum+A(i)

Text1.Text=Tcxtl&A(i)&Chr(13)&Chr(10)

Loop

Close#1

Ave=Sum/50

'計算大于平均數(shù)的個數(shù)

Fori=ITo50

IfA(i)>AveThen

s=s+1

EndIf

Nexti

Text2.Text=Ave

Text3.Text=s

EndSub

PrivateSubCommand2_Click()

Prints

putdata"kssj.dat'1,Text3.Text

EndSub

4.在考生文件夾中，完成以下要求：

(1)啟動工程文件Progl.Vbp,將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件

Progl.frm的窗體名稱改為“Progl”，窗體的標(biāo)題為“排序”。

(2)請在窗體適當(dāng)位置增加以下控件：兩個標(biāo)簽Labell和Label2(標(biāo)題分別為“排序之前”和“排序

之后”)；兩個列表框Listl和List2；三個命令按鈕(均為默認(rèn)名稱,標(biāo)題分別為“讀取數(shù)據(jù)”、

“排序”和“寫入文件”),如圖所示。

(3)要求：程序運(yùn)行后

(1)單擊“讀取數(shù)據(jù)”按鈕，讀入“ini.txt”文件中的50個數(shù)據(jù)，同時在列表框Lisll中示

出來

(2)單擊“排序”按鈕，在List2中顯示出從大到小的排列挨次

(3)單擊“寫入文件”按鈕，把List2中內(nèi)容存入考生文件夾中的文件“kssj.dat”中。

(4)考生文件夾下有標(biāo)準(zhǔn)模塊Progl.Bas,其中g(shù)otdata過程可以讀出文件“ini.txt”中的數(shù)據(jù)，

putdata過程可以把結(jié)果存入指定的文件，要求把這個模塊文件添加到當(dāng)前的工程中，直接調(diào)用

過程。

(5)將工程、窗體與模塊保存，然后調(diào)試、運(yùn)行并生成可執(zhí)行文件Progl.exe。

您的編程題模塊設(shè)計如下：(題中已在標(biāo)準(zhǔn)模塊給出的代碼)

OptionExplicit

publicA(500)asinteger

publicNasinteger

Subputdata(t_FileNameAsString,t_StrAsVariant)

DimsFilcAsString

sFile="\n&t_FileName

OpenApp.Path&sFileForAPPENDAs#1

Print#1,t_S(r

Close#1

EndSub

subgetdata。'讀文件函數(shù)

dimiasinteger

openapp.path&"\ini.txt"forinputas#1

i=l

dowhilenoteof(1)

input#l,A(i)

i=i+l

loop

N=i-1

close#1

endsub

排序的方法有多種，下面給出冒泡排序的算法，其它排序算法請參考有關(guān)書籍。

參考程序如下：(要求考生編寫代碼部分)

PrivateSubCommandl_Click()

getdata

Fori=ITo50

Listl.AddltemA(i)

Nexti

EndSub

PrivateSubCommand2_Click()

Fori=1To49

Forj=1To50-i

IfA(j)<A(j+l)Then

t=A(j):A(j)=A(j+1):A(j+l)=t

EndIf

Nextj

Nexti

Fori=1To50

List2.AddItcmA(i)

Nexti

EndSub

PrivateSuhCornmand3_Click()

Fori=0To49

putdata"kssj.DAT",List2.List(i)

Next

EndSub

另解：

Command2_Click()大省也可用選擇排序法實(shí)現(xiàn)：詳細(xì)如下:

PrivateSubCommand2_Click()

Fori=1To49

P二i

Forj=1+1To50

IfA(p)<A(j)Thenp=j

Nextj

t=A(i):A(i)=A(p):A(p)=t

Nexti

Fori=1To50

List2.AddItemA(I)

Nexti

EndSub

5.在考生文件夾中，完成以下要求：

(1)啟動工程文件Progl.Vbp,將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件

Progl.frm的窗體名稱改為“Progl”。

(2)請在窗體適當(dāng)位置增加以下控件：一個標(biāo)簽(名稱為labell,標(biāo)題為“100?200之間的素數(shù)和

為”)，一個文本框(名稱為Textl,文本內(nèi)容為空)和兩個命令按鈕(名稱分別為：

Comniandl,Command2,標(biāo)題分別為：“計算”，“保存”)，將窗體標(biāo)題改為“求素數(shù)和"(如圖

所示)。

(3)要求程序運(yùn)行后，單擊“計算”按鈕，在Textl中顯示出100?200之間的素數(shù)和；單擊“保存”

按鈕，將計算結(jié)果存入考生文件夾中的文件“kssj.dat”中。

(4)在考生文件夾下有標(biāo)準(zhǔn)模塊Progl.bas,其中的Putdata過程可以把結(jié)果存入指定的文件，要求

把該模塊文件添加到當(dāng)前工程中，直接調(diào)用該過程。

(5)請先將工程、窗體與模塊保存，然后調(diào)試、運(yùn)行并生成可執(zhí)行文件：Progl.exe。

您的編程題模塊設(shè)計如下：(題中已在標(biāo)準(zhǔn)模塊給出的代碼)

OptionExplicit

Subputdata(t_FileNameAsString,t_S(rAsVariant)

DimsFileAsString

sFilc="\n&t_FiieNamc

OpenApp.Path&sFileForOutputAs#1

Print#1.t_Str

Close#1

EndSub

參考程序如下：(要求考生編寫代碼部分)

PrivateSubCommandl_Click()

Forn=WlTo200Step2

f=1

Fori=2Ton-I

IfnModi=0Thenf=0:ExitFor

Nexti

Iff=1Thens=s+n

Nextn

Text1.Text=s

EndSub

PrivateSubCommand2_Click()

Callputdata("kssj.dat",Text1.Text)

EndSub

6.在考生文件夾中，完成以下要求：

(1)啟動工程文件Progl.Vbp,將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件

Progl.frm的窗體名稱改為“Progl"，窗體標(biāo)題為“求數(shù)列的前20項和“。

(2)請在窗體適當(dāng)位置增加以下控件:標(biāo)簽labelL標(biāo)題為“數(shù)列前20項之和”；文本框Text1：兩

個命令按鈕Commandl、Command2,標(biāo)題分別為“計算”和“保存”。如圖所示。

(3)已知FIBONACCI數(shù)列的第1和第2項的值均為1,從第3項開頭每項都是前2項之和。數(shù)列中的

值為：1,1,2,3,5,8,13,……

要求程序運(yùn)行后：

①單擊“計算”按鈕，在窗體上顯示FIBONACCI數(shù)列的前20項，每行顯示5個數(shù)據(jù)；在Textl

中顯示數(shù)列前20項的和；

②單擊“保存”按鈕，將前20項的和存入考生義件夾中的義件“kssj.dat”中。

(4)在考生文件夾下有標(biāo)準(zhǔn)模塊Progl.bas,其中的Puldala過程可以把結(jié)果存入指定的文件，要求

考生把該模塊文件添加到當(dāng)前工程中，直接調(diào)用過程。

(5)請先將工程、窗體與模塊保存，然后調(diào)試、運(yùn)行并生成可執(zhí)行程序：Progl.exe。

您的編程題模塊設(shè)計如下：(題中已在標(biāo)準(zhǔn)模塊給出的代碼)

OptionExplicit

Subpuldata(t_FileNameAsString,t_StrAsVariant)

DimsFilcAsString

sFile="\n&t_FileName

OpenApp.Path&sFileForOutputAs#1

Print#1,t_Str

Close#1

EndSub

參考程序如下：(要求考生編寫代碼部分)

PrivateSubCommandl_Click()

DimsAsInteger

DimF(30)AsInteger

DimiAsInteger

Cis

F(1)=O:F(2)=1

Fori=3To20

F(i)=F(i-2)+F(i-1)

Nexti

Fori=1To20

s=s+F(i)

PrintF(i);

IfiMod5=0Then

Print

EndIf

Nexti

Text1.Text=Str(s)

EndSub

PrivateSubCommand2_Click()

putdata"kssj.dal",TextI.Text

EndSub

6.簡潔應(yīng)用題

在考生文件夾中，完成以下要求：

(1)啟動工程文件Progl.Vbp,將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件

Progl.frm的窗體名稱改為“Progl”，窗體的標(biāo)題為“統(tǒng)計計算”。

(2)請在窗體適當(dāng)位置增加以下控件：四個標(biāo)簽(均為默認(rèn)名稱，標(biāo)題分別為“原是數(shù)據(jù)”、“最小值：”、

“最大值：”和“平均值:")；三個文本框(均為默認(rèn)名稱)；列表框Lisll；三個命令按鈕(均為

默認(rèn)名稱，標(biāo)題分別為“讀取數(shù)據(jù)”、“統(tǒng)計”和“寫入文件”)，如圖所示。

要求程序運(yùn)行后：

(1)單擊“讀取數(shù)據(jù)”按鈕，讀取“INLTXT”文件中的50個整數(shù)，將其存入數(shù)組A中并同

時顯示在List1中；

(2)單擊“統(tǒng)計”按鈕，統(tǒng)計出這50個數(shù)的最小值、最大值和平均值，并將這些數(shù)據(jù)分別顯

示在三個文本框中；

(3)最終單擊“寫入文件”按鈕，按挨次把求出的最小值、最大值和平均值寫入考生文件夾

中的文件“kssj.dat”中。

⑶在考生文件夾下有標(biāo)準(zhǔn)模塊progl.bas,其中的過程geldata可以讀出“INLTXT”文件中的數(shù)據(jù)，

過程putdata可以同時將三個數(shù)據(jù)寫入文件“kssj.dat”中；要求考生把這個模塊文件添加到當(dāng)前

工程中，直接調(diào)用過程。

(4)請先將工程、窗體與模塊保存，然后調(diào)試、運(yùn)行并生成可執(zhí)行程序：Progl.exeo

您的編程題模塊設(shè)計如下：(題中己在標(biāo)準(zhǔn)模塊給出的代碼)

OptionExplicit

PublicA(50)AsInteger

PublicNAsInteger

Subgetdata()'讀文件函數(shù)

DimIAsInteger

OpenApp.Palh&"\ini.txt"ForInputAs#1

1=1

DoWhileNotEOF(I)

Input#1,A(I)

1=1+1

Loop

N=I-1

Close#1

EndSub

Subpuldata(numlAsInteger,num2AsInteger,num3AsVariant)

'寫文件函數(shù)

OpenApp.Path&"\kssj.da:"ForOutputAs#1

Print#1,num1,num2,nuni3

Close#1

EndSub

參考代碼如下，(要求考生編寫代碼部分)

PublicmaxAsInteger,minAsInteger

PublicavcAsSingle

PrivateSubcommandl_click()

GetData

Fori=1lbn

List1.AddItema(i)

Nexti

EndSub

PrivateSubcommand2_click()

max=a(l):min=a(l)

Fori=1Ton

Ifa(i)>maxThenmax=a(i)

Ifa(i)<minThenmin=a(i)

s=s+a(i)

Nexti

ave=s/n

Text1.Text=Str(min)

Tcxt2.Tcxt=Str(max)

TexG.Text=Str(ave)

EndSub

PrivateSubCommand3_Click()

putdatamin,max,ave

EndSub

7.在考生文件夾中，完成以下要求：

(1)啟動工程文件Progl.Vbp,將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件

Progl.frm的窗體名稱改為“Progl”，窗體的標(biāo)題為“最小公倍數(shù)”。

(2)請在窗體適當(dāng)位置增加以下控件：3個標(biāo)簽(均為默認(rèn)名稱，標(biāo)題分別為“數(shù)1”、“數(shù)2”、“最

小公倍數(shù)為")；三個文本框(均為默認(rèn)名稱)；兩個命令按鈕(均為默認(rèn)名稱，標(biāo)題分別為“計

算”和“保存”)，如圖所示。

(3)要求編寫計算兩個數(shù)的最小公倍數(shù)的程序，程序運(yùn)行后：

(4)在文本框Textl和Text2中分別輸入數(shù)據(jù)196和42,然后單擊“計算”按鈕，計算出這兩

個數(shù)的最小公倍數(shù)，并將結(jié)果顯示在文本框Text3；

(5)在確定正確之后，單擊“保存”按鈕，將結(jié)果存入考生文件夾中的“kssj.dat”中。

(4)在考生文件夾下有標(biāo)準(zhǔn)模塊progl.bas,其中的過程putdata可以把結(jié)果存入指定文件，考生可以

依據(jù)需要把這個模塊文件添加到當(dāng)前工程中，直接調(diào)用過程。

(5)請先將工程、窗體與模塊保存，然后調(diào)試、運(yùn)行并生成可執(zhí)行程序：Progl.exeo

您的編程題模塊設(shè)計如下：(題中已在標(biāo)準(zhǔn)模塊給出的代碼)

OptionExplicit

Subputdata(t_FileNameAsString,t_StrAsVariant)

DimsFileAsString

sFilc=&t.FilcNamc

OpenApp.Path&sFileForOutputAs#1

Print#1,t_Str

Close#1

EndSub

參考代碼如下，(要求考生編寫代碼部分)

PrivateSubCommandl_Click()

DimmAsInteger,nAsInteger,tAsLong

m=Val(Text1.Text)

n=Val(Text2.Text)

t=m*n

Do

r=mModn

m=n

n=r

LoopUntilr=0

t=t/m

Text3.Text=t

EndSub

PrivateSubComrnand2_Click()

Callputda(a("kssj.dat",Text3.Text)

EndSub

六、綜合應(yīng)用(每套試卷有1個綜合應(yīng)用題，每題15分)

評分規(guī)章如下：

菜單設(shè)計題所建工程得分：4分

菜單設(shè)計所建的窗體得分：9分

生成.exe文件：2分

菜單設(shè)計題滿分：15分

1.在考生文件夾中建立一個名稱為“Vbcd”的工程文件Menul.Vbp,并在工程中建立一個名稱為

“Mcnul”的菜單窗體文件Mcnul.f門要求：

(1)菜單格式與內(nèi)容如下：

系統(tǒng)(S)統(tǒng)計(T)

退出專業(yè)

性別?＞男

女

其中，括號內(nèi)的字符為熱鍵；各菜單與子菜單的名稱與標(biāo)題相同，但不含熱鍵；，：下一級菜單;“女”:

該菜單項不行見。

(2)將考生文件夾下的窗體文件Sjt.frm添加進(jìn)木工程。

(3)除“專業(yè)”菜單的Click。大事調(diào)用Sjt.frm窗體，“退出”子菜單的Click。大事執(zhí)行End語

句，其它菜單和子菜單不執(zhí)行任何操作。

(4)調(diào)試運(yùn)行并生成可執(zhí)行程序：Menul.exeo

2.在考生文件夾中建立一個名稱為“Vbcd”的工程文件Menul.Vbp,并在工程中建立一個名稱為

MMenul”的菜單窗體文件Menul.fim,要求:

（1）菜單格式與內(nèi)容如下：

格式（0）窗口（W）

圖層J水平平鋪

顏色垂直平鋪

返回（Ctri+B）

其中，括號內(nèi)的字符為熱鍵；分隔條的名稱為FGT,其它菜單與子菜單的名稱與標(biāo)題相同，但不含熱

鍵；V,復(fù)選標(biāo)記，Ctrl+B,設(shè)置為快捷鍵.

（2）將