过程调用与参数传递.pptVIP

下载本文档

1
0
约1.05万字
约 50页
2021-12-06 发布于广东
举报
版权申诉

过程调用与参数传递.ppt

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

* * * * * * * * * * * * * * * * * * 分析下列程序的值 Private Sub Command1_Click() Dim M As Integer, N As Integer M = 15: N = 20 Call Value_Change(M,N) Print M, N End Sub Private Sub Value_Change(X As Integer, by value Y As Integer) X=X+20 Y=X+Y Print “X=“;X,”Y=“;Y End Sub X=35 y=55 M=35 N=20 第三十一页，本课件共50页 15 20 返回地址 1000(地址) 20 M N X Y 1000 1002 1004 1005 1003 35 20 返回地址 1000（地址) 55 M N X Y 1000 1002 1004 1005 1003 第三十二页，本课件共50页 Private Sub Form_Click() Dim sum As Integer, i As Integer For i = 5 To 1 Step -1 sum = sum + fact(i) Next i Print sum=; sum End Sub 编写程序计算5!+4!+3!+2!+1!的值调用函数，循环变量作为实参 Public Function fact(n As Integer) As Integer fact = 1 Do While n 0 fact = fact * n n = n - 1 Loop End Function 按地址传递参数产生不良干扰的示例：（1）循环变量作为实参 Why？如何修改？结果：120 正确结果应为：153 第三十三页，本课件共50页参数数据类型转换的例子 Private Sub Form_Click() Dim S as Single S=125.5 Call Convert((S),”12”+”.5”) End Sub 如果为Call Convert((S),”125a”)呢？ Private Sub Convert(Inx As Integer,Sing As Single) Inx = Inx * 2 Sing = Sing + 23 Print “Inx+”;Inx,”sing=”;Sing End Sub 第三十四页，本课件共50页 Private Sub Form_Click() Dim v1 As Integer, v2 As Integer, v3 As Integer v1 = 2: v2 = 3: v3 = 4 Print v1 + v2 + v3 * f(v1, v2, v3) End Sub Public Function f(a As Integer, b As Integer, c As Integer) a = a + 10 b = b + 10 c = c + 10 f = a + b + c End Function 调用函数语句，实参是传地址的。实参变量又出现在表达式中结果是571，而非161。why? （2）实参出现在表达式中第三十五页，本课件共50页因为在print语句中，计算表达式时，优先执行函数调用。调用结束时f=39，而v1，v2，v3的值也变了，不是2，3，4 而是 12，13，14 所以结果是：12+13+14*39=571 第三十六页，本课件共50页 Private Sub Form_Click() Dim v1 As Integer, v2 As Integer, v3 As Integer v1 = 2: v2 = 3: v3 = 4 V4=v1 + v2 + v3 * f(v1, v2, v3) Print v4 End Sub 修改成赋值语句结果为161 因为执行赋值语句时，计算右侧表达式的值不是首先调用函数，而是按从左到右的顺序进行的，即计算2+3+4*39 第三十七页，本课件共50页如果修改成: Private Sub Form_Click() Di