VB实验报告(实验4)

《VB实验报告(实验4)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、电子信息工程学系实验报告成绩：课程名称：面向对象程序设计指导教师（签名）：实验项目名称：实验4Sub过程实验时间：2011-10-17班级：姓名：学号：实验目的:1)熟练掌握“代码编辑器”窗口的操作2)掌握Sub过程的定义3)熟悉掌握Sub过程的参数传递。4)掌握Sub过程的变量有效范围。实验环境:WindowsXPVisualStudio.NET2003实验内容及过程:计算三角形面积1、新建一个“VisualBasic”2、创建窗体（图1所示）图1界面设计3、编写代码PrivateSubarea(ByVal

2、xAsSingle,ByValyAsSingle,ByValzAsSingle,ByRefsAsSingle)DimpAsSinglep=(x+y+z)/2s=Sqrt(p*(p-x)*(p-y)*(p-z))EndSubPrivateSubcmdStart_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles_cmdStart.ClickDimaAsSingle,bAsSingle,cAsSingleDimsAsSingle第2页

3、共2页a=Val(txtA.Text)b=Val(txtB.Text)c=Val(txtC.Text)Callarea(a,b,c,s)txtArea.Text=Int(s*100)/100EndSubPrivateSubcmdEnd_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlescmdEnd.ClickEndEndSub4、保存项目5、运行结果（图2所示）图2运行结果实验心得：通过本次实验让我熟悉了Sub过程的运用，通过建立

4、通用过程，使得程序的编写更加方便，让程序员有更好的工具来发挥自己的才能。同时也让程序看起来更加简练，容易阅读。第2页共2页