VB实验指导书.doc

资料内容仅供您学习参考，如有不当之处，请联系改正或者删除。

《计算机程序设计基础VB语言》

实 验 指 导 书

武 汉 理 工 大 学
计算机科学与技术学院信息技术系
年 3 月
目 录
1．课程简介 2
1.1 基本信息 2
1.2 实验目的 2
1.3 实验内容及要求 2
1.4 实验项目及学时分配 3
2. Visual Basic 6.0集成开发环境 4
2.1 Visual Basic 6.0 的安装 4
2.2 Visual BASIC 6.0开发环境概述 8
2.3 Visual BASIC 6.0程序调试方法 9
3. 实验项目 12
3.1 实验项目1：编制一个简单的计算收款的界面 12
3.2 实验项目2：设计求三角函数绝对值的程序（按钮、文本框和标签的使用） 14
3.3 实验项目3：根据不同参数的值求分段函数的函数值（If语句的使用） 16
3.4 实验项目4：设计一个根据成绩给出评分的程序（Select Case语句的使用） 17
3.5 实验项目5：设计一个计算π的近似值的程序（For语句的使用） 19
3.6 实验项目6：设计求给定条件的数列最值的程序和在给定范围内找符合条件的数的程序（Do…Loop语句的使用） 20
3.7 实验项目7：根据某班n个学生成绩求成绩的标准差 （一维数组的应用） 21
3.8 实验项目8：设计一个用数组统计最大数的程序（一维数组的应用） 23
3.9 实验项目9： Function过程的定义和调用 24
3.10 实验项目10： Sub过程的定义和调用 26
3.11 实验项目11：根据单选按钮的值改变图形的颜色和形状（控件的使用1） 27
3.12 实验项目12：设计一个弹跳球的程序（控件的使用2） 29
3.13 实验项目13：设计一个选课的界面（控件的使用3） 30
3.14 实验项目14：菜单设计（选做） 31
3.15 实验项目15：工具栏，状态栏设计（选做） 34
3.16 实验项目16：可视化数据管理器VisData的使用（选做） 38
3.17 实验项目17：绘图程序设计（选做） 43

1．课程简介
1.1 基本信息
课程名称: 计算机程序设计基础( VB语言)
实验总学时数: 12学时
适应专业: 文科各专业
先修课程: 大学计算机基础
1.2 实验目的
经过实验熟悉面向对象程序设计的基本概念。
经过实验熟练掌握利用VB进行可视化程序设计的基本方法。
经过实验掌握应用程序的调试方法, 加强应用能力的训练与培养, 从而具有一般应用程序和解决事务管理问题的能力。
1.3 实验内容及要求 
实验是巩固课堂所学知识、 掌握可视化程序设计的方法、 提高分析问题和解决问题能力的最重要的途径。因此明确实验目的、 内容与要求、 实验步骤及实验规则, 一方面有助于实验任务的顺利完成, 另一方面也有利于养成严谨科学的作风。每个实验都要遵循认真预习准备、 认真做好实验、 认真写好实验报告三个阶段进行。
每项实验的内容均要求学生编写两个程序项目, 并上机调试经过。实验结束后, 按照实验报告中的要求完成报告, 设计解题算法, 给出程序源代码, 记录所使用的测试数据, 提供程序最终的运行结果。
实验分组人数依机房的计算机数目进行分组, 要求每人一台计算机。其中第10个实验属于综合型实验, 可采用3-5人的分组形式完成, 要求综合应用顺序、 选择、 循环结构和数组及函数等知识点进行程序设计, 并提交包括以下内容的设计报告:
1．设计题目
2．功能描述
3．设计界面图
4．测试数据和程序运行结果
5．完整的源程序代码( 适当注释)
6．出现的问题和解决办法的总结

