单考单招VB模拟试题及答案.docx

单考单招VB模拟试题及答案.docx

《单考单招VB模拟试题及答案.docx》由会员分享，可在线阅读，更多相关《单考单招VB模拟试题及答案.docx（48页珍藏版）》请在冰豆网上搜索。

单考单招VB模拟试题及答案

20１５年VＢ操作题第一套

试题一:

（30分）

用VB编制一个程序,初始界面如图1,文本框显示程序运行输入的文本（文本框有垂直滚动条,文本为红色）。

程序运行时可通过复选框对文本字形进行设置，效果如图2，只有当文本框内容非空时“结束”按钮才有效,单击“结束”按钮结束程序运行。

图１

图2

操作要求：

1.（４分）创建一个标准ＥXE工程,将其窗体文件和工程文件分别以test1.frm、tｅｓt1．ｖｂp为文件名保存到考生文件夹下。

２.（12分）参照图1和图２完成界面设计:

按表添加相关对象并设置相关的属性：

表1　（每个属性1分,共１2分）

对象名

属性

属性值

对象名

属性

属性值

Fｏｒm1

caｐtion

字体效果

Ｌabel1

ｎａme

lab1

Label1

ｃaption

请您留下宝贵意见

Tｅｘt1

name

txt1

Teｘt1

mulｔilinｅ

truｅ

Teｘｔ1

scrollbａrs

2

Tｅｘt１

ｆｏrecolｏr

&H0000０0FF&

Chｅck1

capｔion

加粗

Comｍａｎd1

name

cｍd１

Cheｃk２

cａption

斜体

Commａｎｄ1

captｉon

结束

Ｃommａｎd1

enabｌeｄ

ｆａlsｅ

3.

（1）（4分）编写适当的事件（2分）:

只有当文本框内容非空时“结束”按钮才有效。

（不用能VＢ函数）（代码2分）

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

（要求不能用IＦ语句来实现）（事件2分,一条代码2分）

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

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

4.（2分）保存窗体文件和工程文件,生成可执行文件teｓｔ１.ｅxe保存到试题目录下的“试题一”文件夹。

PrｉvateＳubCｈecｋ１_Ｃlｉck（）

txt１.FｏnｔＢｏlｄ=Not　txt１.ＦｏnｔBold

EndＳuｂ

PriｖaｔｅSｕbChｅcｋ２＿Cｌick（）

　txt1.FｏntItalｉc=Ｎottxｔ1.FｏntＩtalｉｃ

EnｄSub

PｒiｖａteＳuｂCommａnd１＿Ｃlｉcｋ（）

End

EndSub

＇答案两种:

'方法一:

'Pｒｉvate　Sｕb　Ｔxｔ1_Change（）

'IfTｘt1．Teｘt=""Thｅn

'ｃmd1．Enａbled=Faｌse

＇Elｓe

　'cmd1.Enabled　=　Trｕe

＇EnｄIf

'EｎdSub

'方法二

Prｉｖate　SuｂＴxｔ1_Ｃhａngｅ（）

Iftxｔ1.Tｅxt<>""　Then

　cｍｄ１.Eｎabled=True

Eｌse

cｍd1.Ｅｎａbled　=　Ｆａlse

Eｎd　If

ＥndSｕb

PrｉｖaｔeSuｂcｍｄ１_Cｌick（）

Eｎd

EnｄSub

试题二（25分）

1.（13分）有一个VＢ程序,其功能是:

根据身高和体重判断胖瘦，程序运行界面如图3和图4所示。

胖瘦条件:

如果身高与体重之差大于等于1１0，则表示“你太瘦了！

”；如果身高与体重之差小于等于１０0,则表示“你太胖了！

”;如果身高与体重之差在100――１10之间,则表示“你的身材真好!

”

图1

图2

打开某路径下的工程文件test2－1.vbｐ,完成下列操作：

（１）（3分）当用户在文本框1输入身高时，命令按钮cｏｍｍanｄ１有效，添加适当的事件和代码实现此功能。

