资源描述：
《vb上机练习试题及答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、第一章概述一、基本要求（1）熟悉VB集成开发环境（2）掌握代码窗口的应用及录入、编辑代码的基本方法（3）了解VB程序设计的基本步骤二、实习内容（1）实习熟悉VB集成开发环境各组成部分（2）输入一个数，求该数的平方并显示结果第二章一、基本要求（1）熟练掌握各种运算符的应用和优先顺序（2）掌握各种常用函数的功能、参数和返回值（3）掌握立即窗口的使用方法二、实验内容（1）回答整形、长整型、单精度、双精度类型数据占用字节数。（2）已知直角三角形的两条直角边长，求斜边长。PrivateSubCommand1_Click()Dima%,b%,c%a=Val(
2、InputBox("输入第一条直角边长"))b=Val(InputBox("输入第二条直角边长"))c=Sqr(a^2+b^2)PrintcEndSub（3）给小学生随机出两位数和一位数的加法题。PrivateSubCommand1_Click()Dima%,b%,c%a=Val(InputBox("输入两位数"))b=Val(InputBox("输入一位数"))c=a+bPrintcEndSub（4）用文本框输入一个带小数的数，对输入的数四舍五入保留2位小数。PrivateSubCommand1_Click()Dimx#,y!x=Text1.T
3、exty=Round(x,2)PrintyEndSub（5）输入某人姓名，判断是否你的本家。PrivateSubCommand1_Click()Dima$,b$,pAsBooleanb="李"a=InputBox("输入某人的姓名")IfLeft(a,1)=bThenp=TrueEndIfPrintpEndSub（6）任意输入西安地区的固定电话号码（原为7位），将其升为8位（在原号码前面加8）。如原号码为029-7091234，升位后为029-87091234。PrivateSubCommand1_Click()DimxAsString,yAsS
4、tringx=Text1.Texty=Left(x,4)&8&Right(x,7)Text2.Text=yEndSub（7）输入书31页format语句，查看运行结果。（8）利用日期与时间函数建立中文电子日历。PrivateSubCommand1_Click()Text1.Text=Year(Now)&"年"&Month(Now)&"月"&Day(Now)&"日"&"星期"&Weekday(Now)&Hour(Now)&"时"&Minute(Now)&"分"&Second(Now)&"秒"EndSub（9）利用Datediff函数计算现在春节已过
5、去了多少天。PrivateSubCommand1_Click()PrintDateDiff("d",#2/3/2011#,Now)EndSub（10）在窗体的QueryUnload编程，使得该窗体在被用户关闭时出现消息框，询问用户是否关闭，如用户选则关闭窗体，否则取消关闭操作。PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)x=MsgBox("确认要关闭吗?",vbQuestion+vbYesNo+256,"确认关闭")Ifx=vbYesThenCancel=0Else
6、Cancel=1EndIfEndSub（11）输入某学生的一门成绩，判断是否过关。PrivateSubCommand1_Click()Dimx#x=InputBox("输入学生成绩")Ifx>=60ThenPrint"该学生过关！"ElsePrint"该学生没有过关！"EndIfEndSub（12）某商场招聘，输入某人条件，判断是否够招工条件，招聘条件为身高1.7米以上并为女性。PrivateSubCommand1_Click()Dimx#,y$,pAsBooleany=InputBox("输入其性别")x=InputBox("输入其身高")If
7、x>1.75Andy="女性"ThenPrint"符合条件！"ElsePrint"不符合条件！"EndIfEndSub第三章一、基本要求（1）熟练掌握VB语句书写规则；（2）熟练掌握窗体的主要属性及Load事件的应用；（3）掌握Print方法的输出格式控制；（4）掌握命令按钮和标签的主要属性应用；（5）掌握文本框的主要属性和事件应用；（6）熟悉VB程序获得数据及输出结果的基本方法；（7）了解工程管理概念；（8）掌握添加、删除窗体文件、设置启动窗体、编译生成EXE文件、运行EXE文件的方法。二、实验内容(1)在load事件中编程实现实习1中第2题（
8、计算一个数的平方）的属性值的设置。PrivateSubCommand1_Click()DimxAsDouble,yAsDoublex=T
