2023年V B 操作題第一套

2023年VB操作題第一套

試題一：（30分）

用VB編制一種程序，初始界面如圖1,文本框顯示程序運(yùn)行輸入的文本（文本框有垂直滾動(dòng)

條，文本為紅色）。程序運(yùn)行時(shí)可通過(guò)復(fù)選框?qū)ξ谋咀中芜M(jìn)行設(shè)置，效果如圖2,只有當(dāng)文

本框內(nèi)容非空時(shí)“結(jié)束”按鈕才有效，單擊“結(jié)束”按鈕結(jié)束程序運(yùn)行。

0字體效果■回

請(qǐng)您留下寶貴意見

VB程序設(shè)計(jì)"

廠加粗p-HS結(jié)束|

圖1圖2

操作規(guī)定：

1.（4分）創(chuàng)立一種原則EXE工程，將其窗體文獻(xiàn)和工程文獻(xiàn)分別以testl.frm.testl.v

bp為文獻(xiàn)名保留到考生文獻(xiàn)夾下。

2.（12分）參照?qǐng)D1和圖2完畢界面設(shè)計(jì):按表添加有關(guān)對(duì)象并設(shè)置有關(guān)日勺屬性：

表1（每個(gè)屬性1分，共12分）

對(duì)象名屬性屬性值對(duì)象名屬性屬性值

Form1caption字體效果Labe11name1abl

Labe11caption請(qǐng)您留下寶Textlnametxt1

貴意見

Text1multilinetrueTextlscrol1ba2

rs

Textlforecolor&HOOO000FCheckcaptio加粗

F&1n

Command1namecmdlCheck2caption斜體

Commandlcaption結(jié)束Commaenabledfalse

ndl

3.（1）（4分）編寫合適的事件（2分）：只有當(dāng)文本框內(nèi)容非空時(shí)“結(jié)束”按鈕才有效。

（不用能VB函數(shù)）（代碼2分）

（2）（4分）單擊“加粗”復(fù)選框時(shí)，文本框中的文字顯示加粗效果；否則取消；

（規(guī)定不能用IF語(yǔ)句來(lái)實(shí)現(xiàn)）〔事件2分，一條代碼2分）

（3）（4）單擊“斜體”復(fù)選框時(shí)，文本框中的文字顯示斜體效果，否則取消。

（規(guī)定不能用IF語(yǔ)句來(lái)實(shí)現(xiàn)）（事件2分，一條代碼2分）

4.（2分）保留窗體文獻(xiàn)和工程文獻(xiàn)，生成可執(zhí)行文獻(xiàn)testl.exe保留到試題目錄下的“試

題一”文獻(xiàn)夾。

PrivateSubCheckl_C1ick（）

txtl.FontBold=Nottx11.FontBold

EndSub

PrivateSubCheck2_Click（）

txt1.Font11alie=Nottxtl.Fontltalic

EndSub

PrivateSubCommandl_Click（）

End

EndSub

'答案兩種：

’措施一：

PrivateSubTxtl_Change()

'IfTxt1,Text=""Then

'emd1.Enabled=Faise

'Else

'cmdl.Enabled=True

'Endlf

'EndSub

’措施二

PrivateSubTxt1_Change()

Iftxtl.Text<>""Then

cmdl.Enabled=True

Else

cmdl.Enabled=Faise

EndIf

EndSub

PrivateSubemd1_Click()

End

EndSub

試題二(25分)

1.(13分)有一種VB程序，其功能是:根據(jù)身高和體重判斷胖瘦，程序運(yùn)行界面如圖3

和圖4所示。胖瘦條件：假如身高與體重之差不不大于等于110,則體現(xiàn)“你太瘦了！〃；假

如身高與體重之差不不不大于等于100,則體現(xiàn)“你太胖了!〃;假如身高與體重之差在10

O--110之間,則體現(xiàn)“你的身材真好！”

打開某途徑下的工程文獻(xiàn)test2-1.vbp,完畢下列操作：

（1）（3分）當(dāng)顧客在文本框1輸入身高時(shí)，命令按鈕command1有效，添加合適的事件和代

碼實(shí)現(xiàn)此功能,（事件1分，一句代碼2分）

（2）（8分）完畢對(duì)應(yīng)注群1和注釋2處口勺修改，實(shí)現(xiàn)根據(jù)身高和體重判斷胖瘦的功能并顯示

“退出”按鈕注釋3處添加一條代碼（2分），同步“計(jì)算”按鈕無(wú)效注釋4處添加一條代碼

（2分）。（每格2分，共4分）

（3）（2分）保留窗體文獻(xiàn)和工程文獻(xiàn),生成可執(zhí)行文獻(xiàn)test2-1.exe保留到試題目錄下U勺

“試題一”文獻(xiàn)夾。

PrivateSubCommand1_Click()

DimhAsSingle,wAsSingle,xAsSingle

h=Vai(Textl.Text)

w=Vai(Text2.Text)

x=h-w

Ifx>=110Then

Label4.Caption="你太瘦了!"

ElseIfx>100Then

Labe14.Coption="你的身材真好！"

