实验3简单的程序设计

实验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程序设计ABC”)

Ltrim(“ ABC”)

String(3, “ABC”)

Instr(“EFABCDEFG”, “ef”)

Instr(2,“EFABCDEFG”, “ef”,1)

Date()

Now()

Time()

实验步骤：

先自己分析以上函数的功能和可能的结果，然后在立即窗口用Print方法求出相应函数的值，对照比较自己的判断。

22

实验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简单输入输出

实验任务：

设计一个程序让用户从键盘上输入一个人的出生年份，然后显示出该人的生肖。例如：1984年出生的人生肖为“鼠”，则1990年出生的人生肖计算公式为（1990-1984 Mod 12）＝６，则1990年出生的人生肖为“马”，因为十二生肖的顺序为：("鼠","牛", "虎","兔","龙","蛇","马","羊","猴","鸡","狗","猪")，程序要求：

24

（1）使用inputbox 函数读取用户输入的出生年份；

（2）能够计算出1984年份后的生肖；

（3）用msgbox 函数输出结果。

提示：本程序在窗体上设计一个按钮即可。

实验3.6温度转换

实验任务：

实现华氏温度与摄氏温度之间转换计算，实验结果界面如图3-3所示。

图3-3 实验3.6运行界面

要使用转换的公式是：

325

9

+=C F '摄氏温度转换为华氏温度，F 为华氏 )32(95

-=F C '华氏温度转换为摄氏温度，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