1.4 实验项目及学时分配 
序
号
实验项目名称
实验学时
实验类型
实验内容
1
编程环境与程序基础
2
设计型
( １) 掌握集成开发环境的安装、 配置与使用
( ２) 掌握程序的编辑、 编译、 连接及运行过程
( ３) 掌握基本数据类型的变量、 常量的定义和赋值方法
( ４) 掌握赋值语句和输入输出语句的使用方法
( ５) 掌握查看联机帮助信息的方法
2
选择结构程序设计
2
设计型
( １) 掌握分支、 多分支结构程序设计的方法
( ２) 掌握排除语法错误的基本技能
3
循环结构程序设计
2
设计型
( １) 掌握 ３种循环语句、 循环结构程序设计的方法
( ２) 掌握程序调试的基本技能( 如设置断点、 单步执行、 查看中间运行结果等)
4
数组应用
2
设计型
( １) 掌握一维和二维数组的定义、 赋值和输入输出的方法
( ２) 掌握用字符数组处理字符串和字符串处理函数的使用方法
( ３) 掌握数组中常见的查找和排序算法
5
函数设计
2
设计型
( １) 掌握函数的定义方法, 掌握函数调用和参数传递的机制和方法
( ２) 掌握函数的嵌套调用与递归调用的方法
( ３) 掌握全局变量和局部变量的使用方法
6
模块化程序设计
2
探索型
( １) 以 ３～５人为一个小组, 综合应用所学的知识, 完成较大的、 有实际价值的程序设计题目
( ２) 让学生深刻体会程序开发的全过程, 培养学生的团队协作精神

2. Visual Basic 6.0集成开发环境
Visual Basic 6.0是Microsoft公司推出的可视化编程的产品, 它既保留了Basic语言简单易学的优点, 又充分利用了Windows提供的图形环境, 使得Basic进入到可视化编程的领域, 为广大计算机爱好者提供了新的编程工具。Visual Basic 随着Windows的发展, 不断推出新的版本, 到1998年已经发展到6.0版, 功能上进一步完善和扩充, 特别在数据库管理和网络应用方面。
2.1 Visual Basic 6.0 的安装
Visual Basic安装步骤如下:
(1) 第一步: 先解压vb6.0安装文件后打开VB60CHS文件夹找到setup.exe, 双击打开, 如图一所示。

(2) 第二步: 在弹出窗口中选择 ”接受协议”后, 进行”下一步”。

(3) 第三步: 在输入ID窗口中都输入1, 然后下一步。

(4) 第四步: 选择”安装visual basic6中文企业版”, 然后下一步。在弹出窗口中点击”继续”。

(5) 第五步: 在弹出窗口中选择”否”。

(6) 第六步: 选择”自定义安装”, 如图六红框位置所示。

(7) 第七步: 点击”全部选中”按钮。然后点击”继续”, 如图七红框位置所示。

(8) 第八步: 在弹出窗口中选择”否”, 然后程序会自行安装。

(9) 第九步: 安装完毕, 如图点击”重新启动Windows( R) ”。

(10) 第十步: 重启后出现”安装MSDN”窗口, 把勾去掉, 然后点击”下一步”, 如图十红框标注位置”。

(11) 第十一步: 在”现在注册”窗口中不打勾, 点击”完成”。如图十一红框标注位置。

(12) 安装结束。
2.2 Visual BASIC 6.0开发环境概述
一、 启动和退出VB
1、 进入VB集成开发环境
要进入VB应用程序, 首先要运行VB的集成开发环境。启动VB的方法如下:
[方法1]
◇ 单击任务栏上的”开始”按钮;
◇选择”程序”文件夹, 接着选取”Microsoft Visual Basic 6.0中文版”文件夹, 再选取”Microsoft Visual Basic 6.0中文版”项, 如图所示;

◇ 单击鼠标左键。
[方法2]
◇ 单击任务栏上的”开始”按钮;
◇ 选择”程序”文件夹;
◇ 使用”Windows 资源按理器”查找VB可执行文件 VB6.exe;
◇ 双击图标。
[方法3]
◇ 在桌面创立一个VB快捷键;
◇ 双击该快捷键。
VB启动后, 出现VB6.0的”新建工程”对话框( 图１-2) 单击”打开”按钮, 带有一个窗体的新工程将被创立, 并能够看到VB集成开发环境的界面。有的系统启动后可直接进入下图所示的界面。

图 VB的集成开发环境窗口