日se

Label4.Caption="你太胖了！"

EndIf

Command2.Visible=True

Command1.Enab1ed=False

EndSub

PrivAteSnbCommand2—C1ick()

End

EndSub

PrivateSubTextl_Change()

Commandl.Enab1ed=True

EndSub

2.(12分)填空完畢VB程序，其功能是求某一天是這一年的第幾天，界面設(shè)計(jì)和程序運(yùn)行

效果如圖5所示。

打開某途徑下日勺工程文獻(xiàn)test2-2.vbp,完畢下列操作:

（1）10分）輸入某一天（年、月、日）,單擊“開始”按鈕，計(jì)算這一天在本年中的天數(shù)（第

幾天)完畢注釋(1)(2)(3)(4)(5)填空實(shí)行此功能。(每空2分,共10分)

(2)(2分)保留窗體文獻(xiàn)和工程文獻(xiàn),生成可執(zhí)行文獻(xiàn)tcst2-2.CXC保留到試題FI錄下的

“試題二”文獻(xiàn)夾。

OptionBase1

PrivateSubCommandl_Click()

Dima,T%,y%

a=Array(31,28,31,30,31,30,31,31,30,31,30,31)

y=Val(Textl.Text)

IfyMod400=0Or(yMod4=0AndyMod100<>0)Then

a(2)=29

EndIf

n=Val(Combol.Text)

Fori=1Ton-1

T=T+a(i)

Nexti

Text2.Text=T+Val(Listl.Text)

EndSub

PrivateSubCommand2_Click()

End

EndSub

PrivateSubForm_Load()

Fori=ITo31

Listl.Addltemi

Nexti

Fori=1Tn12

Combo1.Addltemi

Nexti

EndSub

試題三、（20分）

修改考生文獻(xiàn)夾下的VB程序使其具有下列功能:

在明文文本框中輸入一串字串，在密文文本框中輸出密文，加密規(guī)則:若字符為字母，將每個(gè)字

母向后移1、3、5,成果仍是字母，其他字符保持不變。界面設(shè)計(jì)和運(yùn)行效果如圖4和圖5所

打開“試題三”文獻(xiàn)夾中的工程文獻(xiàn)test3.vbp,并完畢下列操作：

I.（3分）單擊單項(xiàng)選擇按鈕的控件數(shù)組中任一種單項(xiàng)選擇按鈕,決定移動(dòng)位數(shù)N,添加合適

的事件和代碼實(shí)現(xiàn)此功能（注:變量N設(shè)置通用變量）

2.（15分）將3.txt文獻(xiàn)復(fù)制到“加密”按鈕的事件中，完畢對(duì)應(yīng)的⑴、（2）（3）填空及在

注釋1所在行添加一條代碼，并修改“注釋2”所在行的代碼，讓程序?qū)Φ膱?zhí)行，刪除所有注釋。

3.(2分)保留窗體文獻(xiàn)和工程文獻(xiàn)，生成可執(zhí)行文獻(xiàn)test3.exe保留到試題目錄下的“試

題三”文獻(xiàn)夾

Dimn%

PrivateSubCommand1_Click()

Dimm%

Dims$,x$

m=Len(Textl.Text)

Fori=ITom

x=Mid$(Textl.Text,i,1)

Ifx>="A"Andx<="Z"0rx>="a"Andx<="znThen

x=Chr(Asc(x)+n)

Ifx>"z"Orx>nZ"Andx<"a"Then

x=Chr(Asc(x)-26)

EndIf

EndIf

S=S+X

Nexti

Text2.Text=s

EndSub

PrivateSub0ptionl_Click(IndexAsInteger)

n=0ptionl（Index）.Caption

EndSub

2023年VB操作題第二套

試題一（30分）

設(shè)計(jì)一種模擬中獎(jiǎng)號(hào)碼的VB程序。界面設(shè)計(jì)和運(yùn)行效果如圖1和圖2所示

圖1

口隨機(jī)抽數(shù)ko回

福利彩票抽獎(jiǎng)程序

中獎(jiǎng)號(hào)碼

夕了憶了6萬(wàn)限6

開始S

圖2

1.（4分）創(chuàng)立一種原則EXE工程，將其窗體文獻(xiàn)和工程文獻(xiàn)分別以test1.frm、test1.v

bp為文獻(xiàn)名保留到試題一的J文獻(xiàn)夾下。

2.（14分）參照?qǐng)D1和圖2完畢界面設(shè)計(jì):按表添加有關(guān)對(duì)象并設(shè)置有關(guān)的屬性：（每個(gè)屬性

設(shè)置1分）表1

對(duì)象名屬性屬性值對(duì)象名屬性屬性值

Formlcap隨機(jī)抽數(shù)Label1caption福利彩票抽

tion獎(jiǎng)程序

Labellfontname幼圓Labellfontsiz29

e

Label1foreco&H0000Frame1caption中獎(jiǎng)號(hào)碼

1orOOFF&

Text1(O)-tefontsiz24（修改）Frame1naneFr1

xt1(7)e

Command1caption開始&SText1backco1o&H00C0

