VB6中如何通过变量名引用变量

VB6中如何通过变量名引用变量

tt = "Sub trans" & vbCrLf & "strA=1" & vbCrLf & "strB=strA" & vbCrLf & "msgbox strB" & vbCrLf & "End Sub"
ScriptControl1.language = "VBScript"
ScriptControl1.addcode tt
ScriptControl1.run "trans"

你说的 strA和 strB都是vb6内定义的全局变量？ 如果是， script是无法改变其值
追问：请问那要如何定义变量才能正常运行呢
追答：完整代码贴出来
追问：private sub C1()
dim bb,rr as variant
rr="ccc"
ScriptControl1.language = "VBScript"

ScriptControl1.ExecuteStatement"bb=rr"
msgbox bb
end sub
运行后bb仍为empty
追答：private sub C1()
dim bb,rr as variant
rr="ccc"
bb=rr
msgbox bb
end sub

ScriptControl1用这个相当于运行一个vbs脚本文件，不会和你过程内的任何变量直接产生联系
追问：那请问我知道一个变量的名字怎么才可以通过变量名字符串赋值给另一个变量呢？
比如我知道一个变量的名字为"strA"，怎么将strA赋值给strB呢？
追答：private sub C1(byval ss as string )
dim bb,rr as variant
rr="ccc"
if ss="rr" then
bb=rr
end if
msgbox bb
end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！