（事件1分，一句代码2分）

（２）（８分）完成相应注释1和注释２处的修改,实现根据身高和体重判断胖瘦的功能并显示“退出”按钮注释３处添加一条代码（2分），同时“计算”按钮无效注释4处添加一条代码（2分）。

（每格2分,共4分）

（3）　（2分）保存窗体文件和工程文件,生成可执行文件ｔesｔ２-1．exｅ保存到试题目录下的“试题一”文件夹。

ＰrivaｔeSubCommａｎｄ1_Click（）

DimｈAsSinglｅ,　wAsSiｎgle,xＡｓSｉｎｇle

h=Vaｌ（Text1.Teｘt）

w　=Vａl（Ｔexｔ２．Text）

ｘ　=ｈ-　w

Ｉf　x>=110　Then

Label4.Cａpｔｉon＝　"你太瘦了!

"

ElsｅIfx　>100Tｈｅn

Laｂel４.Cａpｔiｏn＝"你的身材真好!

＂

Else

　Ｌabel4.Ｃapｔion=　"你太胖了！

＂

EndＩf

Commａnd２．Viｓiblｅ　＝　Trｕe

Commaｎd1．Enabled＝Fａlse

Ｅnd　Sub

Privaｔe　ＳuｂComｍand2_Click（）

End

EndSub

PriｖatｅSuｂＴｅxt1＿Ｃhanｇｅ（）

Cｏｍmａnd1.Enablｅd　=Trｕｅ

EndSub

２.（12分）填空完成ＶB程序，其功能是求某一天是这一年的第几天,界面设计和程序运行效果如图5所示。

图5

打开某路径下的工程文件ｔest2-２.ｖbp，完成下列操作:

（１）10分）输入某一天（年、月、日），单击“开始”按钮，计算这一天在本年中的天数（第几天）完成注释（１）

（2）（3）（4）（5）填空实施此功能。

（每空2分,共10分）

（2）（２分）保存窗体文件和工程文件，生成可执行文件tｅｓt2-2.ｅxe保存到试题目录下的“试题二”文件夹。

Opｔioｎ　Base1

ＰｒivateSｕbCommａnd1_Ｃlicｋ（）

　Dimａ,T％,y%

　　a=Array（3１，2８,　31,　30,　31,30,31，３1，30，31,３0,　31）

　　　y=Val（Ｔext１.Tｅxt）

　　Ｉｆ　ｙMod　400=0Or（ｙMoｄ　４＝　0　AndyMod100<>　0）　Tｈen

　　a

（2）=２9

　EｎdIf

　n　=　Vａl（Cｏmbo1．Teｘt）

Fori=1　Ton　-1

　　Ｔ＝T+ａ（i）

　　Ｎｅxt　i

　　Tｅxt2.Tｅｘt＝T　+Vａl（Liｓt1.Text）

EnｄSub

PrｉvateSuｂCｏｍmand２_Clｉck（）

End

EｎdＳub

Privａte　SubＦｏrm_Loaｄ（）

　　Ｆor　i=１Tｏ３１

　　Liｓt1．AｄｄItemi

　Ｎexti

Ｆori=　1To12

　　　Combo1.AddIteｍｉ

Nexｔ　i

EｎdSub

试题三、（2０分）

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

在明文文本框中输入一串字串，在密文文本框中输出密文,加密规则:

若字符为字母，将每个字母向后移1、3、5,结果仍是字母，其它字符保持不变。

界面设计和运行效果如图4和图5所示。

打开“试题三”文件夹中的工程文件test3.ｖｂp,并完成下列操作:

1.（3分）单击单选按钮的控件数组中任一个单选按钮，决定移动位数N，添加适当的事件和代码实现此功能（注:

变量N设置通用变量）

2.（15分）将３．txt文件复制到“加密”按钮的事件中，完成相应的

（1）、（２）（3）填空及在注释１所在行添加一条代码，并修改“注释2”所在行的代码,让程序正确执行，删除所有注释。

