Sub子过程调用程序设计.ppt

实验八 Sub子过程调用程序设计 实验要求 ? 要求完成实验任务 ? 利用sub完成各种操作 实验任务 1.利用sub求三角形面积 2.使用sub过程来随机产生10个从下界m到一个上界n之间的整数，并取得最大值 3.利用子过程递归调用，通过辗转相减的方法求得两自然数m，n的最大公约数和最小公倍数 4.使用sub过程排列（升序）和插入 5.设计一个由计算机来当小学低年级学生算术老师的VB应用程序 。 将工程文件和窗体文件分别以缺省文件名保存在文件夹“shiy8-2”中。 （工程文件保存为“shiy8-2.vbp”，窗体文件保存为“shiy8-2.frm”） 辗转相减求最大公约数的算法思想： (1)对于已知两数m，n，如果mn，则m=m-n；否则n=n-m； (2)若m=n，则m为最大公约数结束；否则执行(1)。 递归调用的思想： m , m=n GcdFun(g,m,n)= GcdFun(g,m-n,n),mn GcdFun(g,m,n-m),mn 3. 应用程序界面(如下图) 5.属性设计： 讲课内容、方法、步骤 讲课内容、方法、步骤 5.代码参考（VB实验6-2(查找)) Option Base 1 Dim Si As String, c As String * 1, S(40) As String * 1, i%, n%, find% Private Sub Command1_Click() Si = InputBox(“请输入字符串(40字符以内):”) c = InputBox(请输入一个字符：) n = Len(Si) find = 0 For i = 1 To n S(i) = Mid(Si, i, 1) Next i 5. 控件属性的设置 讲课内容、方法、步骤 效果如下图： 效果如下图： 1-Fixed Single 无 无 BorderStyle 查找 Command1 命令按钮1 结束 Command2 命令按钮2 空 注意：在代码中设计 Label1 Label2 Label3 标签1、标签2 和 标签3 标题(Caption) (名称)属性 控件 6.代码参考（VB实验五_3) Option Base 1 ‘窗体层设计 Dim score As Variant ‘窗体层设计 Private Sub Command1_Click() Dim max As Integer, min As Integer max = score(1) 设定初值 min = score(1) For i = 2 To 10 If max score(i) Then 找最高分 max = score(i) ElseIf min score(i) Then 找最低分 min = score(i) End If Next i 讲课内容、方法、步骤 四、使用LBOUND和UBOUND函数 1. 实验目的 (1)学会正确使用LBOUND和UBOUND函数。 ?? (2)练习动态数组的设计。 2. 实验内容: 输出下列一维数组和二维数组。 一维数组: n n+1 n+2 n+3 … m (mn) 二维数组: 11 12 13 14 15…1y 21 22 23 24 25…2y 31 32 33 34 35…3y ? ? ? ? ? ? ? x1 x2 x3 x4 x5…xy 讲课内容、方法、步骤 For i = LBound(a, 1) To UBound(a, 1) a(i) = i Print a(i); Next i Print : Print ReDim b(x, y) For i = 1 To UBound(b, 1) For j = 1 To