(0)-textl(7)rCOFF&

TimerlEnabledfalseCommand2caption停止&X

TiiiieiliiiLerva100Conuiidiid2Enabledfalse

1

3.操作規(guī)定：

（1）（2分）將1.txt文獻(xiàn)復(fù)制到合適的事件（2分）中。

（2）（4分）完畢“開始”按鈕的代碼，功能具有定期器開始工作，命令按鈕commandl無(wú)

效，命令按鈕command2有效。

（3）（4分）完畢“停止”按鈕的代碼，功能具有定期器停止工作，命令按鈕command

1有效，命令按鈕command2無(wú)效。

4.（2分）保留窗體文獻(xiàn)和工程文獻(xiàn)，生成可執(zhí)行文獻(xiàn)testl.exe保留到試題Fl錄下的“試

題一”文獻(xiàn)夾。

PrivateSubCommandl_Click（）

Timer1.Enabled=True

Command1.Enabled=Fa1se

Command2.Enabled=True

EndSub

PrivateSubCommand2_C1ick()

Timer1.Enabled=FaIse

Command1.Enabled—Truc

Command2.Enabled=Faise

EndSub

PrivateSubTimer1_Timer()

Randomize

Fori=0To7

Textl(i).Text=Int(10*Rnd)'答案也可以是Textl(i).Text=Int

(Rnd*10)

Nexti

EndSub

試題二(25分)

1.(12分)下列VB程序段實(shí)現(xiàn)如下功能:加載窗體后(從鍵盤上輸入項(xiàng)數(shù)N)如圖3所示，輸

出S的計(jì)算成果。請(qǐng)根據(jù)規(guī)定，將程序補(bǔ)充完整。S的值用消息框顯示

操作規(guī)定：

(1)(10分)打動(dòng)工程文獻(xiàn)test2-l.vbp,將2.txt文獻(xiàn)復(fù)制到窗體加載事件中(2分)，完畢

(1)、(2)、(4)時(shí)填空及注釋1的(3)代碼；讓程序?qū)Φ倪\(yùn)行。用消息框顯示成果如圖3

所示：(每空2分，共8分)

圖3

（2）（2分）保留窗體文獻(xiàn)和工程文獻(xiàn)，生成可執(zhí)行文獻(xiàn)test2-l.exe保留到試題目錄下

的“試題二”文獻(xiàn)夾。

PrivateSubForm_Load()

DimsAsSing1e,N%,F%,t!

s=O:F=l

N=Val(lnputBox("請(qǐng)輸入項(xiàng)數(shù)"))'2分

Fori=IToN'2分

t=(-l)A(j+i)/iA2,或l/(i*l)z2分

Nexti

MsgBox"s="&s,,"成果"'2分

EndSub

2.（13分）數(shù)列1,1,3,5,9,,15,25,41…的規(guī)律是從第3個(gè)數(shù)開始，每個(gè)數(shù)是

它前面兩個(gè)數(shù)的和加1。在考生文獻(xiàn)夾中有一種工程文獻(xiàn)test2?2.vbp（對(duì)應(yīng)的窗體文獻(xiàn)

為test2-2.frm）o窗體Forml中己經(jīng)給出了所有控件。編寫合適的事件過(guò)程實(shí)現(xiàn)如下功能:

在Txtl中輸入整數(shù)（例如30）,單擊“計(jì)算”按鈕，則在Txt2中顯示該數(shù)列第30項(xiàng)時(shí)值,

如圖4所示

操作規(guī)定:

（D（11分）打動(dòng)工程文獻(xiàn)test2-2.vbp,將2-2.txt文獻(xiàn)復(fù)制適事件中（1分），把程序中

的問號(hào)(1)(2)(3)(4)(5)改為對(duì)的的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不得修改程序的其他部

分，也不得修改控件的其他屬性。

(2)(2分)保留窗體文獻(xiàn)和工程文獻(xiàn)，生成可執(zhí)行文獻(xiàn)test2-2.exe保留到試題目錄下的

“試題二”文獻(xiàn)夾。

PrivateSubCommandl_ClickO

Dimn%,t&,a&,b&

n=Vai(txtl.Text)

a=1：b=1'體現(xiàn)第一項(xiàng)和第二項(xiàng)

Fori=(1)Ton

t=a+b+1't體現(xiàn)每一項(xiàng)時(shí)值

a=b

b=t

Nexti

labl.Caption=〃第"&n&"項(xiàng)時(shí)值”

txt2.Text=t

EndSub

試題三(20分)

編寫模擬比賽評(píng)分的程序，功能為：?jiǎn)螕舸绑w，由鍵盤輸入10位評(píng)委的打分，

工程1?—MOflT

請(qǐng)輸入第3評(píng)委打分確定|

取消

圖4

輸入時(shí)用動(dòng)態(tài)提醒如圖4所示。并在窗體中顯示，當(dāng)輸入完第1。位評(píng)委的打分后，在窗體顯

示“去掉一種最高分：”和“去掉一種最低分：“及“最終得分：”的文字及數(shù)字。其中最終

