- 1、本文档共15页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第 6 章 补充资料
习题解答
1.简述子过程和函数过程的共同点和不同之处 .
解答 :子过程和函数过程的共同点 :函数过程和子过程都是功能相对独立的一种子程序结
构,
它们有各自的过程头、 变量声明和过程体。 在程序中使用它们不但可以避免书写重复的程序
语句,缩短代码,而且可以使程序条理清晰,容易阅读。
子过程和函数过程的不同点:
(1)过程声明的关键字不同,子过程用的是 Sub,函数过程用的是 Function。
(2)子过程名无值就无类型声明,函数过程名有值就有类型声明。
(3)函数过程名兼作结果变量, 因此在函数过程体内至少对函数过程名赋值; 而子过程名
在
过程体内不能赋值。
(4)调用方式不同,子过程是一条独立的语句,可用 Call 子过程名或省略 Call 直接以子
过程
名调用;函数过程不是一条独立的语句,是一个函数值,必须参与表达式的运算。
(5) 一般来说, 一个函数过程可以被一个子过程代替, 代替时只要改变函数过程定义的形
式,
并在子过程的形参表中增加一个地址传递的形参来传递结果。
2. 什么是形参, 什么是实参?什么是值引用?什么是地址引用?地址引用时, 对应的实
参
有什么限制?
解答:形参是在定义过程时的一种形式虚设的参数,只代表了该过程参数的个数、类型、
位
置、形参的名字并不重要,也没有任何值,只表示在过程体内进行某种运算或处理。
实参是调用子过程时提供给过程形参的初始值或通过过程体处理后获得的结果。
调用时用实参代替形参,实参与形参在个数、类型、位置一一对应, 实参与形参名相同与
否
无关。
实参与形参的结合有两种方法,即传地址( ByRef )和传值( ByVal ),或称地址引用和值
引
用,缺省为地址引用。
值引用时, 系统将实参的值传递给对应的形参, 实参与形参断开了联系。 如果在过程体中
改
变形参的值,不会影响到实参。
地址引用时, 实参与形参变量共用同一个存储单元, 如果在过程中改变了形参的值, 对应
的
实参也将发生改变。
地址引用时,实参只能是变量,不能是常量或表达式。
3.指出下面过程语句说明中的错误:
(1)Sub f1(n%)As Integer
(2)Function f1 % (f1%)
(3)Sub f1(ByVal n% ())
(4)Sub f1(x(i)as Integer)
解答:
(1)错误为 Sub 子过程名无返回值,也就没有类型。
(2)函数名与形参名相同。
(3)形参 n 为数组,不允许声明为 ByVal 值传递。
(4)形参 x(i)不允许为数组元素。
4.已知有如下求两个平方数和的 fsum 子过程:
Public Sub fsum (sum%,ByVal m% ,ByVal n% )
sum = a * a + b * b
End Sub
在事件过程中若有如下变量声明:
Private Sub Command1_Click()
Dim a%,b%,c!
a = 10:b = 20
则指出如下过程调用语句的错误所在 :
(1)fsum 3,4,5
(2)fsum c,a,b
(3)fusm a + b,a,b
(4)Call fsum(Sqr(c),Sqr(a),Sqr(b))
(5)Call fsum c,a,b
解答:
(1)fsum 子过程的第一个形参是地址传递 ,因此对应的实参 3 不应该是常量。
(2)fsum 子过程的第一个形参是整形而且是地址传递,对应的实参 c 是单精度,类型不
匹配。
(3)fsum 子过程的第一个形参是地址传递,因此对应的实参 a+b 不应该是表达式。
(4)fsum 子过程的第一个形参是地址传递,因此对应的实参 Sqr(c)不应该是表达式。
(5)用 Call 语句调用 fsum 子过程,必须加圆括号括起实参。
5.利用迭代法求方程 x^2 - a = 0 的近似根 ,要求精度为 10^-5,迭代公式为 Xi+1 =
1/2(Xi + a/Xi) 。编制三个过程:迭代函数过程、迭代子过程和递归法函数过程。
解答:假定 a 为 10,三种过程的执行效果如图 6.6 所示,程序代码如下:
Private Sub Command1_Click()
Print 函数过程 ;f1(10)
Call s1 (x!,10)
Print 子过程 ;x!
Print 递柜调用 ;dgf(x,10)
End Sub
Public Function f1 !(a!) 函数过程
Dim X!,X1!
x1 = a
Do
x = (x + a/x)/2
If Abs(x - x1) 0.00001 Then Exit Do
x1 = x
Loop
End Sub
Public Function dgf!(x,a!) 递归调用
x
文档评论(0)