《实验六 过程应用程序设计费下载》由会员分享,可在线阅读,更多相关《实验六 过程应用程序设计费下载(4页珍藏版)》请在金锄头文库上搜索。
1、实验六 过程应用程序设计(3 个学时)一一 、实验目的、实验目的 1.掌握子过程和自定义函数过程的定义和调用方法。 2.掌握形参和实参的对应关系。 3.掌握变量、函数和过程的作用域。二二 、实验内容、实验内容1. 编写一个子过程,在窗体上打印星花矩阵,矩阵的行数和列数有用户输入。 1)代码设计如下 Public Sub 星花矩阵(m As Integer, n As Integer)For i = 1 To mFor j = 1 To nPrint “* “;Next jPrintNext i End SubPrivate Sub Form_Click()Dim m As Integer, n
2、 As IntegerForm1.Caption = “请单击窗体!“m = InputBox(“请输入星花矩阵的行数“, “注意“, “)n = InputBox(“请输入星花矩阵的列数“, “注意“, “)Call 星花矩阵(m, n) End Sub2)将运行结果的界面截下来粘贴在下面:3)调试过程记录(错误情况及改正方法) M,N 需要在 form load 事件中定义属于模块级变量 2编写一个计算阶乘的函数 fact, 并求 1!+2!+3! +.n! 的结果,点击“计算“按钮将 结果显示在窗体上。 1)代码设计如下 Private Sub Command1_Click() Dim
3、n As Integer n = Val(Text1.Text) Text2.Text = fact(n) End SubPublic Function fact(n As Integer) As Longfact = 1For i = 1 To nfact = fact * iNext i End Function 2)将运行结果的界面截下来粘贴在下面3)调试过程记录(错误情况及改正方法) N=val(Text1.text)里边不带等号 3 分别用函数过程和子过程随机产生一个三位奇数。 要求: 当点击 “函数过程”按钮时,将利用函数过程随机产生的一个三位奇数显示在一个标签中, 当点击 “子过
4、程”按钮时,将利用子过程随机产生的一个三位奇数显示在另一个标签中。 1)代码设计 Private Sub Command1_Click()Call RREnd SubPrivate Sub Command2_Click()Dim s As Integers = r()If s Mod 2 = 0 ThenText2.Text = s + 1ElseText2.Text = sEnd If End SubPublic Sub RR()Dim a As IntegerRandomizea = Int(900 * Rnd + 100)If a Mod 2 = 0 ThenText1.Text = a + 1ElseText1.Text = aEnd If End SubPublic Function r()Randomizer = Int(900 * Rnd + 100)End Function 2)将运行结果的界面截下来粘贴在下面3)调试过程记录(错误情况及改正方法) 用子过程产生随机奇数时,将结果输出到 TEXT2 时出现错误,不应该将代码写在 Command1_Click()下。