1、 退出VB方法:
( 1) 单击主窗口右上角的”关闭”按钮。
( 2) 执行”文件”菜单中的”退出”命令。
( 3) 按Alt+Q键。

2.3 Visual BASIC 6.0程序调试方法
VB的程序调试技术, 其中包括VB编程过程中常见的错误类型的产生和表现, 以及利用VB提供的调试工具和语句对程序错误进行捕获、 处理和修改的方法。VB为广大用户提供了功能强大的程序调试工具, 使用户能够迅速排除编程中出现的问题。
VB程序错误的种类有语法错误、 逻辑错误和运行错误。在提示错误处修改语法和逻辑后依然运行有错的情况下, 能够使用单步执行和监视的方法来查找错误的根源进行错误处理。
Visual Basic为用户提供了功能强大的调试工具, 对于错误程序的更正有很大的帮助, 而且能够跟踪程序的执行过程。调试工具包含【设置断点】、 【单步执行】、 【显示变量内容】等。用于中断程序的执行和进行跟踪操作。
首先, 单击【视图】菜单中的【工具栏】命令, 打开【调试】工具栏。如下图所示。

中断程序的执行是指当程序运行到某一行语句时, 就进入中断状态, 不再继续执行。这样我们就能够在中断状态下调试程序。常见的方法是经过设置断点来实现, 下面我们来看看有关断点的操作。
1. 设置断点
将插入点放在要设置断点的行, 然后使用下述操作之一便可为该行设置断点:
§ 选择【调试】菜单中的【切换断点】命令。
§ 单击调试工具栏中的按钮。
§ 按F9键。
§ 为某一行设置了断点后, 该行代码将以红底白字显示, 并在边界指示条中出现一个红色的圆圈, 表示这一行代码已被设置了断点。如图所示。

2. 清除断点
对已设置断点的行, 再执行和上面相同的操作便可清除断点。
3. 清除所有断点
选择【调试】菜单中的【清除所有断点】命令。或按【Ctrl+Shift+F9】键。
而跟踪操作就是逐条语句执行代码, 即每次运行一行代码。当进入到过程中时, 也将在该过程中逐条语句执行代码。如果Visual Basic正在等待应该事件的发生, 就不会执行任何语句。
1.逐条语句执行代码有下面3种方法。
§ 选择【调试】菜单中的【逐语句】命令。
§ 单击调试工具栏中的 按钮。
§ 按F8键。
当逐语句执行代码时, 执行点将移动到下一行, 且该行将以黄底黑字显示, 而且, 在边界指示条中还会出现一个黄色的箭头。如下图所示。

2. 逐过程执行
此项操作单步执行代码, 如果碰到过程调用, 则不进入该过程, 也就是说, 将过程调用看作一行语句来执行。
逐过程执行代码有下面3种方法。
§ 选择【调试】菜单中的【逐过程】命令。
§ 单击调试工具栏中的 按钮。
§ 按Shift+F8键。
3. 跳出过程
此项操作将当前过程中执行点后面的语句全部执行, 并将下一执行点定位在调用该过程的语句的下一行。
跳出过程有下面3种方法。
§ 选择【调试】菜单中的【跳出】命令。
§ 单击调试工具栏中的 按钮。
§ 按Ctrl+Shift+F8键。
注意的是, 如果在执行点后面的语句中存在断点, 那么跳出过程命令将使程序执行到下一断点。也就是说, 断点的级别要高于跳出过程命令。

