Visual Basic 6.0程序设计案例教程 教学课件 作者 宫强 模块六.ppt

《Visual Basic 6.0程序设计案例教程 教学课件 作者 宫强 模块六.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、模块六过程任务一求多边形面积任务三输入一个年份y，输出该年2月份的天数任务四小游戏任务五求一个数的阶乘任务二两个数的交换任务分析任务分析:已知多边形的各条边的长度，要计算多边形的面积。计算多边形面积，可将多边形分解成若干个三角形。理论知识:一、Sub过程建立打开代码编辑器窗口选择“工具”菜单中的“添加过程”从对话框中输入过程名，并选择类型和范围在新创建的过程中输入内容二、Sub过程调用语法：Call过程名（实在参数表）三、Function过程建立理论知识1、代码编写定义函数过程areaPublicFunctionarea(x!,y!,z!)AsSingleDimc!c=1/2*(x+y

2、+z)area=Sqr(c*(c-x)*(c-y)*(c-z))EndFunction调用函数过程:Subcommand1_click()……输入若干个三角形边长S1=area(a,b,c)S2=area(c,d,e)S3=area(e,f,g)PrintS1+S2+S3EndSub任务实施返回任务分析任务分析:通过本实例了解值传递与地址传递的区别。理论知识:一、值传递与地址传递二、形式参数与实际参数理论知识a的地址101010aaxx形参实参传值传地址1、代码编写SubSwap1(ByValx%,ByValy%)t%=x:x=y:y=tEndSubSubSwap2(x%,y%)t%=

3、x:x=y:y=tEndSubPrivateSubCommand1_Click()a%=10:b%=20Swap1a,b'传值Print"A1=";a,"B1=";ba=10:b=20Swap2a,b'传址Print"A2=";a,"B2=";bEndSub任务实施返回任务分析任务分析:设计一个函数Leap，判断y年是否是闰年，若是，就返回1，否则，就返回0。在程序的各个部分中可以使用这个模块。任务实施1、创建窗体任务实施2、窗体添加标签框、文本框和按钮控件,设置属性调整对象控件类型调整内容窗体FormHeight:6195，Width:8235；Caption:闰年查询按钮Comma

4、nd1Height：855，Width:1815,Caption:查询标签labelHeight：735，Width:1315,Caption:结果任务实施3、代码编写FunctionLeap(yAsInteger)AsInteger'定义函数判断是否为闰年IfyMod100=0Then'mod是求余数运算符，例：8mod5=3IfyMod400=0ThenLeap=1ElseLeap=OElseIfyMod4=0ThenLeap=1ElseLeap=0EndIfEndFunction（接下页）任务实施3、代码编写（接上页）PrivateSubCommand1_Click()DimyA

5、sIntegerDimnAsStringn=InputBox("请输入年份：")y=Val(n)d2=28d2=d2+Leap(y)'调用函数Leap(y)，并把的返回值1或0，被VB送到函数的调用点Text1.Text=d2EndSub4、结果显示任务实施返回任务分析任务分析:鼠标单击窗体中某一个按钮时，会出现不同的提示。将msgbox消息框建成过程，不断调用。任务实施1、创建窗体2、窗体添加图片框和按钮控件,设置属性任务实施返回3、代码编写4、结果显示任务分析任务分析:使用递归函数。依次调用本身，完成阶乘的计算。1、窗体创建任务实施任务实施2、代码编写3、运行结果任务实施返回