2015单考单招VB模拟精彩试题及问题详解

《2015单考单招VB模拟精彩试题及问题详解》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实用标准文档2015年VB操作题第一套试题一：（30分）用VB编制一个程序，初始界面如图1，文本框显示程序运行输入的文本（文本框有垂直滚动条，文本为红色）。程序运行时可通过复选框对文本字形进行设置，效果如图2，只有当文本框内容非空时“结束”按钮才有效，单击“结束”按钮结束程序运行。图1图2操作要求：1．（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到考生文件夹下。2.（12分）参照图1和图2完成界面设计：按表添加相关对象并设置相关的属性：表1（每个属性1分，共12分）对象名属性属性值对象名属性属性值Form1capt

2、ion字体效果Label1namelab1Label1caption请您留下宝贵意见Text1nametxt1Text1multilinetrueText1scrollbars2Text1forecolor&H000000FF&Check1caption加粗Command1namecmd1Check2caption斜体Command1caption结束Command1enabledfalse3.（1）（4分）编写适当的事件（2分）：只有当文本框内容非空时“结束”按钮才有效。文案大全实用标准文档（不用能VB函数）（代码2分）（2）（4分）单击“加粗”复选框时，文本框中的文字显示加粗

3、效果；否则取消；（要求不能用IF语句来实现）（事件2分，一条代码2分）（3）（4）单击“斜体”复选框时，文本框中的文字显示斜体效果，否则取消。（要求不能用IF语句来实现）（事件2分，一条代码2分）4.（2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。PrivateSubCheck1_Click()txt1.FontBold=Nottxt1.FontBoldEndSubPrivateSubCheck2_Click()txt1.FontItalic=Nottxt1.FontItalicEndSubPrivateSubCommand1_

4、Click()EndEndSub'答案两种：'方法一：'PrivateSubTxt1_Change()'IfTxt1.Text=""Then'cmd1.Enabled=False'Else'cmd1.Enabled=True'EndIf'EndSub'方法二PrivateSubTxt1_Change()Iftxt1.Text<>""Thencmd1.Enabled=True文案大全实用标准文档Elsecmd1.Enabled=FalseEndIfEndSubPrivateSubcmd1_Click()EndEndSub试题二（25分）1．（13分）有一个VB程序，其功能是：根据身

5、高和体重判断胖瘦，程序运行界面如图3和图4所示。胖瘦条件：如果身高与体重之差大于等于110，则表示“你太瘦了！”；如果身高与体重之差小于等于100，则表示“你太胖了！”；如果身高与体重之差在100――110之间，则表示“你的身材真好！”图1图2打开某路径下的工程文件test2-1.vbp，完成下列操作：（1）（3分）当用户在文本框1输入身高时，命令按钮command1有效，添加适当的事件和代码实现此功能。(事件1分，一句代码2分)（2）（8分）完成相应注释1和注释2处的修改，实现根据身高和体重判断胖瘦的功能并显示“退出”按钮注释3处添加一条代码（2分），同时“计算”按钮无效注释4

6、处添加一条代码（2分）。（每格2分，共4分）（3）（2分）保存窗体文件和工程文件，生成可执行文件test2-1.exe保存到试题目录下的“试题一”文件夹。文案大全实用标准文档PrivateSubCommand1_Click()DimhAsSingle,wAsSingle,xAsSingleh=Val(Text1.Text)w=Val(Text2.Text)x=h-wIfx>=110ThenLabel4.Caption="你太瘦了！"ElseIfx>100ThenLabel4.Caption="你的身材真好！"ElseLabel4.Caption="你太胖了！"EndIfComma

7、nd2.Visible=TrueCommand1.Enabled=FalseEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubText1_Change()Command1.Enabled=TrueEndSub2．（12分）填空完成VB程序，其功能是求某一天是这一年的第几天，界面设计和程序运行效果如图5所示。文案大全实用标准文档图5打开某路径下的工程文件test2-2.vbp，完成下列操作：（1）10分）输入某一天（年、月、日），