3. 实验项目
3.1 实验项目1: 编制一个简单的计算收款的界面
一、 实验目的
1. 熟悉Visual BASIC程序设计开发环境, 掌握设计运行一个VB工程的基本步骤, 包括设计界面、 编写程序、 调试运行、 保存工程。
2. 掌握命令按钮、 文本框和标签常见属性值的设置方法。
3. 掌握VB语言程序设计的基本框架, 能够编写简单的VB程序。
4. 了解程序调试的思想, 能找出并改正VB程序中的语法错误。
二、 实验任务
开发一个简单程序。要求: 设计一个收款计算程序, 界面如图所示。要求:
( 1) 三个输入文本框依次命名为T1、 T2、 T3, 应付款文本框命名为Tresult, 且设为只读。( 2) 运行时, 单击”计算”按钮计算应付款, 单击”清除”按钮能清除应付款的内容, 而且焦点定位在”折扣”框内。
( 3) 单击”退出”按钮结束运行。
三、 实验步骤与指导
1．设计界面
在窗体上添加标签、 按钮和文本框。并修改按钮和标签的Caption属性值, 文本框的Text属性清空, 并按要求修改文本框的Name的属性值。
2． 编写程序代码
(1) 实验所用到的控件及属性设置见表。
控件名
属 性
控件名
属性
Label1
Caption="单价: "
Form1
Caption="收款计算"
Label2
Caption="数量"
Text1, Text2,Text3
Text=""
Label3
Caption="折扣"
Text1
Name="T1"
Label4
Caption="应付款: "
Text2
Name="T2"
Command1
Caption="计算"
Text3
Name="T3"
Command2
Caption="清除"
Text4
Text=""
Command3
Caption="退出"
Text5
Name="Tresult"
(2)界面如图所示, 程序代码如下。

Private Sub Command1_Click()
Tresult.Text = Val(T1.Text) * Val(T2.Text) * Val(T3.Text)
End Sub

Private Sub Command2_Click()
Tresult.Text = ""
T3.SetFocus
T3.SelStart = 0
T3.SelLength = Len(T3.Text)
End Sub

Private Sub Command3_Click()
End
End Sub
( 3) 调试程序并保存。
程序运行效果如图所示。程序以”学号-1.frm”和”学号-1.vbp”文件名保存。以后每个实验项目的命名规则都是如此, 即”学号-实验号”。( 如某同学的学号为A10414001, 所完成的是实验2, 那么程序文件名为”A10414001-2.frm”和”A10414001-2.vbp”)
( 4) 实验结果与分析: 当单价、 数量、 折扣分别取下列值时, 运行程序, 写出应付款的数值。

单价
数量
折扣
应付款
1
15
10
0.9

2
280
15
0.75

3
1．5
30
0.95

4
2．5
85
0.7

5
18
55
0.99

将源程序、 运行结果和分析以及实验中遇到的问题和解决问题的方法写在实验报告上。

3.2 实验项目2: 设计求三角函数绝对值的程序( 按钮、 文本框和标签的使用)
一、 实验目的
1．掌握文本框作为输入、 多行文本框做为输出时的常见属性值的设置方法。
2．学会使用常见的内部数学函数计算三角函数值的方法。
3．掌握控制输出列表的方法以及设置选中文本的方法。
二、 实验任务
设计求三角函数绝对值的程序, 界面如图所示。
1.当输入某一角度后, 单击”计算”按钮能够计算出相应的三角函数的绝对值。
2.要求每次计算结果附加在上次结果之后, 显示在带垂直滚动条的文本框中。
3.所有数据保留3位小数( 注意输入的为角度) 。
4.每次计算之后, 选中输入的文本, 以便继续输入。

三、 实验步骤与指导
1．设计界面
( 1) 在窗体上添加四个标签、 两个文本框和一个命令按钮。初始界面和运行后界面如图所示。

( 2) 设置属性
设置属性后的界面如图所示。 
对象
属性
属性值
Label1
Caption
请输入X:
Label2
Caption
X
Label3
Caption
|sinX|
Label4
Caption
 |cosX|
Text1,Text2
Text
 ””
Text2
Multiline
True
Command1
Caption
计算
Form1
Caption
求三角函数的绝对值
2.编写程序代码
Private Sub Command1_Click()
X = Val(Text1.Text)
X1 = X * 3.1416 / 180
SX = Abs(Sin(X1))
CX = Abs(Cos(X1))
Text2.Text = Text2.Text & _
Format(X, "0.000") & " " & _
Format(SX, "0.000") & " " & _
Format(CX, "0.000") & Chr(13) & Chr(10)
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
3.调试并运行程序: 当X输入下列角度时, 运行此程序, 写出文本框中的显示。

X
X
|sinX|
|cosX|
1
15

2
20

3
30

4
45

5
60

6
90

7
100

