请问如何将传入的字符串当代码来执行~？

Question

例：目标代码：
dim strData as string
dim strNum,BRNO,strDate,strName as stringstrData = "*" + strNum + "!" + BRNO + "#" + strDate + "$" + strName
问题：
因上述代码中的："*" + strNum + "!" + BRNO + "#" + strDate + "$" + strName 不确定，可能经常需要改动，请问能否以字符串参数将其输入？

Answer 1

是的,里面还有很多变量,取那几个变量都有可能会变动
比如strData = "*" + strNum + "!" + BRNO
strData = "*" +  strDate + "$" + strName
strData = "*" + "!" + BRNO + "#" + strDate + "$" + strName

Answer 2

Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
Option ExplicitPrivate Sub Command1_Click()
EbExecuteLine StrPtr(Text1.Text), 0, 0, 0
List1.AddItem Text1.Text
Text1.Text = ""
End Sub

Answer 3

这样传入后可能结果会出现不正确，因为你执行的是运算，但是传入的是字符串。
但是你可以在算式中进行强制类型转换后再进行运算，将结果再传入字符串中。比如：a=*int(strNum) 
      b=!int(BRNO)  
      c=#int(strDate)
      d=$int(strName)
   
    f=a+b+c+d 不知这样理解对否？？？

Answer 4

elangno1 不要糊弄人，离开 VB-IDE 就不能执行的！
要执行动态代码就用 Microsoft Script Control