2023年V B 操作题第一套

2023年VB操作题第一套

试题一：（30分）

用VB编制一种程序，初始界面如图1,文本框显示程序运行输入的文本（文本框有垂直滚动

条，文本为红色）。程序运行时可通过复选框对文本字形进行设置，效果如图2,只有当文

本框内容非空时“结束”按钮才有效，单击“结束”按钮结束程序运行。

0字体效果■回

请您留下宝贵意见

VB程序设计"

厂加粗p-HS结束|

图1图2

操作规定：

1.（4分）创立一种原则EXE工程，将其窗体文献和工程文献分别以testl.frm.testl.v

bp为文献名保留到考生文献夹下。

2.（12分）参照图1和图2完毕界面设计:按表添加有关对象并设置有关日勺属性：

表1（每个属性1分，共12分）

对象名属性属性值对象名属性属性值

Form1caption字体效果Labe11name1abl

Labe11caption请您留下宝Textlnametxt1

贵意见

Text1multilinetrueTextlscrol1ba2

rs

Textlforecolor&HOOO000FCheckcaptio加粗

F&1n

Command1namecmdlCheck2caption斜体

Commandlcaption结束Commaenabledfalse

ndl

3.（1）（4分）编写合适的事件（2分）：只有当文本框内容非空时“结束”按钮才有效。

（不用能VB函数）（代码2分）

（2）（4分）单击“加粗”复选框时，文本框中的文字显示加粗效果；否则取消；

（规定不能用IF语句来实现）〔事件2分，一条代码2分）

（3）（4）单击“斜体”复选框时，文本框中的文字显示斜体效果，否则取消。

（规定不能用IF语句来实现）（事件2分，一条代码2分）

4.（2分）保留窗体文献和工程文献，生成可执行文献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程序，其功能是:根据身高和体重判断胖瘦，程序运行界面如图3

和图4所示。胖瘦条件：假如身高与体重之差不不大于等于110,则体现“你太瘦了！〃；假

如身高与体重之差不不不大于等于100,则体现“你太胖了!〃;假如身高与体重之差在10

O--110之间,则体现“你的身材真好！”

打开某途径下的工程文献test2-1.vbp,完毕下列操作：

（1）（3分）当顾客在文本框1输入身高时，命令按钮command1有效，添加合适的事件和代

码实现此功能,（事件1分，一句代码2分）

（2）（8分）完毕对应注群1和注释2处口勺修改，实现根据身高和体重判断胖瘦的功能并显示

“退出”按钮注释3处添加一条代码（2分），同步“计算”按钮无效注释4处添加一条代码

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

（3）（2分）保留窗体文献和工程文献,生成可执行文献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程序，其功能是求某一天是这一年的第几天，界面设计和程序运行

效果如图5所示。

打开某途径下日勺工程文献test2-2.vbp,完毕下列操作:

（1）10分）输入某一天（年、月、日）,单击“开始”按钮，计算这一天在本年中的天数（第

几天)完毕注释(1)(2)(3)(4)(5)填空实行此功能。(每空2分,共10分)

(2)(2分)保留窗体文献和工程文献,生成可执行文献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程序使其具有下列功能:

在明文文本框中输入一串字串，在密文文本框中输出密文，加密规则:若字符为字母，将每个字

母向后移1、3、5,成果仍是字母，其他字符保持不变。界面设计和运行效果如图4和图5所

打开“试题三”文献夹中的工程文献test3.vbp,并完毕下列操作：

I.（3分）单击单项选择按钮的控件数组中任一种单项选择按钮,决定移动位数N,添加合适

的事件和代码实现此功能（注:变量N设置通用变量）

2.（15分）将3.txt文献复制到“加密”按钮的事件中，完毕对应的⑴、（2）（3）填空及在

注释1所在行添加一条代码，并修改“注释2”所在行的代码，让程序对的执行，删除所有注释。

3.(2分)保留窗体文献和工程文献，生成可执行文献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分）

