设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 31942|回复: 64
打印 上一主题 下一主题

[模块/函数] 【新手入门】之五:公共变量与传址过程、传值过程

[复制链接]
跳转到指定楼层
1#
发表于 2012-9-23 02:29:09 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
在百度里见到一道很有意思的编程题,先贴上两段代码代码给大家练练:
第一段代码:返回值是什么?

  1. Dim a As Integer
  2. Sub test()
  3.     Dim b As Integer
  4.     a = 1
  5.     b = 2
  6.     Debug.Print fun1(fun1(a, b), b)
  7.     Debug.Print a
  8.     Debug.Print b
  9. End Sub
  10. Function fun1(x As Integer, y As Integer) As Integer
  11.     Dim i As Integer
  12.     For i = 1 To y
  13.         y = y + 1
  14.         x = x + 1
  15.         a = x + y
  16.     Next i
  17.     fun1 = a + y
  18. End Function
复制代码
游客,如果您要查看本帖隐藏内容请回复

第二段代码:和上面的代码相比,只是加了“ByVal”关键字,返回结果还是一样吗?

  1. Dim a As Integer
  2. Sub test()
  3.     Dim b As Integer
  4.     a = 1
  5.     b = 2
  6.     Debug.Print fun1(fun1(a, b), b)
  7.     Debug.Print a
  8.     Debug.Print b
  9. End Sub
  10. Function fun1(ByVal x As Integer, ByVal y As Integer) As Integer
  11.     Dim i As Integer
  12.     For i = 1 To y
  13.         y = y + 1
  14.         x = x + 1
  15.         a = x + y
  16.     Next i
  17.     fun1 = a + y
  18. End Function
复制代码
游客,如果您要查看本帖隐藏内容请回复


公共变量的影响:
问题3:对第一段代码删除 Dim a As Integer,并把参数(x As Integer, y As Integer)改为:(x,y)【注】会有怎样的结果呢?
问题4:对于第二段代码同样删除这句公共变量,又会有怎样的结果呢?

答案嘛,大家可以在模块的立即窗口(Ctrl+G)中得到,实在不清楚的再问我。为什么会这样。由于时间关系,我得稍后一些时间才能回复了,先占个楼层。
【注:由于删除公共变量,x,y均为缺省变量类型Variant。如果仍保留子函数中的Integer类型,则会在传址过程中出现变量不匹配的编译错误,因而需要改为(x,y)】
【新手入门】之一:If分支语句
【新手入门】之二:分支语句总结
【新手入门】之三:循环语句For
【新手入门】之四:循环语句Do和死循环
【新手入门】之五:公共变量与传址过程、传值过程
【新手入门】之六:“悲欢离合总无情”——浅谈Split和Join
【新手入门】之七:嵌套与并列——再谈If流程问题
【新手入门】之八:“连就连”——浅谈“&”和“+”连接符的区别

【新手入门】之九:从百钱百鸡谈起——浅谈“规划求解”兼答lingjiang问
【新手入门】之十:书到用时方恨少——自定义菜单(Access 2003)的制作
【新手入门】之十一:浅谈ADO之序言
【新手入门】之十二:浅谈ADO之Connection
【新手入门】之十三:浅谈ADO之Conmmand(上)
【新手入门】之十四:浅谈ADO之Command(下)
【新手入门】之十五:浅谈ADO之Recordset(上)
【新手入门】之十六:浅谈ADO之Recordset(下)
【新手入门】之十七:浅谈列表框的使用
【新手入门】之十八:双击列表框修改数据
【新手入门】之十九:从“书与女友恕不外借”谈起——浅谈“Bookmark”的使用
【新手入门】之二十:“书与书签”——bookmark属性答疑
【新手入门】之二十一:记录集的“凌迟”——逐条导出记录集

【新手进阶】之一:基础算法(一)
【新手进阶】之二:基础算法(二)
【新手进阶】之三:基础算法(三)
【新手进阶】之四:基础算法(四)
【新手进阶】之五:排序搜索(一)
【新手进阶】之六:排序搜索(二)
【新手进阶】之七:递归算法
【新手进阶】之八:冒泡排序
【新手进阶】之九:浅谈不绑定数据源操作记录
【新手进阶】之十:工作日的计算
【新手进阶】之十一:“庖丁解牛”和“纪昌学射”——浅谈表格式文本数据的导入
【新手进阶】之十二:从四脚腾空的奔马谈起——原来界面可以这样设计
【新手进阶】之十三:Outlook风格导航界面
【新手进阶】之十四:仓库管理系统

本帖被以下淘专辑推荐:

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏1 分享分享 分享淘帖1 订阅订阅
2#
 楼主| 发表于 2012-9-23 02:29:29 | 只看该作者
本帖最后由 roych 于 2012-9-23 21:27 编辑

