dim amount as string
amount = inputbox ("请输入变量")
open "c:\a.txt" for output as #1
print #1 , "Private " & amount & " as string"
print #1 , "get " & amount
print #1 , "set " & amount
close #1
我的msn: myfend@
dim amount as string
amount = inputbox ("请输入变量")
open "c:\a.txt" for output as #1
print #1 , "Private " & amount & " as string"
print #1 , "get " & amount
print #1 , "set " & amount
close #1
可以考虑用动态数组,循环输入和输出
也可以用类来实现