2025年单考单招VB模拟试题及答案 完整版209.pdfVIP

百川东到海，何时复西归?少壮不努力，老大徒伤悲。——汉乐府

--

2025·VＢ操作题第一套

试题一:(30分）

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

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

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

图１图2

操作要求：

1.(４分）创建一个标准ＥXE工程,将其窗体文件和工程文件分别以test1.frm、tｅｓt1．ｖ

ｂp为文件名保存到考生文件夹下。

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

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

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

Fｏｒm1caｐtion字体效果Ｌabel1ｎａmelab1

Label1ｃaption请您留下宝Tｅｘt1nametxt1

贵意见

Teｘt1mulｔilinｅtruｅTeｘｔ1scrollbａ2

rs

Tｅｘt１ｆｏrecolｏH0000０Chｅck1capｔion加粗

r0FF

Comｍａｎd1namecｍd１Cheｃk２cａption斜体

Commａｎｄ1captｉon结束Ｃommａenabｌeｄｆａlsｅ

ｎd1

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ｄ=Nottxt１.Ｆｏ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ａn