得分的計(jì)算公式為:去掉一種最分，去掉?種最低分后的8位評(píng)委的平均分（保留小數(shù)點(diǎn)一位）。

效果為圖5所示。

圖5

1.（2分）打動(dòng)工程文獻(xiàn)test2.vbp,將3.txt文獻(xiàn)復(fù)制到合適的事件；

2.（16分）根據(jù)題意完善（1）（3）（6）⑺（8）的填空;根據(jù)注釋1、注釋2、注釋3Mj分

別添加體現(xiàn)式、修改和一條代碼;讓程序?qū)θ丈讏?zhí)行，刪除所有注釋。（考試索材處已修改）

3.（2分）保留窗體文獻(xiàn)和工程文獻(xiàn)，生成可執(zhí)行文獻(xiàn)lest3.exe保留到試題目錄下H勺

“試題三”文獻(xiàn)夾。

PrivateSubForm_C1ick（）

DimkAsSingle,i%,sAsSingle

DimmaxAsSingle,minAsSing1e

k=Va1（InputBox（"請(qǐng)輸入第1位評(píng)委打分"））

Print"評(píng)委打分：”;k；

max=k：mink:s=k

Fori=2To10

k=Val(lnputBox(”請(qǐng)輸入第“&i&”評(píng)委打分”))

Printk；

Ifmax<=kThenmax=k

Ifmin>=kThenmin=k

s=s+k

Nexti

Print

Print"去掉一種最高分：";max

Print"去掉一種最低分：";min

Print"最終得分"；Int((s-max—min)/8*10+0.5)/10

EndSub

2023年VB操作題第三套

試題一(30分)

1.(14分)在名為Form1的窗體上繪制一種名為Txtl的文本框控件和一種名為Tmr1的計(jì)

時(shí)器控件，程序運(yùn)行后,文本框中居中18號(hào)顯示的是目前的時(shí)間.并且文本框中所顯示

的時(shí)間會(huì)隨時(shí)間的變化而變化，程序運(yùn)行效果圖1所示:

?Forml13回區(qū)

10:29:46

a?

（1）（4分）創(chuàng)立一種原則EXE工程，將其窗體文獻(xiàn)和工程文獻(xiàn)分別以testl-l.frm、te

stl-1.vbp為文獻(xiàn)名保留到試題一的文獻(xiàn)夾下。

（2）（6））參照?qǐng)D1完畢界面設(shè)計(jì):按表添加有關(guān)對(duì)象并設(shè)置有關(guān)H勺屬性：（每個(gè)屬性設(shè)置1

分）表I

對(duì)象名屬性屬性值對(duì)象名屬性屬性值

FormlnamemeTextlA1ig2

nment

Textlnametxt1Textlfontsiz18

e

TimerlnametmrlTimerlinterval1000

（3）（4分）編寫合適事件（2分），使文本框中所顯示H勺時(shí)間會(huì)隨時(shí)間的變化而變化（2分））

注意：程序中不得使用任何變量：文獻(xiàn)必須寄存在考生文獻(xiàn)夾中，窗體文獻(xiàn)名為tes

1-1.frm,工程文獻(xiàn)名為testl-1.vbpo

PrivateSubtmr1—Timer0

txt1.Text=Time

EndSub

2.（16分）在窗體上繪制兩個(gè)名稱分別為L(zhǎng)ab1和Lab2日勺標(biāo)簽,它們的標(biāo)題分別為“請(qǐng)

輸入一種正整數(shù)N”和“1+2+3+-+N="；繪制兩個(gè)名稱分別為Txt1和Txt2的文本框,

它們的內(nèi)容都設(shè)為空白：繪制一種名為Cmd1的命令按鈕，其標(biāo)題為“計(jì)算”。編寫合

適時(shí)程序,使程序運(yùn)行時(shí).在Txtl中輸入一種正整數(shù)N,單擊“計(jì)算”按鈕，計(jì)算出1+2

+3+…+N附和顯示在Txt2中。程序運(yùn)行成果如圖2所示。

圖2

（1）（4分）創(chuàng)立一種原則EXE工程,將其窗體文獻(xiàn)和工程文獻(xiàn)分別以testl-2.frm.test1

-2.vbp為文獻(xiàn)名保留到試題一的文獻(xiàn)夾下。

（2）（8））參照?qǐng)D2完畢界面設(shè)計(jì):按表添加有關(guān)對(duì)象并設(shè)置有關(guān)的屬性：（每個(gè)屬性設(shè)置

1分）表1

對(duì)象名屬性屬性值對(duì)象名屬性屬性值

TextlnametxtlText2nametxt2

Labellnamelab1Label2name1ab2

Label1capti請(qǐng)輸入一種正整數(shù)NLabel2caption1+2+3++N

on

CommannamecmdlCommandlcaptio計(jì)算

dln

（3）（4分）編寫合適事件（2分），使程序運(yùn)行時(shí).在Txt1中輸入一種正整數(shù)N,單擊“計(jì)

算”按鈕,計(jì)算出1+2+3+…+N日勺和顯示在Txt2中。（規(guī)定用FOR語(yǔ)句構(gòu)造）

