Visual Basic 6.0程序设计案例教程 宫强 模块六新.pptVIP

模块六 过程  任务一 求多边形面积 任务三 输入一个年份y，输出该年2月份的天数 任务四 小游戏 任务五 求一个数的阶乘 任务二 两个数的交换 任务分析 任务分析: 已知多边形的各条边的长度，要计算多边形的面积。 计算多边形面积，可将多边形分解成若干个三角形。 理论知识: 一、Sub过程建立 打开代码编辑器窗口 　 选择“工具”菜单中的“添加过程” 　 从对话框中输入过程名，并选择类型和范围 　 在新创建的过程中输入内容 二、Sub过程调用 语法：Call 过程名（实在参数表） 三、Function过程建立 理论知识 1、代码编写 定义函数过程area Public Function area(x!, y!, z!) As Single Dim c! c = 1 / 2 * (x + y + z) area = Sqr(c * (c - x) * (c - y) * (c - z)) End Function 调用函数过程: Sub command1_click() …… 输入若干个三角形边长 S1=area(a,b,c) S2=area(c,d,e) S3=area(e,f,g) Print S1+S2+S3 End Sub 任务实施 返回 任务分析 任务分析: 通过本实例了解值传递与地址传递的区别。 理论知识: 一、值传递与地址传递 二、形式参数与实际参数 理论知识 a 的地址 10 10 10 a a x x 形参 实参 传值 传地址 1、代码编写 Sub Swap1(ByVal x%, ByVal y%) t% = x: x = y: y = t End Sub Sub Swap2(x%, y%) t% = x: x = y: y = t End Sub Private Sub Command1_Click() a% = 10: b% = 20 Swap1 a, b 传值 PrintA1=;a,B1=; b a = 10: b = 20 Swap2 a, b 传址 Print A2=; a, B2=; b End Sub 任务实施 返回 任务分析 任务分析: 设计一个函数Leap，判断y年是否是闰年，若是，就返回1，否则，就返回0。在程序的各个部分中可以使用这个模块。 任务实施 1、创建窗体 任务实施 2、窗体添加标签框、文本框和按钮控件 ,设置属性 调整对象 控件类型 调整内容 窗体 Form Height:6195，Width:8235；Caption: 闰年查询 按钮 Command1 Height：855，Width:1815, Caption:查询 标签 label Height：735，Width:1315, Caption:结果 任务实施 3、代码编写 Function Leap(y As Integer) As Integer 定义函数判断是否为闰年 If y Mod 100 = 0 Then mod是求余数运算符，例：8 mod 5=3 If y Mod 400 = 0 Then Leap = 1 Else Leap = O Else If y Mod 4 = 0 Then Leap = 1 Else Leap = 0 End If End Function （接下页） 任务实施 3、代码编写 （接上页） Private Sub Command1_Click() Dim y As Integer Dim n As String n = InputBox(请输入年份：) y = Val(n) d2 = 28 d2 = d2 + Leap(y) 调用函数Leap(y)，并把的返回值1或0，被VB送到函数的调用点 Text1.Text = d2 End Sub 4、结果显示 任务实施 返回 任务分析 任务分析: 鼠标单击窗体中某一个按钮时，会出现不同的提示。 将msgbox消息框建成过程，不断调用。 任务实施 1、创建窗体 2、窗体添加图片框和按钮控件 ,设置属性 任务实施 返回 3、代码编写 4、结果显示