实验3简单的程序设计.docVIP

实验 实验目的：变量的定义和使用，表达式实验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程序设计ABC”) Ltrim(“ ABC”) String(3, “ABC”) Instr(“EFABCDEFG”, “ef”) Instr(2,“EFABCDEFG”, “ef”,1) Date() Now() Time() 实验步骤： 实验3.2表达式考察 实验任务： 考察下列表达式的值。 Dateadd(“m”,1,#1/30/2000#) Datediff(“y”,#12/03/1999#,#1/03/2000#) ‘计算时间间隔多少日 123 + Mid(“123456”,3,2) 123 Mid(“123456”,3,2) Ucase(Mid(“abcdefgh”,3,4)) 16 / 4 – 2 ^ 5 * 8 / 4 MOD 5 \ 2 实验步骤： 先自己分析表达式的功能和可能的结果，然后在立即窗口用Print方法求出相应表达式的值，对照比较自己的判断。 实验3.3简单打印图形 实验任务： 使用Print方法、Tab函数和String函数设计一个过程，显示如图3-1所示的图形，并将结果保存到文件中。 图3-1 实验3.2运行界面 参考代码如下： Private Sub Form_Load() Print Tab(15); String(1, 1) Print Tab(14); String(3, 2) Print Tab(13); String(5, 3) Print Tab(12); String(7, 4) End Sub 操作提示： 应先将Form窗体的AutoRedraw属性值设为True。 实验3.4考察随机函数 实验任务： 编程实现随机产生30个100－9999之间的任意年份，并显示在列表框List1中，实验结果界面如图3-2所示。 图3-2 实验3.4运行界面 参考代码如下： Private Sub Command1_Click() Dim i, a As Integer List1.Clear 　　　　 　清空列表框 Randomize 　　　 产生随机数种子 For i = 1 To 30 循环产生30个随机整数 a = Int(Rnd * 9900) + 100 产生100－9999之间的随机整数 List1.AddItem a 将产生的随机数添加到列表框 Next i End Sub 实验3.5简单输入输出 实验任务： 设计一个程序让用户从键盘上输入一个人的出生年份然后显示出该人的生肖。例如：19年出生的人生肖为“鼠”，则1990年出生的人生肖计算公式为（1990-19 Mod 12）＝６，则1990年出生的人生肖为“马”，因为十二生肖的顺序为：(鼠,牛, 虎,兔,龙,蛇,马,羊,猴,鸡,狗,猪)，程序要求 （1）使用inputbox函数读取用户输入的出生年份 （2）能够计算出年份的生肖 （3）用msgbox函数输出结果。 实验任务： 实现华氏温度与摄氏温度之间转换计算，实验结果界面如图3-3所示。 图3-3 实验3.6运行界面 要使用转换的公式是： 摄氏温度转换为华氏温度，F为华氏 华氏温度转换为摄氏温度，C为摄氏 要求用两种方法进行转换： （1）用按钮实现转换。即单击“华氏转”按钮，则将摄氏温度转换为华氏温度：同样，单击“摄氏转”按钮，则将华氏温度转换为摄氏温度。 （2）不用命令按钮，当文本输入时直接完成转换。当用户在摄氏温度文本框中输入结束（以按回车表示），激发KeyPress事件并KeyAscII的值为13时，将摄氏温度转换为华氏温度：同样，华氏转换为摄氏的实现也是如此。 提示：假定Textl存放C摄氏温度、Text2存放F华氏温度，则C摄氏转换为F华氏的KeyPress事件过程为： Private Sub Textl_KeyPress（KeyAscii As integer） If KeyAscii = 13 Then Text2 = 9 / 5 * Textl + 32 End if End Sub 注意：Text文本框存放的即使是数字也为String类型，为了使其参与数值运算，可通过Val（）函数将字符串转换为数值类型。 实