问题3:
取消公共变量之后,实际上嵌套函数已经发生很大变化的了。具体过程是:
第1次传址过程,没什么好说的,x=a+1=2,y=b+1=3,a=x+y=5
第2次传址过程,x=x+1=2+1=3,y=y+1=3+1=4,a=x+y=7。
从上面来看,实际上第2次传址过程并没有把a=5传递给fun1,而是继续进行循环内运算的(这和定义公共变量是完全不同的),换句话说,fun1(a,b)=a+y=7+4=11(这时候x=3,y=4)。

因此:fun1(fun1(a,b),b)=fun1(11,4),这样一来,那么显然循环就得执行4次了。
第1次:x=11+1=12,y=4+1=5,a=12+5=17
第2次:x=12+1=13,y=5+1=6,a=13+6=19
第3次:x=13+1=14,y=6+1=7,a=12+5=21
第4次:x=14+1=15,y=7+1=8,a=13+6=23
那么fun1(fun1(a,b),b)=fun1(11,4)=a+y=23+8=31。
因此得到的结果,显然是31,3,8【为什么是3,而不是15?以x才是15,a一直停留在嵌套内的循环里,即x=x+1+1=3。也就是说,嵌套前a已经定型了~~】
*************************************************************************************************
问题4:
事实上这和之前的解释没太大不同。过程如下:
第1次:x=a+1=2,y=b+1=3,a=x+y=5
第2次:x=x+1=2+1=3,y=y+1=3+1=4,a=x+y=7 fun1(a,b)=7+4=11。
而我们前面说过,传值过程,传递完之后,那个值是不会发生变化的。因此,外循环也只是循环2次。即:fun1(fun1(a,b),b)=fun1(11,2)
第1次:x=11+1=12,y=2+1=3,a=x+y=15
第2次:x=12+1=13,y=3+1=4,a=x+y=17
fun1(fun1(a,b),b)=fun1(11,2)=a+y=17+4=21。
b肯定是不变的2了,那么取消公共变量后的a呢?
不用猜了,取消公共变量后,传值完之后,变量便回复到初始值了,也就是a=1。会感到意外吗?

啰啰嗦嗦地讲这么多,也不知道会不会有人觉得,这些代码到底有没有实际用途呢?事实上,曾经为一个同事写过一段ADO的代码,他问了一个很专业的问题,为什么在Update记录集后,非要加上一句a=0呢?如果他了解传值过程和传址过程就很清楚原因了:加上这句后才能初始化数据啊。
3#
发表于 2012-9-23 13:47:37 | 只看该作者
thanks you sharing it
4#
发表于 2012-9-23 14:38:45 | 只看该作者
学习学习
5#
发表于 2012-9-23 15:43:09 | 只看该作者
正好,我这里也有一个,更有意思的!{:soso_e104:}

Sub testFuns()
Dim lngRet As Long, varLong As Long
varLong = 1
fun1 varLong
Debug.Print varLong

varLong = 1
fun1 (varLong)
Debug.Print varLong

varLong = 1
Call fun1(varLong)
Debug.Print varLong
End Sub
Function fun1(ByRef lng As Long) As Integer
lng = 1000
End Function

6#
发表于 2012-9-23 15:44:11 | 只看该作者
输出:
1000
1
1000

谁知道呢?{:soso_e128:}
7#
发表于 2012-9-23 15:50:11 | 只看该作者
同样给出SUB。

Sub testSubs()
Dim lngRet As Long, varLong As Long
varLong = 1
sub1 varLong
Debug.Print varLong

varLong = 1
sub1 (varLong)
Debug.Print varLong

varLong = 1
Call sub1(varLong)
Debug.Print varLong

varLong = 1
Call sub1(lng:=varLong)
Debug.Print varLong

varLong = 1
sub1 lng:=varLong
Debug.Print varLong
End Sub
Sub sub1(ByRef lng As Long)
lng = 1000
End Sub

大家慢慢找答案吧{:soso_e113:}
8#
 楼主| 发表于 2012-9-23 21:37:34 | 只看该作者
lynnwang 发表于 2012-9-23 15:43
正好,我这里也有一个,更有意思的!

Sub testFuns()

有点意思,哈哈~~~可以加深大家对传址过程的理解。

点击这里给我发消息

9#
发表于 2012-9-23 21:46:49 | 只看该作者
看了头会晕,我还是不看了
10#
发表于 2012-9-24 20:38:39 | 只看该作者
本帖最后由 ycxchen 于 2012-9-24 20:39 编辑

很长时间不见版主有“新手进阶”东西了,我要学习!

点评

谢谢一贯的支持!只是一方面工作上有点小忙,另一方面也没有遇到比较有意思的话题,所以写的少了些~~本想多写写算法方面的,不过,考虑到在Access中的适用性可能不大,就作罢了。  发表于 2012-9-24 21:56
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-1 07:23 , Processed in 0.086935 second(s), 40 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表