4.实验结果与分析
将源程序、 运行结果和分析以及实验中遇到的问题和解决问题的方法写在实验报告上。

3.3 实验项目3: 根据不同参数的值求分段函数的函数值( If语句的使用)
一、 实验目的
1．掌握逻辑表示式的正确书写形式。
2．掌握单分支与双分支条件语句及其嵌套的用法, 熟悉If…Then…Else语句。
3．掌握标签作为输出时的用法。
二、 实验任务
用块结构条件语句实现: 从文本框输入a、 b值( 角度为单位) , 单击”计算”按钮按下列公式计算y值, 用标签显示计算结果。界面自定。
y=
sina×cosb a>0,b>0
sina+cosb a>0,b≤0
sina—cosb a≤0

三、 实验步骤与指导
1．设计界面: 新建一个窗体, 窗体上如图有四个标签, 两个文本框和一个按钮, 单击窗体驱动程序运行。文本框作为输入, 标签作输出。提示: 对于作为输出的标签Label2的BorderStyle属性值设为1。

2. 编写程序代码
Private Sub Command1_Click()
a = Val(Text1.Text) * 3.1416 / 180
b = Val(Text2.Text) * 3.1416 / 180
If a > 0 And b > 0 Then
y = Sin(a) * Cos(b)
ElseIf a > 0 And b <= 0 Then
y = Sin(a) + Cos(b)
Else
y = Sin(a) - Cos(b)
End If
Label4.Caption = Format(y, "0.0000")
End Sub
3.调试并运行程序。给出条件分支所有可能的数据得出相应的结果写在实验报告上。
当a、 b输入下列值时, 运行此程序, 写出y的值。

a
b
y
1
0
0

1
15
30

2
30
—30

3
45
0

4
—60
30

5
0
—60

6
20
80

4.实验结果与分析
将源程序、 运行结果和分析以及实验中遇到的问题和解决问题的方法写在实验报告上。
3.4 实验项目4: 设计一个根据成绩给出评分的程序( Select Case语句的使用)
一、 实验目的
1. 掌握选择结构中多条件, 多分支程序的用法, 熟悉Select Case语句。
2. 掌握If语句和Select Case语句嵌套的用法。
3. 掌握选择结构的程序设计方法.
二、 实验任务
用多分支选择语句实现: 用文本框输入学生某门课程分数后, 给出五级评分。
评分标准如下:
优 90≤成绩100
良 80≤成绩<90
中 70≤成绩<80
及格 60≤成绩<70
不及格 0≤成绩<60
如果输入的分数不在[0,100]范围内, 使用消息框给出错误提示, 并将焦点定位在输入分数的文本框, 选中其中的全部文本。
三、 实验步骤与指导
1．设计界面
新建一个窗体, 窗体上添加两个标签、 一个文本框和一个按钮, 并修改相应的属性。
提示: 对于作为输出的标签Label2的BorderStyle属性值设为1。
2.编写程序代码
Private Sub Command1_Click()
x = Val(Text1.Text)
Select Case x
Case Is < 0, Is > 100
Label2.Caption = ""
MsgBox "输入的数据超出范围, 请重新输入"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Case Is >= 90
Label2.Caption = "优"
Case Is >= 80
Label2.Caption = "良"
Case Is >= 70
Label2.Caption = "中"
Case Is >= 60
Label2.Caption = "及格"
Case Else
Label2.Caption = "不及格"
End Select
End Sub
　3.调试并运行程序。当分数框中输入下列值时, 运行此程序, 写出相应的评分。

分数
评分
1
-45

2
0

3
55

4
60

5
77

6
88

7
90

8
120

4.实验结果与分析
将源程序、 运行结果和分析以及实验中遇到的问题和解决问题的方法写在实验报告上。
3.5 实验项目5: 设计一个计算π的近似值的程序( For语句的使用)
一、 实验目的
1．掌握For…Next语句的使用, 学会单重循环控制的办法。
2．掌握如何控制循环条件, 防止死循环或不循环。
二、 实验任务
设计一个能够用文本框输入n值, 单击某命令按钮求以下S值, 用文本框显示结果。界面自定。( 输出的结果应该随n值的变大近似于π的值。)