设计一种模拟中奖号码的VB程序。界面设计和运行效果如图1和图2所示

图1

口随机抽数ko回

福利彩票抽奖程序

中奖号码

夕了忆了6万限6

开始S

图2

1.（4分）创立一种原则EXE工程，将其窗体文献和工程文献分别以test1.frm、test1.v

bp为文献名保留到试题一的J文献夹下。

2.（14分）参照图1和图2完毕界面设计:按表添加有关对象并设置有关的属性：（每个属性

设置1分）表1

对象名属性属性值对象名属性属性值

Formlcap随机抽数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.操作规定：

（1）（2分）将1.txt文献复制到合适的事件（2分）中。

（2）（4分）完毕“开始”按钮的代码，功能具有定期器开始工作，命令按钮commandl无

效，命令按钮command2有效。

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

1有效，命令按钮command2无效。

4.（2分）保留窗体文献和工程文献，生成可执行文献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程序段实现如下功能:加载窗体后(从键盘上输入项数N)如图3所示，输

出S的计算成果。请根据规定，将程序补充完整。S的值用消息框显示

操作规定：

(1)(10分)打动工程文献test2-l.vbp,将2.txt文献复制到窗体加载事件中(2分)，完毕

(1)、(2)、(4)时填空及注释1的(3)代码；让程序对的运行。用消息框显示成果如图3

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

图3

（2）（2分）保留窗体文献和工程文献，生成可执行文献test2-l.exe保留到试题目录下

的“试题二”文献夹。

PrivateSubForm_Load()

DimsAsSing1e,N%,F%,t!

s=O:F=l

N=Val(lnputBox("请输入项数"))'2分

Fori=IToN'2分

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

Nexti

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

EndSub

2.（13分）数列1,1,3,5,9,,15,25,41…的规律是从第3个数开始，每个数是

它前面两个数的和加1。在考生文献夹中有一种工程文献test2・2.vbp（对应的窗体文献

为test2-2.frm）o窗体Forml中己经给出了所有控件。编写合适的事件过程实现如下功能:

在Txtl中输入整数（例如30）,单击“计算”按钮，则在Txt2中显示该数列第30项时值,

如图4所示

操作规定:

（D（11分）打动工程文献test2-2.vbp,将2-2.txt文献复制适事件中（1分），把程序中

的问号(1)(2)(3)(4)(5)改为对的的内容，使其实现上述功能，但不得修改程序的其他部

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

(2)(2分)保留窗体文献和工程文献，生成可执行文献test2-2.exe保留到试题目录下的

“试题二”文献夹。

PrivateSubCommandl_ClickO

Dimn%,t&,a&,b&

n=Vai(txtl.Text)

a=1：b=1'体现第一项和第二项

Fori=(1)Ton

t=a+b+1't体现每一项时值

a=b

b=t

Nexti

labl.Caption=〃第"&n&"项时值”

txt2.Text=t

EndSub

试题三(20分)

编写模拟比赛评分的程序，功能为：单击窗体，由键盘输入10位评委的打分，

工程1・—MOflT

请输入第3评委打分确定|

取消

图4

输入时用动态提醒如图4所示。并在窗体中显示，当输入完第1。位评委的打分后，在窗体显

示“去掉一种最高分：”和“去掉一种最低分：“及“最终得分：”的文字及数字。其中最终

得分的计算公式为:去掉一种最分，去掉•种最低分后的8位评委的平均分（保留小数点一位）。

效果为图5所示。

图5

1.（2分）打动工程文献test2.vbp,将3.txt文献复制到合适的事件；

2.（16分）根据题意完善（1）（3）（6）⑺（8）的填空;根据注释1、注释2、注释3Mj分

别添加体现式、修改和一条代码;让程序对日勺执行，删除所有注释。（考试索材处已修改）

3.（2分）保留窗体文献和工程文献，生成可执行文献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回区

10:29:46

a।

