自動化ツールUWSC使いよ集まれ27

>>163
以下でテスト。

Option Explicit
Public Hairetsu[5]
Dim I
For I = 0 To 5
Hairetsu[I] = I
Next
Print "関数を呼ぶ前"
For I = 0 To 5
Print Hairetsu[I]
Next
Dim Dummy
Dummy = Func(Hairetsu)
Print "関数を呼んだ後"
For I = 0 To 5
Print Hairetsu[I]
Next
Sleep(999)
Function Func(Var Hairetsu[])
Hairetsu[0] = 99
Print "関数内で書き換えた後"
Dim I
For I = 0 To 5
Print Hairetsu[I]
Next
Result = 0
FEnd