三、 实验步骤与指导
1．设计界面
新建一个窗体, 窗体上添加一个标签、 两个文本框和一个按钮, 并修改相应的属性。

2. 编写程序代码。
Private Sub Command1_Click()
s = 0
n = Val(Text1.Text)
k = 2
For i = 1 To 2 * n - 1 Step 2
s = s + (-1) ^ k * 1 / i
k = k + 1
Next i
s = 4 * s
Text2.Text = Format(s, "0.0000")
End Sub

3.调试并运行程序。当n输入下列值时, 运行此程序, 写出S的值。

n
S
1
10

2
30

3
50

4
100

5
1000

6
10000

4.实验结果与分析将源程序、 运行结果和分析以及实验中遇到的问题和解决问题的方法写在实验报告上。

3.6 实验项目6: 设计求给定条件的数列最值的程序和在给定范围内找符合条件的数的程序( Do…Loop语句的使用)
一、 实验目的
1．掌握For…Next语句的在找数题目中的应用, 学会多重循环控制的办法。
2．掌握Do…Loop循环的用法, 学会控制循环的开始和结束的条件。
3．掌握如何控制循环条件, 防止死循环或不循环。
二、 实验任务
1. 求11+22+33+…+NN小于100000的最大值。界面自定。
2. 编程找出1000以内的所有完数, 即一个数恰好是它的因子之和, 这个数称为”完数”, 如6=1+2+3, 因此6就是一个完数。
三、 实验步骤与指导
1．设计界面。下图为运行后的界面图。

2. 编写程序代码。
程序1示例: 程序2示例:
Private Sub Command1_Click() Private Sub Command1_Click()
m = 0 For i = 1 To 1000
n = 0 Sum = 0
Do While n < 100000 For j = 1 To i - 1
m = m + 1 If i Mod j = 0 Then
n = n + m ^ m Sum = Sum + j
Loop End If
n = n - m ^ m Next j
Text1.Text = n If i = Sum Then Print i
End Sub Next i
End Sub
3． 调试并运行程序。运行两个实验题目的两个窗体, 给出运行结果。
窗体1打印出11+22+33+…+NN小于100000的最大值

窗体2打印出1000之内的所有完数

4.实验结果与分析
将源程序、 运行结果和分析以及实验中遇到的问题和解决问题的方法写在实验报告上。

3.7 实验项目7: 根据某班n个学生成绩求成绩的标准差 ( 一维数组的应用)
一、 实验目的
1．了解一维数组的用法。
2. 掌握静态数组的声明和输入输出的使用方法。
3．学会应用一维数组解决有关数组常见算法( 统计、 排序) 问题。

二、 实验任务
输入某班级n个学生的成绩到数组中, 求成绩的标准差, 公式如下:
, 其中, 表示学生的总平均成绩, 表示第i个学生的成绩。要求学生人数和成绩都用Inputbox函数输入。界面自定。
三、 实验步骤与指导
1．设计界面。新建一个窗体, 添加一个标签, 一个文本框和一个按钮, 并修改按钮和标签的Caption属性, 运行时在文本框中显示计算结果。

2. 编写程序代码。
Option Base 1
Dim score() As Integer
Private Sub Command1_Click()
n = Val(InputBox("请输入总人数", "", ""))
ReDim score(n)
S = 0 '求平均成绩
For i = 1 To n
score(i) = Val(InputBox("请输入第" & Str(i) & "个学生的成绩", "成绩统计", ""))
S = S + score(i)
Next i
Avg = S / n
'求根号下的分子部分
Sum = 0
For i = 1 To n
Item = ((score(i) - Avg) ^ 2)
Sum = Sum + Item
Next i
y = Sqr(Sum / (n - 1)) '求方差
Text1.Text = Format(y, "0.0000")
End Sub
3.调试并运行程序。按以下输入把程序运行3次, 给出文本框显示的结果。

n
学生成绩
标准差
1
5
45, 89, 75, 23, 95

2
8
55, 65, 82, 67, 88, 90, 30, 40

3
10
66， 77, 50, 68, 85, 75, 76, 67, 64, 72