（1）（4分）创立一种原则EXE工程，将其窗体文献和工程文献分别以testl-l.frm、te

stl-1.vbp为文献名保留到试题一的文献夹下。

（2）（6））参照图1完毕界面设计:按表添加有关对象并设置有关H勺属性：（每个属性设置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日勺标签,它们的标题分别为“请

输入一种正整数N”和“1+2+3+-+N="；绘制两个名称分别为Txt1和Txt2的文本框,

它们的内容都设为空白：绘制一种名为Cmd1的命令按钮，其标题为“计算”。编写合

适时程序,使程序运行时.在Txtl中输入一种正整数N,单击“计算”按钮，计算出1+2

+3+…+N附和显示在Txt2中。程序运行成果如图2所示。

图2

（1）（4分）创立一种原则EXE工程,将其窗体文献和工程文献分别以testl-2.frm.test1

-2.vbp为文献名保留到试题一的文献夹下。

（2）（8））参照图2完毕界面设计:按表添加有关对象并设置有关的属性：（每个属性设置

1分）表1

对象名属性属性值对象名属性属性值

TextlnametxtlText2nametxt2

Labellnamelab1Label2name1ab2

Label1capti请输入一种正整数NLabel2caption1+2+3++N

on

CommannamecmdlCommandlcaptio计算

dln

（3）（4分）编写合适事件（2分），使程序运行时.在Txt1中输入一种正整数N,单击“计

算”按钮,计算出1+2+3+…+N日勺和显示在Txt2中。（规定用FOR语句构造）

注意：程序中不得使用任何变量：文献必须寄存在考生文献夹试题-中，窗体文献名为

testl-2.frm,工程文献名为test1-2.vbp。

PrivateSubcmdl_C1ick()

Fori=1ToVa1(txtl.Text)

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

Nexti

EndSub

试题二（25分）

（I）（4分）添加合适事件，定期器间隔时间（interva1）由滚动条事件决定，当拖动滚动块时

来变化字符滚动速度；（事件2分，一条代码2分）

（2）（4）单击“开始”按钮，定期器工作且“停止”按钮显示，单击“停止”按钮,定期器不

工作，且“停止”按钮隐藏。（每一句代码1分，共4分）

（3）（5分）定期器事件是将标签1每隔一定期间一直从左向右以每200级移动;将2—1.tx

t文献复制到对应的事件（1分）完毕（1）（2）填空（每格2分，共4分）

（4）（2分）保留窗体文献和工程文献，生成可执行文献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程序功能是：找出此号码,有一张单据上有一种五位数的号码67**8,

其中百位和十位上的数字看不清了，但懂得该数能被78整除，也能被67整除,求出该号码。

运行成果图5所示。

图5

打开某途径下试题二文献夹下工程文献test2-2.vbp,完毕下列操作：

(1)(10分)完善“填数字”事件(1)(2)(3)(4)(5)的代码，(考试素材已修改)

3.(2分)保留窗体文献和工程文献，生成可执行文献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设计一种成绩记录程序。程序运行后，先后出现如下图4和图5的对话框，最终运行效

果如图5所示。（参照答案已修改好）

1.（4分）当窗体启动时（2分）,规定先输入需要记录的学生人数，输入时要有文字提醒，如图

4所示，再输入各学生分数，如图5所示;将3.ixt文献复制到对应的事件中；完毕（1）填空的

代码（每格2空，共4分），调试程序，让程序对的执行。

2.（8分）单击“记录”按钮，记录出合格人数、不合格人数及平均分（保留1位小数）；完毕

对应的注释1、2、3、4填空，其中在注释3处添加一条代码。

3.（6分）单击“排序”按钮，在窗体上显示分数由高到低的排序，规定每行显示4个，如图5

所示；完毕（5）（6）填空,在注释5处添加一条代码（2分）。

4.（2分）保留窗体文献和工程文献，生成可执行文献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(“请输入学生人数：，“工程1”))

ReDima(n)

Fori=1Ton