注意：程序中不得使用任何變量：文獻(xiàn)必須寄存在考生文獻(xiàn)夾試題-中，窗體文獻(xiàn)名為

testl-2.frm,工程文獻(xiàn)名為test1-2.vbp。

PrivateSubcmdl_C1ick()

Fori=1ToVa1(txtl.Text)

txt2.Text=Val(txt2.Text)+i

Nexti

EndSub

試題二（25分）

（I）（4分）添加合適事件，定期器間隔時(shí)間（interva1）由滾動(dòng)條事件決定，當(dāng)拖動(dòng)滾動(dòng)塊時(shí)

來(lái)變化字符滾動(dòng)速度；（事件2分，一條代碼2分）

（2）（4）單擊“開始”按鈕，定期器工作且“停止”按鈕顯示，單擊“停止”按鈕,定期器不

工作，且“停止”按鈕隱藏。（每一句代碼1分，共4分）

（3）（5分）定期器事件是將標(biāo)簽1每隔一定期間一直從左向右以每200級(jí)移動(dòng);將2—1.tx

t文獻(xiàn)復(fù)制到對(duì)應(yīng)的事件（1分）完畢（1）（2）填空（每格2分，共4分）

（4）（2分）保留窗體文獻(xiàn)和工程文獻(xiàn)，生成可執(zhí)行文獻(xiàn)test2-l.exe保留到試題目錄下的

“試題二”文獻(xiàn)夾。

PrivateSubcommandl_Click（）

Timer1.Enab1ed=True

command2.Visible=True

EndSub

PrivateSubcommand2_Cliok()

Timer1.Enab1ed=Faise

command2.Visible=False

EndSub

PrivateSubHScro111_Change()

Timerl.Interval=HSsro111.Value

EndSub

PrivateSubTimerl_Timer()

IfLabe11.Left<=Forml.WidthThen

Labe11.Left=Label1.Lsft+200

Else

Label1.Left=-Labc11,Width

EndIf

EndSub

2.(12分)有一種VB程序功能是：找出此號(hào)碼,有一張單據(jù)上有一種五位數(shù)的號(hào)碼67**8,

其中百位和十位上的數(shù)字看不清了，但懂得該數(shù)能被78整除，也能被67整除,求出該號(hào)碼。

運(yùn)行成果圖5所示。

圖5

打開某途徑下試題二文獻(xiàn)夾下工程文獻(xiàn)test2-2.vbp,完畢下列操作：

(1)(10分)完善“填數(shù)字”事件(1)(2)(3)(4)(5)的代碼，(考試素材已修改)

3.(2分)保留窗體文獻(xiàn)和工程文獻(xiàn)，生成可執(zhí)行文獻(xiàn)test2-2.exe保留到試題目錄下的

“試題二”文獻(xiàn)夾。

PrivatcSubCommand1_CIick()

Dimx%,y%,a&

Forx=0To9

Fory=0To9

a=67008+x*100+y*10'或答案也可以100*x+10*y

IfaMod78=0AndaMod67=OThen

LabeI3.Caption=x

Labe14.Caption=y

EndIf

Nexty

Nextx

EndSub

試題三（20分）

用VB設(shè)計(jì)一種成績(jī)記錄程序。程序運(yùn)行后，先后出現(xiàn)如下圖4和圖5的對(duì)話框，最終運(yùn)行效

果如圖5所示。（參照答案已修改好）

1.（4分）當(dāng)窗體啟動(dòng)時(shí)（2分）,規(guī)定先輸入需要記錄的學(xué)生人數(shù)，輸入時(shí)要有文字提醒，如圖

4所示，再輸入各學(xué)生分?jǐn)?shù)，如圖5所示;將3.ixt文獻(xiàn)復(fù)制到對(duì)應(yīng)的事件中；完畢（1）填空的

代碼（每格2空，共4分），調(diào)試程序，讓程序?qū)Φ膱?zhí)行。

2.（8分）單擊“記錄”按鈕，記錄出合格人數(shù)、不合格人數(shù)及平均分（保留1位小數(shù)）；完畢

對(duì)應(yīng)的注釋1、2、3、4填空，其中在注釋3處添加一條代碼。

3.（6分）單擊“排序”按鈕，在窗體上顯示分?jǐn)?shù)由高到低的排序，規(guī)定每行顯示4個(gè)，如圖5

所示；完畢（5）（6）填空,在注釋5處添加一條代碼（2分）。

4.（2分）保留窗體文獻(xiàn)和工程文獻(xiàn)，生成可執(zhí)行文獻(xiàn)test3.exe保留到試題目錄下的“試

題三”文獻(xiàn)夾。

Dima()AsSingIe,n%

PrivateSubCommand1_CIick()

Dims!,avg!,k%

Fori=1Ton

s=s+a(i)

Ifa(i)>=60Thenk=k+1

Nexti

Textl.Text=k

Text2,Text=n-k

Text3.Text=lnt(s/n*10+0.5)/10

EndSub

PrivateSubCommand2_Click))

Fori=1Ton-1

