- 12 名前：デフォルトの名無しさん mailto:sage [2009/02/25(水) 00:42:33 ]
- こんなか？
Option Explicit
call hoge
call hogehoge
sub hogehoge()
Dim a(2)
a(0)="apple"
a(1)="berry"
a(2)="cucumber"
dim d
set d=CreateObject("Scripting.Dictionary")
d.add(1),a
dim f
for each f in d(1)
wscript.echo f
next
end sub
sub hoge()
Dim a
a=Array("apple","berry","cucumber")
dim d
set d=CreateObject("Scripting.Dictionary")
d.add(1),a
dim f
for each f in d(1)
wscript.echo f
next
end sub
