标签：
今天一个同学让我帮忙写一个程序，要求是：
输入一个n，返回从0到n中任意个数的组合，返回取异或结果为0的组合。来看VBS代码
n = 6 p = "" for i = 0 to 2^n - 1 s = 0 for j = 0 to n-1 s = s xor (j+1) * ((i and 2^j) / 2^j) next if s=0 then D2B(i) end if next ‘Set objFSO = CreateObject("Scripting.FileSystemObject") ‘Set objFile = objFSO.OpenTextFile("result.txt",2,true) ‘objFile.WriteLine result Function D2B(Dec) if Dec = 0 then D2B = 0 else Do While Dec > 0 D2B = Dec Mod 2 & D2B Dec = Dec \ 2 Loop end if msgbox D2B End Function
恩，很短小的代码，但是怪就怪在下面那个函数上了，上面代码这样
if s=0 then
D2B(i)
end if
时，输出结果没有问题，很正常。
但是当把代码改为：
if s=0 then
result = D2B(i)
end if
结果就不正常了。使用
Wscript.exe /X E:\debug.vbs
调试，结果发现是由于参数i传进函数为byref的，所以在函数内部对i做出了改变，于是就死循环了。但是为什么不对函数结果赋值是就没问题呢？待研究
（vb默认byref，vb.net默认byval）
一个很全的VBS博客了给出了解释。。。
标题: VBS过程和函数参数传递的方式默认是ByVal还是ByRef？
作者: Demon
链接: http://demon.tw/programming/vbs-byval-byref.html
果然有盲点啊
标签：
原文地址：http://www.cnblogs.com/guangshan/p/4501984.html
