🚀 go-pugleaf

sub test(str as string)
    str = "def"
    debug.print "Func:" ; str
end sub
sub main()
    dim org as string
    org = "abc"
    debug.print "Before:"; org

'    test(org)  <--- ここがおかしい
    test org   <--- これが正解

    debug.print "After:";org
end sub

と書くと上手く行くようです

Satoshi Sato wrote in message <6rukns$2ok$1@news1.din.or.jp>...
>Access97のモジュールで参照渡しをしているつもりですがうまく行きません。
>
>sub test(str as string)
>    str = "def"
>    debug.print "Func:" ; str
>end sub
>sub main()
>    dim org as string
>    org = "abc"
>    debug.print "Before:"; org
>    test(org)
>    debug.print "After:";org
>end sub
>
>こんなプログラムで、デバッグウィンドウを見ると
>
>Before:abc
>Func:def
>After:abc
>
>となります。
>
>Before:abc
>Func:def
>After:def
>
>のような結果を期待しているのですが。
>
>どなたか、教えてください。
>
>Win95+Access97
>
>佐藤:ssatoshi@din.or.jp
>
>
>