实验六 过程应用程序设计费下载.doc

实验六 过程应用程序设计（3个学时）一 、实验目的1. 掌握子过程和自定义函数过程的定义和调用方法。2. 掌握形参和实参的对应关系。3. 掌握变量、函数和过程的作用域。 二 、实验内容1. 编写一个子过程，在窗体上打印星花矩阵，矩阵的行数和列数有用户输入。1）代码设计如下Public Sub 星花矩阵(m As Integer, n As Integer) For i = 1 To m For j = 1 To n Print * ; Next j Print Next iEnd SubPrivate Sub Form_Click() Dim m As Integer, n As Integer Form1.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 n As Integern = Val(Text1.Text)Text2.Text = fact(n)End SubPublic Function fact(n As Integer) As Long fact = 1 For i = 1 To n fact = fact * i Next iEnd Function2）将运行结果的界面截下来粘贴在下面3）调试过程记录（错误情况及改正方法）N=val(Text1.text)里边不带等号3分别用函数过程和子过程随机产生一个三位奇数。要求：当点击 “函数过程”按钮时，将利用函数过程随机产生的一个三位奇数显示在一个标签中，当点击 “子过程”按钮时，将利用子过程随机产生的一个三位奇数显示在另一个标签中。1）代码设计Private Sub Command1_Click() Call RR End SubPrivate Sub Command2_Click() Dim s As Integer s = r() If s Mod 2 = 0 Then Text2.Text = s + 1 Else Text2.Text = s End IfEnd SubPublic Sub RR() Dim a As Integer Randomize a = Int(900 * Rnd + 100) If a Mod 2 = 0 Then Text1.Text = a + 1 Else Text1.Text = a End IfEnd SubPublic Function r() Randomize r = Int(900 * Rnd + 100) End Function2）将运行结果的界面截下来粘贴在下面3）调试过程