３.（2分）保存窗体文件和工程文件,生成可执行文件teｓt3.ｅｘｅ保存到试题目录下的“试题三”文件夹

Ｄimn%

Privａte　SubCｏmｍand1_Clicｋ（）

Dimm％

Dim　s$,x$

m=Ｌeｎ（Text1.Teｘt）

Fori=1To　m

　ｘ　=Mｉd$（Tｅｘt1．Tｅxt,i,　1）

Ｉfx＞=　"A"Aｎdx<＝"Z"Oｒx>="a"Anｄx<=　"z"　Then

　x=　Ｃhr（Aｓc（x）+n）

　　Ifx>＂z"Ｏrx　>＂Z"Ａnd　ｘ＜"a"Tｈen

　　x=Ｃhr（Asc（x）-２6）

　　　End　Ｉf

　　ＥnｄIｆ

s=s+x

Nｅｘｔｉ

Text2.Tｅxt　=s

EｎdSｕb

ＰrｉvａteSub　Option1_Clｉcｋ（IndexAs　Iｎtｅger）

ｎ　=Optｉｏn1（Ｉndex）.Cａpｔion

End　Sｕb

2０15年VB操作题第二套

试题一（30分）

设计一个模拟中奖号码的ＶB程序。

界面设计和运行效果如图1和图2所示

图1

图２

1．（4分）创建一个标准EXE工程,将其窗体文件和工程文件分别以test1.ｆｒm、test1．vbp为文件名保存到试题一的文件夹下。

2.（1４分）参照图１和图2完成界面设计:

按表添加相关对象并设置相关的属性：

（每个属性设置１分）表1

对象名

属性

属性值

对象名

属性

属性值

Form1

capｔion

随机抽数

Label1

caｐｔion

福利彩票抽奖程序

Labeｌ1

fontnaｍe

幼圆

Label１

foｎtsｉze

29

Ｌabｅl1

foreｃoloｒ

＆Ｈ０００000FF&

Fｒａme１

cａpｔion

中奖号码

Ｔext1（0）-ｔexｔ1（7）

foｎｔsizｅ

24（修改）

Frａmｅ1

name

Fr1

Command１

cａpｔion

开始＆S

Tｅxt１（０）-tｅxt1（7）

baｃkcolor

&H00Ｃ0C0FF&

Ｔimer1

Enablｅｄ

falｓe

Ｃommand2

cａptｉon

停止＆X

Tｉｍeｒ１

iｎｔerval

10０

Coｍmaｎd2

Eｎａbｌeｄ

false

3.操作要求：

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

（2）（4分）完成“开始”按钮的代码,功能具有定时器开始工作,命令按钮commanｄ1无效，命令按钮commａnd2有效。

（３）　（４分）完成“停止”按钮的代码，功能具有定时器停止工作,命令按钮commanｄ１有效,命令按钮commａｎd2无效。

４．　（2分）保存窗体文件和工程文件，生成可执行文件test1．exe保存到试题目录下的“试题一”文件夹。

PrivatｅSubCommａnｄ１_Ｃｌｉck（）

Tiｍeｒ1.Enabｌeｄ=Trｕe

Ｃoｍmａnｄ1.Ｅnaｂled=Ｆａlｓe

Comｍand2.Eｎablｅｄ=Trｕe

EndSub

PrivateSｕbCoｍmaｎｄ2_Cｌick（）

Ｔimeｒ1．Ｅｎａblｅd＝Fａlse

Cｏmmanｄ１.Enabｌed　=Tｒｕｅ

Comｍand2.Ｅｎabｌｅd　＝Ｆａlse

EｎdSub

Ｐｒｉvate　Ｓuｂ　Tｉmeｒ1＿Timｅr（）

Ranｄｏmize

　Fori=0To7

　Text1（i）．Texｔ　=　Int（１０*Rｎd）'答案也可以是Ｔeｘt1（ｉ）.Ｔｅxt