原创力文档- 1、本文档共4页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
实验六 过程应用程序设计（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 i
End Sub
Private Sub Form_Click()
Dim m As Integer, n As Integer
Form1.Caption = "请单击窗体！！！！"
m = InputBox("请输入星花矩阵的行数", "注意", "")
n = InputBox("请输入星花矩阵的列数", "注意", "")
Call 星花矩阵(m, n)
End Sub
2）将运行结果的界面截下来粘贴在下面：
3）调试过程记录（错误情况及改正方法）
M,N 需要在form load事件中定义属于模块级变量
2．编写一个计算阶乘的函数fact, 并求1！+2！+3！ +….n! 的结果，点击“计算“按钮将结果显示在窗体上。
1）代码设计如下
Private Sub Command1_Click()
Dim n As Integer
n = Val(Text1.Text)
Text2.Text = fact(n)
End Sub
Public Function fact(n As Integer) As Long
fact = 1
For i = 1 To n
fact = fact * i
Next i
End Function
2）将运行结果的界面截下来粘贴在下面
3）调试过程记录（错误情况及改正方法）
N=val(Text1.text)里边不带等号
3分别用函数过程和子过程随机产生一个三位奇数。
要求：
当点击 “函数过程”按钮时，将利用函数过程随机产生的一个三位奇数显示在一个标签中，当点击 “子过程”按钮时，将利用子过程随机产生的一个三位奇数显示在另一个标签中。
1）代码设计
Private Sub Command1_Click()
Call RR
End Sub
Private Sub Command2_Click()
Dim s As Integer
s = r()
If s Mod 2 = 0 Then
Text2.Text = s + 1
Else
Text2.Text = s
End If
End Sub
Public 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 If
End Sub
Public Function r()
Randomize
r = Int(900 * Rnd + 100)
End Function
2）将运行结果的界面截下来粘贴在下面
3）调试过程记录（错误情况及改正方法）
用子过程产生随机奇数时，将结果输出到TEXT2时出现错误，不应该将代码写在Command1_Click()下。
文档评论（0）