1、第 1 页 共 2 页电子信息工程学系实验报告课程名称：面向对象程序设计 实验项目名称： 实验 4 Sub 过程 实验时间：2011-10-17班级： 姓名： 学号： 实 验 目 的: 1)熟练掌握“代码编辑器”窗口的操作2)掌握 Sub 过程的定义3)熟悉掌握 Sub 过程的参数传递。4)掌握 Sub 过程的变量有效范围。实 验 环 境:Windows XPVisual Studio.NET 2003实 验 内 容 及 过 程: 计算三角形面积1、新建一个“Visual Basic”2、创建窗体（图 1 所示）图 1 界面设计3、编写代码Private Sub area(ByVal x As
2、 Single, ByVal y As Single, ByVal z As Single, ByRef s As Single)Dim p As Singlep = (x + y + z) / 2s = Sqrt(p * (p - x) * (p - y) * (p - z)End SubPrivate Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles_ cmdStart.ClickDim a As Single, b As Single, c As SingleDim
3、 s As Single成 绩：指导教师（签名）：第 2 页 共 2 页a = Val(txtA.Text)b = Val(txtB.Text)c = Val(txtC.Text)Call area(a, b, c, s)txtArea.Text = Int(s * 100) / 100End SubPrivate Sub cmdEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEnd.ClickEndEnd Sub4、保存项目5、运行结果（图 2 所示）图 2 运行结果实 验 心 得：通过本次实验让我熟悉了 Sub 过程的运用，通过建立通用过程，使得程序的编写更加方便，让程序员有更好的工具来发挥自己的才能。同时也让程序看起来更加简练，容易阅读。
