原创力文档- 1、本文档共3页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
实习八__过程的定义与调用
实习八 过程的定义与调用
一、实习目的
1、熟练掌握子过程的编程方法。
2、熟练掌握自定义函数的编程方法。
3、了解并灵活使用两种参数类型—值传递参数（byval）和地址传递参数。
4、理解并掌握变量的作用域—局部变量、全局变量、静态变量。
二、实习内容
1、将程序代码输入计算机，观察其运行结果，并掌握其编程思想。
Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
a=60:b=100
Print a,b
Call proc(a,b)
Print a,b
End Sub
Private Sub proc(Byval x As Integer ,y As Integer)
x=x*20
y=y+10
Print x,y
End Sub
2、将程序代码输入计算机，观察其运行结果，并掌握其编程思想。
Function F(a As Integer)
b = 0
Static c
b = b + 2
c = c + 2
F = a + b + c
End Function
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a = 2
For i = 1 To 5
b = F(a)
Print b
Next i
End Sub
3、计算数n!，部分代码如下。
Private Sub Form_Click()
Dim n As Integer
Dim s As Integer
Dim i As Integer
n=Inputbox(“请输入n(=1)的值：”)
s=0
For i=1 To n
_____________
Next i
Print s
End Sub
Private Function jiecheng(m As Integer) As Integer
Dim i As Integer
Dim t As Integer
t=1
For i=1 To m
___________
Next i
_____________
End Function
3、设计如图8-1的界面，将程序代码输入计算机，观察其运行结果，并熟悉局部变量、全局变量、静态变量的作用范围和生存期。
?
图 8-1
?
代码程序：
Dim a As Integer 全局变量 a
?
Private Sub Command1_Click()
Static b As Integer 静态变量 b
Dim c As Integer 局部变量 c
a = a + 1
b = b + 1
c = c + 1
Text1.Text = c
Text2.Text = a
Text3.Text = b
End Sub
?
Private Sub Command2_Click()
a = a - 1
b = b - 1
c = c - 1
Text1.Text = c
Text2.Text = a
Text3.Text = b
End Sub
?
4、编写一个子过程，功能是判断由主调用过程传来的参数（分数）的级别并输出结果，90~100优，80~89良，70~79中等，60~69及格，60以下为不及格。编写一个事件过程作为主调用过程去调用这个子过程，接受用户输入的某一学生的四门课成绩，并求四门课的平均成绩，通过调用子过程判断其级别。
5、编写一个函数，功能是计算两个数的最小公倍数。编写一个事件过程作为主调用过程去调用这个函数，接受用户输入的两个正整数，调用函数得到它们的最小公倍数，将结果输出。
三、思考题
1、子过程和函数的参数表中的参数当有Byval时，当没有Byval时分别为何种参数传递方式，形参对实参的值是否有影响？
2、子过程和函数对主调用程序的影响有哪些？
?
?
标签：三个
文本框：三个
命令按钮：两个
文档评论（0）