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

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

试题一:(30分）

用VB编制一个程序,初始界面如图1,文本框显示程序运行输入的文本（文本框有垂直滚动条,文本为红色)。程序运行时可通过复选框对文本字形进行设置，效果如图2，只有当文本框

图１图2

操作要求：

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

２.(12分)参照图1和图２完成界面设计:按表添加相关对象并设置相关的属性：

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

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ｅ

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

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

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

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

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

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

Prｉvate Ｓub Cｈecｋ１_Ｃlｉck()

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

End Ｓuｂ

PriｖaｔｅSｕb Chｅcｋ２＿Cｌick（)

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

EnｄSub

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

End

End Sub

＇答案两种:

' 方法一:

'Pｒｉvate SｕbＴxｔ1_Change()

'If Tｘt1．Teｘt = "" Thｅn

'ｃmd1．Enａbled = Faｌse

＇Elｓe

'cmd1.Enabled=Trｕe

＇EnｄIf

'Eｎd Sub

'方法二

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

If txｔ1.Tｅxt <> ""Then

cｍｄ１.Eｎabled = True

Eｌse

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

Eｎd If

Ｅnd Sｕb

Prｉｖaｔe Suｂ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ｔe Sub Commａｎｄ1_Click()

Dim ｈAs Singlｅ,w As Siｎgle, x ＡｓSｉｎｇle

h = Vaｌ(Text1.Teｘt)

w= Vａl(Ｔexｔ２．Text)

ｘ= ｈ-w

Ｉf x >= 110Then

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

ElsｅIf x> 100 Tｈｅ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

End Sub

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

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

End Sub

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

图5

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

(１）10分）输入某一天(年、月、日)，单击“开始”按钮，计算这一天在本年中的天数(第几天)完成注释(１)(2）(3)(4)（5）填空实施此功能。（每空2分,共10分）

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