实验六过程应用程序设计（3个学时）一、实验目的掌握子过程和自定义函数过程的定义和调用方法。掌握形参和实参的对应关系。掌握变量、函数和过程的作用域。二、实验内容1.编写一个子过程，在窗体上打印星花矩阵，矩阵的行数和列数有用户输入。1）代码设计如下PublicSubm(xAsInteger,yAsInteger)DimiAsInteger,jAsIntegerFori=1ToxForj=1ToyPrint"*";NextjPrintNextiEndSubPrivateSubForm_Load()DimaAsInteger,bAsIntegera=InputBox("请输入行数")b=InputBox("请输入列数")ma,bEndSub2）将运行结果的界面截下来粘贴在下面：3）调试过程记录（错误情况及改正方法）2．编写一个计算阶乘的函数fact,并求1！+2！+3！+….n!的结果，点击“计算“按钮将结果显示在窗体上。1）代码设计如下PublicFunctionfact(nAsInteger)AsLongDimfAsLong,iAsIntegerf=1Fori=1Tonf=f*iNextifact=fEndFunctionPrivateSubCommand1_Click()DimnAsInteger,iAsInteger,sumAsLongn=InputBox("请输入数值")sum=0Fori=1Tonsum=sum+fact(i)NextiPrint"求1!+2!+3!+…+n!的值="PrintsumEndSub2）将运行结果的界面截下来粘贴在下面3）调试过程记录（错误情况及改正方法）3分别用函数过程和子过程随机产生一个三位奇数。要求：当点击“函数过程”按钮时，将利用函数过程随机产生的一个三位奇数显示在一个标签中，当点击“子过程”按钮时，将利用子过程随机产生的一个三位奇数显示在另一个标签中。1）代码设计PublicFunctiona(MAsInteger)RandomizeM=Int(Rnd*900)+100IfMMod2=0ThenM=M+1EndIfa=MEndFunctionPrivateSubCommand1_Click()DimMAsIntegerLabel1.Caption=a(M)EndSubSubb()RandomizeDimXAsIntegerX=Int(Rnd*900)+100IfXMod2=0ThenX=X+1EndIfLabel2.Caption=XEndSubPrivateSubCommand2_Click()BEndSub2）将运行结果的界面截下来粘贴在下面3）调试过程记录（错误情况及改正方法）