Forj=1Ton-i

Ifa(j)<a(j+1)Then

t=a(j)：a(j)=a(j+1):a(j+1)=t

EndIf

Nextj

Nexti

Print”成績(jī)排序：”

Fori=1Ton

Printa(i),

IfiMod4=0ThenPrint

Nexti

EndSub

PrivateSubCommand3_Click()

End

EndSub

PrivateSubForm_Load(I

n=Va1(InputBox(“請(qǐng)輸入學(xué)生人數(shù)：，“工程1”))

ReDima(n)

Fori=1Ton

a(i)=Val(lnputBox("請(qǐng)輸入第"&i&"位學(xué)生成績(jī)J工程1"))

Nexti

EndSub

2023年VB操作題第四套

試題一（30分）

設(shè)計(jì)一種VB程序其功能:實(shí)行字體設(shè)置。界面設(shè)計(jì)和運(yùn)行效果如圖1和圖2所示

1.（4分）創(chuàng)立一種原則EXE工程,將其窗體文獻(xiàn)和工程文獻(xiàn)分別以testl.frm.tes

t1.vbp為文獻(xiàn)名保留到試題一內(nèi)文獻(xiàn)夾下。

2.（14分）參照?qǐng)D1和圖2完畢界面設(shè)計(jì):按表添加有關(guān)對(duì)象并設(shè)置有關(guān)的屬性：（每個(gè)屬性

設(shè)置1分）表1

對(duì)象名屬性屬性值對(duì)象名屬性屬性值

Formlcapti字體設(shè)置Text1textVB程序設(shè)計(jì)

on

Frame1capti顏色HScrol11min10

on

Labe12capt大小HScro11max30

ion1

Labellcapti字體Commandlcapt閉關(guān)窗口

onion

Option1caption紅色Optionlback&HOOOOOOFF&

(0)(0)color

Optca綠色Optionbaekeol&H3000FF00&

ionl(1)ption1(1)or

0ption1capti藍(lán)色Optiobackco1&HOOFFO000&

(2)onnl(2)or

3.（1）（2分）窗體加載后，在組合框中添加字體:黑體、隸書、幼圓，添加合適的事

件實(shí)現(xiàn)此功能。（添加內(nèi)容1分，事件1分）

（2）（2分）對(duì)option1控件數(shù)組添加代碼,規(guī)定單擊對(duì)應(yīng)的顏色后文本框里的文字顏色發(fā)生

對(duì)應(yīng)變化。（程序中不得使用任何變量，用動(dòng)態(tài)屬性語(yǔ)句格式來(lái)編寫）

（3）（4分）對(duì)combo1添加合適的事件規(guī)定選擇字體后，文本框中口勺文字的字體發(fā)生對(duì)應(yīng)的

變化。

（4）（2分）對(duì)hscrolll添加代碼，規(guī)定點(diǎn)擊滾動(dòng)條默認(rèn)事件后，文本框中的文字大小發(fā)生對(duì)

應(yīng)的變化。

4.（2分）保留窗體文獻(xiàn)和工程文獻(xiàn)，生成可執(zhí)行文獻(xiàn)testl.exe保留到試題FI錄下的“試

題一”文獻(xiàn)夾。

PrivateSubCombo1Cliek()

Textl.FontName=Combol.Text

EndSub

PrivateSubCommandl_Click()

End

EndSub

PrivaleSubForm_Load()

Combol.Addltem"黑體"

Combol.Addltem”隸書"

Combol.Addltem"幼圓”

EndSub

PrivateSubHScrolll_Change()

Textl.FontSize=HScrol11.Value

EndSub

PrivateSubOptionl_Click(IndexAsInteger)

Textl.ForeColor=Option1(Index).BackColor

EndSub

試題二(25分)

用VB編制一種程序，初始界面如圖3所示。當(dāng)顧客從鍵盤輸入任意字符到文本框后，單擊

“記錄”按鈕，則對(duì)其中的字母、數(shù)字進(jìn)行分類記錄，并將記錄成果分別顯示在2個(gè)對(duì)應(yīng)的

標(biāo)簽（1abe14.labe15）中，如圖4所示；單擊“退出”按鈕，則關(guān)閉窗.口退出程序。（注:不能

用大小寫函數(shù)）

1.（5分）打動(dòng)工程文獻(xiàn)testZvbp,修改對(duì)應(yīng)附屬性，完畢如圖3界面；

2.（18分）

（1）將文本文獻(xiàn)2.txt復(fù)制到合適的事件中（4分），根據(jù)題意完畢（1）的填空及注釋1處

（2）、注釋2處（3）的填空，修改注釋3處代碼中的條件。（填空及修改各3分，共12

分）

（2）（2分）單擊“退出”按鈕，程序結(jié)束。

3.（2分）保留窗體文獻(xiàn)和工程文獻(xiàn)，生成可執(zhí)行文獻(xiàn)test2.exe保留到試題目錄下的“試

題二”文獻(xiàn)夾。

PrivateSubCommandl_CIick（）

Dimx$,N%,p%,k%

N=Len（Textl.Text）

