关于VBS的一个怪现象

今天一个同学让我帮忙写一个程序，要求是：

输入一个n，返回从0到n中任意个数的组合，返回取异或结果为0的组合。来看VBS代码

n =

p = ""

for i =  to ^n -

    s =

    for j =  to n-

        s = s xor (j+) * ((i and ^j) / ^j)

    next

    if s= 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 =  then

       D2B =

     else

         Do While Dec >

             D2B = Dec Mod  & D2B

             Dec = Dec \

         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

果然有盲点啊

附完整版代码：

n =

result = ""

for i =  to ^n -

    s =

    for j =  to n-

        s = s xor (j+) * ((i and ^j) / ^j)

    next

    if s= then

        temp = i

        result = result & D2B(temp) & chr() & chr()

    end if

next

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("result.txt",,true)

objFile.WriteLine result

Function D2B(Dec)

     if Dec =  then

       D2B = ""

     else

         Do While Dec >

             D2B = Dec Mod  & D2B

             Dec = Dec \

         Loop

       end if

       for k =  to n-len(D2B)

         D2B = "" & D2B

       next

End Function

巴特西

关于VBS的一个怪现象

最新文章

热门文章