欢迎来到天天文库
浏览记录
ID:47917278
大小:94.50 KB
页数:2页
时间:2019-10-29
《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页
此文档下载收益归作者所有