Fori=1ToN

x=Mid（Textl.Text,i,1）

Ifx>="A"Andx<="ZnOrx>="a"Andx<="z"Then

k=k+1

Elselfx>="0"Andx<="9"Then

P=P+1

EndIf

Nexti

Labe14.Caption=k

Labe15.Caption=p

EndSub

PrivateSubCommand2_C1ick（）

End

EndSub

試題三（20分）

用VB語(yǔ)言編寫一種程序其功能：產(chǎn)生30個(gè)［）300,500］時(shí)隨機(jī)整數(shù)，找其中的素?cái)?shù)并將

素?cái)?shù)進(jìn)行排序。程序運(yùn)行界面圖3、圖4、圖5、圖6所示，窗體上有三個(gè)文本框（從上到下

依次為textl、text2和text3,三個(gè)文本框均容許自動(dòng)換行），三個(gè)命令按鈕（從上到下依

次為c。mmandKcommand2和command3）并command2和command3無(wú)效。

1.(6分)打動(dòng)工程文獻(xiàn)test3.vbp,將文本文獻(xiàn)2.txt中選擇符合條件的代碼(2分)復(fù)制到

合適的I事件(2分)中，實(shí)行隨機(jī)產(chǎn)生30個(gè)300—500之間的整數(shù),顯示在te

xtl中，數(shù)與數(shù)之間用空格隔開。并規(guī)定在顯示前三個(gè)文本框清空,實(shí)現(xiàn)圖6界面

的效果(2分)。

2.(6分)單擊“素?cái)?shù)”按鈕，找出這30個(gè)數(shù)中的素?cái)?shù)并顯示在text2中，數(shù)與數(shù)之間

用空格隔開。根據(jù)題意完畢(1)(2)(3)的填空。效果圖7所示。

3.(6分)單擊“排序”按鈕，用選擇法將找出的素?cái)?shù)按從大到小的次序排序，顯示在text3

中，數(shù)與數(shù)之間用空格隔開。(完畢注釋(4)(5)(6)處填空、修改與添加一條代

碼)效果圖8所示。

4.(2分)保留窗體文獻(xiàn)和工程文獻(xiàn)，生成可執(zhí)行文獻(xiàn)test3.exe保留到試題目錄下的

“試題三”文獻(xiàn)夾。

Dima%(lTo30),b%(lTo30),n%

PrivateSubCommand1_Click()

Dimi%

Randomize

Textl.Text=""

Text2.Text=""

Text3.Text=""

Command2.Enab1ed=True

Fori=1To30

a(i)=1nt(201*Rnd)+300

Textl.Text=Textl.Text&a(i)&

Nexti

Command1.Enab1ed=FaIse

EndSub

PrivateSubCommand2_Click()

Command3.Enabled=True

Dimf%

Fori=lTo30

f=0

Forj=2Toa(i)-1

Ifa(i)Modj=0Then

f=1:ExitFor

EndIf

Nextj

Iff0Then

n=n4-1

b(n)=a(i)

EndIf

Nexti

Fori=1Ton

Text2.Text=Text2.Text&b(i)&""

Nexti

Command?.Enabled=FaIse

EndSub

PrivateSubCommand3_Click()

Dimt%,p%

Fori=1Ton—1

P=i

Forj=i+ITon

Ifb(p)<b(j)Then

P=J

EndIf

Nextj

Ifp<>iThen

t=b(p)：b(p)=b(i):b(i)=t

EndIf

Nexti

Fori=1Ton

Text3.Text=Text3.Text&b(i)&""

Nexti

Command1.EnabIed=True

Command3.Enab1ed=False

FndSub

2023年VB操作題第五套

試題一：（30分）

1.（18分）編寫一種程序，輸入貨品的數(shù)量及單價(jià)，求總價(jià)并輸出。窗體標(biāo)題設(shè)置為“模

擬售貨機(jī)”，窗體forml上的兩個(gè)標(biāo)簽（分別命名為L(zhǎng)abi和Lab2,標(biāo)題為“貨品

的數(shù)量（個(gè)）:"和“貨品的單價(jià)（元）巧兩個(gè)名稱分別為Txtl和Txt2的文本框;一種名

稱為Cmd14勺命令按鈕，其標(biāo)題為“總價(jià)”。成果用消息框顯示如圖2所示。當(dāng)顧客輸

入貨品H勺數(shù)量與單價(jià)后，顧客單擊“總價(jià)”按鈕或按回車鍵，輸出對(duì)內(nèi)H勺成果，程序運(yùn)行效

果如圖1所示。（規(guī)定：程序中不得使用變量，事件過(guò)程中只能寫一條語(yǔ)句。）

!擬售貨機(jī)?二nx

貨物的數(shù)量（個(gè)）：

貨物的單價(jià)優(yōu)）：

總價(jià)

圖1圖2

操作規(guī)定：

（1）（4分）創(chuàng)立一種原則EXE工程，將其窗體文獻(xiàn)和工程文獻(xiàn)分別以testIT.frm、

testl-1.vbp為文獻(xiàn)名保留到試題一的文獻(xiàn)夾下。

