资源描述：
《实验3简单的程序设计.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、实验3简单的程序设计实验目的：1．掌握表达式、赋值语句的正确书写规则。2．掌握VB变量的定义和使用，表达式和常用函数的使用。3．掌握InputBox与MsgBox的使用。实验3.1函数考察实验任务：考察下列函数的值。Round(-3.5)Round(3.5)Chr(66)Asc("c")Asc(Chr(99))Chr(Asc("K"))Ucase$("abcdefg")Lcase(“ABC”)Str(123.45)Val(“123AB”)Len(“123程序设计ABC”)LenB(“123程序设计A
2、BC”)Ltrim(“ABC”)String(3,“ABC”)Instr(“EFABCDEFG”,“ef”)Instr(2,“EFABCDEFG”,“ef”,1)Date()Now()Time()实验步骤：先自己分析以上函数的功能和可能的结果，然后在立即窗口用Print方法求出相应函数的值，对照比较自己的判断。实验3.2表达式考察实验任务：考察下列表达式的值。Dateadd(“m”,1,#1/30/2000#)Datediff(“y”,#12/03/1999#,#1/03/2000#)‘计算时间间隔
3、多少日123+Mid(“”,3,2)123&Mid(“”,3,2)Ucase(Mid(“abcdefgh”,3,4))16/4–2^5*8/4MOD52实验步骤：先自己分析表达式的功能和可能的结果，然后在立即窗口用Print方法求出相应表达式的值，对照比较自己的判断。实验3.3简单打印图形实验任务：使用Print方法、Tab函数和String函数设计一个过程，显示如图3-1所示的图形，并将结果保存到文件中。图3-1实验3.2运行界面参考代码如下：PrivateSubForm_Load()Print
4、Tab(15);String(1,"1")PrintTab(14);String(3,"2")PrintTab(13);String(5,"3")PrintTab(12);String(7,"4")EndSub操作提示：应先将Form窗体的AutoRedraw属性值设为True。实验3.4考察随机函数实验任务：编程实现随机产生30个100－9999之间的任意年份，并显示在列表框List1中，实验结果界面如图3-2所示。图3-2实验3.4运行界面参考代码如下：PrivateSubCommand1_Cl
5、ick()Dimi,aAsIntegerList1.Clear '清空列表框Randomize '产生随机数种子Fori=1To30'循环产生30个随机整数a=Int(Rnd*9900)+100'产生100－9999之间的随机整数List1.AddItema'将产生的随机数添加到列表框NextiEndSub实验3.5简单输入输出实验任务：设计一个程序让用户从键盘上输入一个人的出生年份，然后显示出该人的生肖。例如：1984年出生的人生肖为“鼠”，则1990年出生的人生肖计算公式为（1990
6、-1984Mod12）＝６，则1990年出生的人生肖为“马”，因为十二生肖的顺序为：("鼠","牛","虎","兔","龙","蛇","马","羊","猴","鸡","狗","猪")，程序要求：（1）使用inputbox函数读取用户输入的出生年份；（2）能够计算出1984年份后的生肖；（3）用msgbox函数输出结果。提示：本程序在窗体上设计一个按钮即可。实验3.6温度转换实验任务：实现华氏温度与摄氏温度之间转换计算，实验结果界面如图3-3所示。图3-3实验3.6运行界面要使用转换的公式是：'摄氏温
7、度转换为华氏温度，F为华氏'华氏温度转换为摄氏温度，C为摄氏要求用两种方法进行转换：（1）用按钮实现转换。即单击“华氏转”按钮，则将摄氏温度转换为华氏温度：同样，单击“摄氏转”按钮，则将华氏温度转换为摄氏温度。（2）不用命令按钮，当文本输入时直接完成转换。当用户在摄氏温度文本框中输入结束（以按回车表示），激发KeyPress事件并KeyAscII的值为13时，将摄氏温度转换为华氏温度：同样，华氏转换为摄氏的实现也是如此。提示：假定Textl存放C摄氏温度、Text2存放F华氏温度，则C摄氏转换为F华
8、氏的KeyPress事件过程为：PrivateSubTextl_KeyPress（KeyAsciiAsinteger）IfKeyAscii=13ThenText2=9/5*Textl+32EndifEndSub注意：Text文本框存放的即使是数字也为String类型，为了使其参与数值运算，可通过Val（）函数将字符串转换为数值类型。实验3.7简单计算实验任务：编程输入半径、计算圆周长和圆面积，实验结果界面如图3-4所示。要求：对输入的半径进行合法性检查，若发现输入的数