4.实验结果与分析
将源程序、 运行结果和分析以及实验中遇到的问题和解决问题的方法写在实验报告上。
3.8 实验项目8: 设计一个用数组统计最大数的程序( 一维数组的应用)
一、 实验目的
1．了解一维数组的用法。
2. 掌握静态数组的声明和使用方法。
3．学会应用一维数组解决有关数组常见算法( 统计、 排序) 问题。
二、 实验任务
编程实现运行时, 单击第一个按钮, 生成50个[0,100]之间的随机整数, 显示于文本框中, 单击第二个按钮, 求这50个随机整数中的最大数, 并将其显示在另一个文本框中。
三、 实验步骤与指导
1．设计界面。新建一个窗体, 添加两个按钮并修改按钮的Caption属性, 添加两个文本框, 第一个文本框的Multiline设为True, 而且ScrollBars设为Horizontal。程序运行时界面如图所示。

2. 编写程序代码。
Dim a(1 To 50) As Integer
Private Sub Command1_Click()
Text1.Text = ""
Randomize
For i = 1 To 50
a(i) = Int(Rnd * 100 + 1)
Text1.Text = Text1.Text & Str(a(i)) & " "
Next i
End Sub

Private Sub Command2_Click()
Max = a(1)
For i = 2 To 50
If a(i) > Max Then
Max = a(i)
End If
Next i
Text2.Text = Max
End Sub
3. 调试并运行程序。把程序运行3次, 给出窗体显示的结果。

50个随机整数
最大数
1

2

3

5. 实验结果与分析
将源程序、 运行结果和分析以及实验中遇到的问题和解决问题的方法写在实验报告上。

3.9 实验项目9: Function过程的定义和调用
一、 实验目的
1. 掌握Function函数的定义和调用。
2. 掌握函数中参数的定义和传递的方法。
二、 实验任务
在窗体模块中编写一个函数过程, 计算1＋2＋3＋…K, 运行时输入m, n, p的值, 单击”y=”按钮调用该函数计算以下y的值, 运算结果保留4位小数。

三、 实验步骤与指导
1．设计界面。新建一个窗体, 添加三个标签, 四个文本框和一个按钮, 并修改标签和按钮的Caption属性, 文本框的Text属性清空。

2. 编写程序代码。
　Function f(k As Integer) As Long
Dim sum As Long
sum = 0
For i = 1 To k
sum = sum + i
Next i
f = sum
End Function

Private Sub Command1_Click()
Dim m As Integer, n As Integer, p As Integer
Dim y As Single
m = Val(Text1.Text)
n = Val(Text2.Text)
p = Val(Text3.Text)
y = (f(m) + f(n)) / f(p)
Text4.Text = Format(y, "0.0000")
End Sub　
　3. 调试并运行程序。按以下输入把程序运行5次, 给出窗体显示的结果。

m
n
p
y
1
2
3
4

2
5
4
3

3
6
7
5

4
8
9
6

5
11
15
12

4. 实验结果与分析
将源程序、 运行结果和分析以及实验中遇到的问题和解决问题的方法写在实验报告上。

3.10 实验项目10: Sub过程的定义和调用
一、 实验目的
1. 掌握Sub过程的定义和调用。
2. 掌握Sub过程中参数的定义和传递的方法。
二、 实验任务
编写一个Sub过程, 能根据参数K求1＋2+3+…＋K的值, 在窗体的Click事件过程中用输入框Inputbox输入某n值, 调用该Sub过程求以下y的值, 用消息框显示计算结果。
y=
三、 实验步骤与指导
1．设计界面。新建一个窗体, 窗体上没有任何控件, 用Inputbox输入, 结果用Msgbox输出。
2. 编写程序代码。
Sub s(k, sum)
sum = 0
For i = 1 To k
sum = sum + i
Next i
End Sub

Private Sub Form_Click()
sum = 0
n = Val(InputBox("请输入N"))
For i = 1 To n
Call s(i, sum1)
sum = sum + 1 / sum1
Next i
MsgBox Str(sum)
End Sub
3. 调试并运行程序。按以下输入把程序运行3次, 给出窗体显示的结果