a(i)=Val(lnputBox("请输入第"&i&"位学生成绩J工程1"))

Nexti

EndSub

2023年VB操作题第四套

试题一（30分）

设计一种VB程序其功能:实行字体设置。界面设计和运行效果如图1和图2所示

1.（4分）创立一种原则EXE工程,将其窗体文献和工程文献分别以testl.frm.tes

t1.vbp为文献名保留到试题一内文献夹下。

2.（14分）参照图1和图2完毕界面设计:按表添加有关对象并设置有关的属性：（每个属性

设置1分）表1

对象名属性属性值对象名属性属性值

Formlcapti字体设置Text1textVB程序设计

on

Frame1capti颜色HScrol11min10

on

Labe12capt大小HScro11max30

ion1

Labellcapti字体Commandlcapt闭关窗口

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分）窗体加载后，在组合框中添加字体:黑体、隶书、幼圆，添加合适的事

件实现此功能。（添加内容1分，事件1分）

（2）（2分）对option1控件数组添加代码,规定单击对应的颜色后文本框里的文字颜色发生

对应变化。（程序中不得使用任何变量，用动态属性语句格式来编写）

（3）（4分）对combo1添加合适的事件规定选择字体后，文本框中口勺文字的字体发生对应的

变化。

（4）（2分）对hscrolll添加代码，规定点击滚动条默认事件后，文本框中的文字大小发生对

应的变化。

4.（2分）保留窗体文献和工程文献，生成可执行文献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所示。当顾客从键盘输入任意字符到文本框后，单击

“记录”按钮，则对其中的字母、数字进行分类记录，并将记录成果分别显示在2个对应的

标签（1abe14.labe15）中，如图4所示；单击“退出”按钮，则关闭窗.口退出程序。（注:不能

用大小写函数）

1.（5分）打动工程文献testZvbp,修改对应附属性，完毕如图3界面；

2.（18分）

（1）将文本文献2.txt复制到合适的事件中（4分），根据题意完毕（1）的填空及注释1处

（2）、注释2处（3）的填空，修改注释3处代码中的条件。（填空及修改各3分，共12

分）

（2）（2分）单击“退出”按钮，程序结束。

3.（2分）保留窗体文献和工程文献，生成可执行文献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语言编写一种程序其功能：产生30个［）300,500］时随机整数，找其中的素数并将

素数进行排序。程序运行界面图3、图4、图5、图6所示，窗体上有三个文本框（从上到下

依次为textl、text2和text3,三个文本框均容许自动换行），三个命令按钮（从上到下依

次为c。mmandKcommand2和command3）并command2和command3无效。

1.(6分)打动工程文献test3.vbp,将文本文献2.txt中选择符合条件的代码(2分)复制到

合适的I事件(2分)中，实行随机产生30个300—500之间的整数,显示在te

xtl中，数与数之间用空格隔开。并规定在显示前三个文本框清空,实现图6界面

的效果(2分)。

2.(6分)单击“素数”按钮，找出这30个数中的素数并显示在text2中，数与数之间

用空格隔开。根据题意完毕(1)(2)(3)的填空。效果图7所示。

3.(6分)单击“排序”按钮，用选择法将找出的素数按从大到小的次序排序，显示在text3

中，数与数之间用空格隔开。(完毕注释(4)(5)(6)处填空、修改与添加一条代

码)效果图8所示。

4.(2分)保留窗体文献和工程文献，生成可执行文献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分）编写一种程序，输入货品的数量及单价，求总价并输出。窗体标题设置为“模

拟售货机”，窗体forml上的两个标签（分别命名为Labi和Lab2,标题为“货品

的数量（个）:"和“货品的单价（元）巧两个名称分别为Txtl和Txt2的文本框;一种名

称为Cmd14勺命令按钮，其标题为“总价”。成果用消息框显示如图2所示。当顾客输

入货品H勺数量与单价后，顾客单击“总价”按钮或按回车键，输出对内H勺成果，程序运行效