（2）（10分）參照?qǐng)D1完畢界面設(shè)計(jì):按表添加有關(guān)對(duì)象并設(shè)置有關(guān)的屬性：（每個(gè)屬性設(shè)置1

分）

表1

對(duì)象名屬性屬性值對(duì)象名屬性屬性值

Formlcaption模擬售貨機(jī)標(biāo)簽1namelab1

標(biāo)簽2namelab2標(biāo)簽1caption貨品的數(shù)量（個(gè)）

標(biāo)簽2caspti貨品的單價(jià)（元）文本框1nametxtl

on

文本框2nametxt2命令按鈕namecmdl

命令按鈕captio總價(jià)命令按鈕defauIttrue

n

（3）（4分）編寫合適的事件，當(dāng)顧客輸入貨品日勺數(shù)量及單價(jià),用消息框輸出成果。（闡明:

程序中不得使用變量，事件過(guò)程中只能寫一條語(yǔ)句。）

PrivateSubcmdl_CIick（）

MsgBox”總價(jià)為“&Va1（txtl.Text）*Va1（txt2.Text）,，”成果“

EndSub

2.（12分）在名稱為Forml口勺窗體上畫個(gè)列表框，其名稱為L(zhǎng)1;一種水平滾動(dòng)條,其名稱

為HSlzSma1Ichange屬性為2。Largechange屬性為10。Min屬性為10,Max屬性為

100,編寫適應(yīng)的事件過(guò)程。程序運(yùn)行后，假如把滾動(dòng)框移到某個(gè)位置，然后單擊窗體，則在

列表框中添加一種項(xiàng)其內(nèi)容是“XX"，其中XX是滾動(dòng)框所在的位置，如圖2所示。

圖2

操作規(guī)定：

（1）（2分）創(chuàng)立一種原則￡乂￡工程,將其窗體文獻(xiàn)和工程文獻(xiàn)分別以1?$11-2.住01、165口

-2,vbp為文獻(xiàn)名保留到試題一的文獻(xiàn)夾下。

（2）（6分）參照?qǐng)D1完畢界面設(shè)計(jì):按表添加有關(guān)對(duì)象并設(shè)置有關(guān)的屬性：（每個(gè)屬性設(shè)置1

分）

表1

對(duì)象名屬性屬性值對(duì)象名屬性屬性值

列表框name11水平滾動(dòng)條namehsl

水平滾動(dòng)條Sma112水平滾動(dòng)條Largech10

changeange

水平滾動(dòng)條max100水平滾動(dòng)條min10

（3）（4分）根據(jù)題意編寫合適的事件和代碼，實(shí)現(xiàn)如圖2效果。（闡明：程序中不得使用變

量，事件過(guò)程中只能寫一條語(yǔ)句。）

PrivateSubForm_C1ick（）

ll.Addltemhsl.Value

EndSub

試題二（25分）

1.（15分）設(shè)計(jì)如圖3、圖4所示的程序，單擊按鈕，通過(guò)輸入框輸入數(shù)字，假如是正數(shù)，則

顯示在Listl中，假如是負(fù)數(shù)顯示在List2中。同步記錄正數(shù)、負(fù)數(shù)U勺和，顯示在對(duì)應(yīng)的標(biāo)

簽中，圖5所示。規(guī)定輸入框在輸入時(shí)，能動(dòng)態(tài)提醒目前輸入的是第幾種數(shù)，如圖5所示。

完畢命令按鈕有關(guān)的代碼。

圖5

打開某途徑下II勺工程文獻(xiàn)test2-l.vbp,完畢下列操作：

(1)(12分)將2.txt文獻(xiàn)復(fù)制到命令按鈕的單擊事件中(3分)，根據(jù)題意完畢(1)(2)(3)(4)

(5),讓程序?qū)Φ膱?zhí)行。(每填空2分，共10分。

(2)(2分)保留窗體文獻(xiàn)和工程文獻(xiàn),生成可執(zhí)行文獻(xiàn)test2-l.exe保留到試題目錄下的

“試題二”文獻(xiàn)夾。

PrivateSubCommand1_C1ick()

Dimn%,a!,si!,s2!

n=1

a=Vai(InpulBox(〃請(qǐng)輸入第〃&n&〃個(gè)數(shù)，輸入0結(jié)束"))

DoWhilea<>0

Ifa>0Then

Listl.AddItema

s1=s1+a

Else

List2.Additema

s2=s2+a

EndIf

n=n4-1

a=Vai（InputBox（"請(qǐng)輸入第"&n&〃個(gè)數(shù)，輸入。結(jié)束"））

Loop

Label3.Caption=Label3.Caption&s1

Label4.Caption=Labe14.Caption&s2

EndSub

2.10分）在考生文獻(xiàn)夾下有一種工程文獻(xiàn)lesi22Vbp，功能是用來(lái)計(jì)算勾股定理整數(shù)組合

的個(gè)數(shù)。勾股定理中3個(gè)數(shù)的關(guān)系是：a2+b?=C2。例如,3、4,5就是一種滿足條件的I整數(shù)

組