2023年V B 操作題第一套

2023年VB操作題第一套

試題一：（30分）

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

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

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

0字體效果■回

請您留下寶貴意見

VB程序設(shè)計"

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

圖1圖2

操作規(guī)定：

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

bp為文獻名保留到考生文獻夾下。

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

表1（每個屬性1分，共12分）

對象名屬性屬性值對象名屬性屬性值

Form1caption字體效果Labe11name1abl

Labe11caption請您留下寶Textlnametxt1

貴意見

Text1multilinetrueTextlscrol1ba2

rs

Textlforecolor&HOOO000FCheckcaptio加粗

F&1n

Command1namecmdlCheck2caption斜體

Commandlcaption結(jié)束Commaenabledfalse

ndl

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

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

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

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

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

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

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

題一”文獻夾。

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ù)身高和體重判斷胖瘦，程序運行界面如圖3

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

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

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

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

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

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

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

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

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

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

“試題一”文獻夾。

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è)計和程序運行

效果如圖5所示。

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

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

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

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

“試題二”文獻夾。

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分）

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

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

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

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

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

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

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

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

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

題三”文獻夾

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è)計一種模擬中獎號碼的VB程序。界面設(shè)計和運行效果如圖1和圖2所示

圖1

口隨機抽數(shù)ko回

福利彩票抽獎程序

中獎號碼

夕了憶了6萬限6

開始S

圖2

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

bp為文獻名保留到試題一的J文獻夾下。

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

設(shè)置1分）表1

對象名屬性屬性值對象名屬性屬性值

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

tion獎程序

Labellfontname幼圓Labellfontsiz29

e

Label1foreco&H0000Frame1caption中獎號碼

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文獻復(fù)制到合適的事件（2分）中。

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

效，命令按鈕command2有效。

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

1有效，命令按鈕command2無效。

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

題一”文獻夾。

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程序段實現(xiàn)如下功能:加載窗體后(從鍵盤上輸入項數(shù)N)如圖3所示，輸

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

操作規(guī)定：

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

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

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

圖3

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

的“試題二”文獻夾。

PrivateSubForm_Load()

DimsAsSing1e,N%,F%,t!

s=O:F=l

N=Val(lnputBox("請輸入項數(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個數(shù)開始，每個數(shù)是

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

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

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

如圖4所示

操作規(guī)定:

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

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

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

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

“試題二”文獻夾。

PrivateSubCommandl_ClickO

Dimn%,t&,a&,b&

n=Vai(txtl.Text)

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

Fori=(1)Ton

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

a=b

b=t

Nexti

labl.Caption=〃第"&n&"項時值”

txt2.Text=t

EndSub

試題三(20分)

編寫模擬比賽評分的程序，功能為：單擊窗體，由鍵盤輸入10位評委的打分，

工程1?—MOflT

請輸入第3評委打分確定|

取消

圖4

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

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

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

效果為圖5所示。

圖5

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

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

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

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

“試題三”文獻夾。

PrivateSubForm_C1ick（）

DimkAsSingle,i%,sAsSingle

DimmaxAsSingle,minAsSing1e

k=Va1（InputBox（"請輸入第1位評委打分"））

Print"評委打分：”;k；

max=k：mink:s=k

Fori=2To10

k=Val(lnputBox(”請輸入第“&i&”評委打分”))

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的計

時器控件，程序運行后,文本框中居中18號顯示的是目前的時間.并且文本框中所顯示

的時間會隨時間的變化而變化，程序運行效果圖1所示:

?Forml13回區(qū)

10:29:46

a?

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

stl-1.vbp為文獻名保留到試題一的文獻夾下。

（2）（6））參照圖1完畢界面設(shè)計:按表添加有關(guān)對象并設(shè)置有關(guān)H勺屬性：（每個屬性設(shè)置1

分）表I

對象名屬性屬性值對象名屬性屬性值

FormlnamemeTextlA1ig2

nment

Textlnametxt1Textlfontsiz18

e

TimerlnametmrlTimerlinterval1000

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

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

1-1.frm,工程文獻名為testl-1.vbpo

PrivateSubtmr1—Timer0

txt1.Text=Time

EndSub

2.（16分）在窗體上繪制兩個名稱分別為Lab1和Lab2日勺標簽,它們的標題分別為“請

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

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

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

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

圖2

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

-2.vbp為文獻名保留到試題一的文獻夾下。

（2）（8））參照圖2完畢界面設(shè)計:按表添加有關(guān)對象并設(shè)置有關(guān)的屬性：（每個屬性設(shè)置

1分）表1

對象名屬性屬性值對象名屬性屬性值

TextlnametxtlText2nametxt2

Labellnamelab1Label2name1ab2

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

on

CommannamecmdlCommandlcaptio計算

dln

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

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

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

testl-2.frm,工程文獻名為test1-2.vbp。

PrivateSubcmdl_C1ick()

Fori=1ToVa1(txtl.Text)

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

Nexti

EndSub

試題二（25分）

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

來變化字符滾動速度；（事件2分，一條代碼2分）

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

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

（3）（5分）定期器事件是將標簽1每隔一定期間一直從左向右以每200級移動;將2—1.tx

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

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

“試題二”文獻夾。

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程序功能是：找出此號碼,有一張單據(jù)上有一種五位數(shù)的號碼67**8,

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

運行成果圖5所示。

圖5

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

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

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

“試題二”文獻夾。

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è)計一種成績記錄程序。程序運行后，先后出現(xiàn)如下圖4和圖5的對話框，最終運行效

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

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

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

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

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

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

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

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

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

題三”文獻夾。

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”成績排序：”

Fori=1Ton

Printa(i),

IfiMod4=0ThenPrint

Nexti

EndSub

PrivateSubCommand3_Click()

End

EndSub

PrivateSubForm_Load(I

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

ReDima(n)

Fori=1Ton

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

Nexti

EndSub

2023年VB操作題第四套

試題一（30分）

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

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

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

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

設(shè)置1分）表1

對象名屬性屬性值對象名屬性屬性值

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

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藍色Optiobackco1&HOOFFO000&

(2)onnl(2)or

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

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

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

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

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

變化。

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

應(yīng)的變化。

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

題一”文獻夾。

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)顧客從鍵盤輸入任意字符到文本框后，單擊

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

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

用大小寫函數(shù)）

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

2.（18分）

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

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

分）

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

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

題二”文獻夾。

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語言編寫一種程序其功能：產(chǎn)生30個［）300,500］時隨機整數(shù)，找其中的素數(shù)并將

素數(shù)進行排序。程序運行界面圖3、圖4、圖5、圖6所示，窗體上有三個文本框（從上到下

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

次為c。mmandKcommand2和command3）并command2和command3無效。

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

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

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

的效果(2分)。

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

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

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

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

碼)效果圖8所示。

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

