vb上机练习题及答案

《vb上机练习题及答案》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、精品文档vb上机练习题及答案一、基本要求熟悉VB集成开发环境掌握代码窗口的应用及录入、编辑代码的基本方法了解VB程序设计的基本步骤二、实习内容实习熟悉VB集成开发环境各组成部分输入一个数，求该数的平方并显示结果第二章一、基本要求熟练掌握各种运算符的应用和优先顺序掌握各种常用函数的功能、参数和返回值掌握立即窗口的使用方法二、实验内容回答整形、长整型、单精度、双精度类型数据占用字节数。已知直角三角形的两条直角边长，求斜边长。PrivateSubCommand1_ClickDima%,b%,c%a=Val)b=Val)c=2016全新精品资料-全新公文范文-全程指导写作–独家原

2、创14/14精品文档SqrPrintcEndSub给小学生随机出两位数和一位数的加法题。PrivateSubCommand1_ClickDima%,b%,c%a=Val)b=Val)c=a+bPrintcEndSub用文本框输入一个带小数的数，对输入的数四舍五入保留2位小数。PrivateSubCommand1_ClickDimx#,y!x=Text1.Texty=RoundPrintyEndSub输入某人姓名，判断是否你的本家。PrivateSubCommand1_ClickDima$,b$,pAsBooleanb=2016全新精品资料-全新公文范文-全程指导写作–独家

3、原创14/14精品文档“李”a=InputBoxIfLeft=bThenp=TrueEndIfPrintpEndSub任意输入西安地区的固定电话号码，将其升为8位。如原号码为029-7091234，升位后为029-87091234。PrivateSubCommand1_ClickDimxAsString,yAsStringx=Text1.Texty=Left&&RightText2.Text=yEndSub输入书31页format语句，查看运行结果。利用日期与时间函数建立中文电子日历。PrivateSubCommand1_ClickText1.Text=Year&“年”&

4、Month&“月”&Day&“日”&“星期”&Weekday&Hour&“时”&Minute&“分”&Second&“秒”EndSub利用Datediff函数计算现在春节已过去了多少天。PrivateSub2016全新精品资料-全新公文范文-全程指导写作–独家原创14/14精品文档Command1_ClickPrintDateDiffEndSub在窗体的QueryUnload编程，使得该窗体在被用户关闭时出现消息框，询问用户是否关闭，如用户选则关闭窗体，否则取消关闭操作。PrivateSubForm_QueryUnloadx=MsgBoxIfx=vbYesThenCanc

5、el=0ElseCancel=1EndIfEndSub输入某学生的一门成绩，判断是否过关。PrivateSubCommand1_ClickDimx#x=InputBoxIfx>=0ThenPrint“该学生过关！”ElsePrint“该学生没有过关！”End2016全新精品资料-全新公文范文-全程指导写作–独家原创14/14精品文档IfEndSub某商场招聘，输入某人条件，判断是否够招工条件，招聘条件为身高1.7米以上并为女性。PrivateSubCommand1_ClickDimx#,y$,pAsBooleany=InputBoxx=InputBoxIfx>1.7And

6、y=“女性”ThenPrint“符合条件！”ElsePrint“不符合条件！”EndIfEndSub第三章一、基本要求熟练掌握VB语句书写规则；熟练掌握窗体的主要属性及Load事件的应用；掌握Print方法的输出格式控制；掌握命令按钮和标签的主要属性应用；掌握文本框的主要属性和事件应用；熟悉VB程序获得数据及输出结果的基本方法；2016全新精品资料-全新公文范文-全程指导写作–独家原创14/14精品文档了解工程管理概念；掌握添加、删除窗体文件、设置启动窗体、编译生成EXE文件、运行EXE文件的方法。二、实验内容在load事件中编程实现实习1中第2题的属性值的设置。Priv

7、ateSubCommand1_用户单击窗体时窗体的标题栏显示“你单击了窗体”，双击窗体时窗体的标题栏显示“你双击了窗体”。PrivateSubForm_ClickForm2.Caption=“你单击了窗体”EndSubPrivateSubForm_DblClickForm2.Caption=“你双击了窗体”EndSub通过shell函数调用Word和EXCELL。PrivateSubCommand1_ClickShell“C:ProgramFilesMicrosoftOfficeOFFICE11winword”EndS