果如图1所示。（规定：程序中不得使用变量，事件过程中只能写一条语句。）

!拟售货机।二nx

货物的数量（个）：

货物的单价优）：

总价

图1图2

操作规定：

（1）（4分）创立一种原则EXE工程，将其窗体文献和工程文献分别以testIT.frm、

testl-1.vbp为文献名保留到试题一的文献夹下。

（2）（10分）参照图1完毕界面设计:按表添加有关对象并设置有关的属性：（每个属性设置1

分）

表1

对象名属性属性值对象名属性属性值

Formlcaption模拟售货机标签1namelab1

标签2namelab2标签1caption货品的数量（个）

标签2caspti货品的单价（元）文本框1nametxtl

on

文本框2nametxt2命令按钮namecmdl

命令按钮captio总价命令按钮defauIttrue

n

（3）（4分）编写合适的事件，当顾客输入货品日勺数量及单价,用消息框输出成果。（阐明:

程序中不得使用变量，事件过程中只能写一条语句。）

PrivateSubcmdl_CIick（）

MsgBox”总价为“&Va1（txtl.Text）*Va1（txt2.Text）,，”成果“

EndSub

2.（12分）在名称为Forml口勺窗体上画个列表框，其名称为L1;一种水平滚动条,其名称

为HSlzSma1Ichange属性为2。Largechange属性为10。Min属性为10,Max属性为

100,编写适应的事件过程。程序运行后，假如把滚动框移到某个位置，然后单击窗体，则在

列表框中添加一种项其内容是“XX"，其中XX是滚动框所在的位置，如图2所示。

图2

操作规定：

（1）（2分）创立一种原则£乂£工程,将其窗体文献和工程文献分别以1?$11-2.住01、165口

-2,vbp为文献名保留到试题一的文献夹下。

（2）（6分）参照图1完毕界面设计:按表添加有关对象并设置有关的属性：（每个属性设置1

分）

表1

对象名属性属性值对象名属性属性值

列表框name11水平滚动条namehsl

水平滚动条Sma112水平滚动条Largech10

changeange

水平滚动条max100水平滚动条min10

（3）（4分）根据题意编写合适的事件和代码，实现如图2效果。（阐明：程序中不得使用变

量，事件过程中只能写一条语句。）

PrivateSubForm_C1ick（）

ll.Addltemhsl.Value

EndSub

试题二（25分）

1.（15分）设计如图3、图4所示的程序，单击按钮，通过输入框输入数字，假如是正数，则

显示在Listl中，假如是负数显示在List2中。同步记录正数、负数U勺和，显示在对应的标

签中，图5所示。规定输入框在输入时，能动态提醒目前输入的是第几种数，如图5所示。

完毕命令按钮有关的代码。

图5

打开某途径下II勺工程文献test2-l.vbp,完毕下列操作：

(1)(12分)将2.txt文献复制到命令按钮的单击事件中(3分)，根据题意完毕(1)(2)(3)(4)

(5),让程序对的执行。(每填空2分，共10分。

(2)(2分)保留窗体文献和工程文献,生成可执行文献test2-l.exe保留到试题目录下的

“试题二”文献夹。

PrivateSubCommand1_C1ick()

Dimn%,a!,si!,s2!

n=1

a=Vai(InpulBox(〃请输入第〃&n&〃个数，输入0结束"))

DoWhilea<>0

Ifa>0Then

Listl.AddItema

s1=s1+a

Else

List2.Additema

s2=s2+a

EndIf

n=n4-1

a=Vai（InputBox（"请输入第"&n&〃个数，输入。结束"））

Loop

Label3.Caption=Label3.Caption&s1

Label4.Caption=Labe14.Caption&s2

EndSub

2.10分）在考生文献夹下有一种工程文献lesi22Vbp，功能是用来计算勾股定理整数组合

的个数。勾股定理中3个数的关系是：a2+b?=C2。例如,3、4,5就是一种满足条件的I整数

组