“試題三”文獻夾。

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ù)量及單價，求總價并輸出。窗體標題設(shè)置為“模

擬售貨機”，窗體forml上的兩個標簽（分別命名為Labi和Lab2,標題為“貨品

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

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

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

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

!擬售貨機?二nx

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

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

總價

圖1圖2

操作規(guī)定：

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

testl-1.vbp為文獻名保留到試題一的文獻夾下。

（2）（10分）參照圖1完畢界面設(shè)計:按表添加有關(guān)對象并設(shè)置有關(guān)的屬性：（每個屬性設(shè)置1

分）

表1

對象名屬性屬性值對象名屬性屬性值

Formlcaption模擬售貨機標簽1namelab1

標簽2namelab2標簽1caption貨品的數(shù)量（個）

標簽2caspti貨品的單價（元）文本框1nametxtl

on

文本框2nametxt2命令按鈕namecmdl

命令按鈕captio總價命令按鈕defauIttrue

n

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

程序中不得使用變量，事件過程中只能寫一條語句。）

PrivateSubcmdl_CIick（）

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

EndSub

2.（12分）在名稱為Forml口勺窗體上畫個列表框，其名稱為L1;一種水平滾動條,其名稱

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

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

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

圖2

操作規(guī)定：

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

-2,vbp為文獻名保留到試題一的文獻夾下。

（2）（6分）參照圖1完畢界面設(shè)計:按表添加有關(guān)對象并設(shè)置有關(guān)的屬性：（每個屬性設(shè)置1

分）

表1

對象名屬性屬性值對象名屬性屬性值

列表框name11水平滾動條namehsl

水平滾動條Sma112水平滾動條Largech10

changeange

水平滾動條max100水平滾動條min10

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

量，事件過程中只能寫一條語句。）

PrivateSubForm_C1ick（）

ll.Addltemhsl.Value

EndSub

試題二（25分）

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

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

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

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

圖5

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

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

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

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

“試題二”文獻夾。

PrivateSubCommand1_C1ick()

Dimn%,a!,si!,s2!

n=1

a=Vai(InpulBox(〃請輸入第〃&n&〃個數(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（"請輸入第"&n&〃個數(shù)，輸入。結(jié)束"））

Loop

Label3.Caption=Label3.Caption&s1

Label4.Caption=Labe14.Caption&s2

EndSub

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

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

組