《实验六 过程应用程序设计费下载》由会员分享，可在线阅读，更多相关《实验六 过程应用程序设计费下载（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()下。
