青岛科技大学VB上机答案实验.doc

实验六 过程应用程序设计（3个学时）一 、实验目的1. 掌握子过程和自定义函数过程的定义和调用方法。2. 掌握形参和实参的对应关系。3. 掌握变量、函数和过程的作用域。 二 、实验内容1. 编写一个子过程，在窗体上打印星花矩阵，矩阵的行数和列数有用户输入。1）代码设计如下Public Sub b(p As Integer, q As Integer)Dim a() As StringReDim a(1 To p, 1 To q) As StringFor i = 1 To p For j = 1 To q a(i, j) = (*) Next jNext iFor i = 1 To p For j = 1 To q Print a(i, j); Next j PrintNext iPrintEnd SubPrivate Sub Form_load()p = InputBox(请输入矩阵的行, d, )q = InputBox(请输入矩阵的列, c, )Call b(Val(p), Val(q)End Sub2）将运行结果的界面截下来粘贴在下面：3）调试过程记录（错误情况及改正方法）错误：一开始定义sub过程时,b()没有设置形参，导致参数错误改正：Public Sub b(p As Integer, q As Integer)2编写一个计算阶乘的函数fact, 并求1！+2！+3！ +.n! 的结果，点击“计算“按钮将结果显示在窗体上。 1）代码设计如下Public Function fact(i) As SingleDim b As Singleb = 1For j = 1 To ib = b * jNext jfact = bEnd FunctionPrivate Sub Command1_Click()Dim a As Integer, n As Singlen = InputBox(请输入正整数n值, n, )a = 0For i = 1 To na = a + Val(fact(i)Next iPrint aEnd Sub2）将运行结果的界面截下来粘贴在下面输入n=4输出结果3）调试过程记录（错误情况及改正方法）错误：在编写函数时忘记给函数名赋值，即忘记打 fact=b改正：输入fact=b3分别用函数过程和子过程随机产生一个三位奇数。要求：当点击 “函数过程”按钮时，将利用函数过程随机产生的一个三位奇数显示在一个标签中，当点击 “子过程”按钮时，将利用子过程随机产生的一个三位奇数显示在另一个标签中。1）代码设计Public Function a()Randomizeb = Int(999 * Rnd + 100)If b Mod 2 = 0 Thenc = a()Else: Label1.Caption = bEnd IfEnd FunctionPublic Sub d()Randomizee = Int(999 * Rnd + 100)If e Mod 2 = 0 ThenCall dElse: Label2.Caption = eEnd IfEnd SubPrivate Sub Command1_Click()c = a()End SubPrivate Sub Command2_Click()Call dEnd Sub2）将运行结果的界面截下来粘贴在下面3）调试过程记录（错