vb如何把加减乘除定义为变量？

Question

比如我分别定义a,b,c,d（都是数字）后，做一个Loop
当a□b□c=d（□中添不同的运算符号）为True时输出a,b,c,d
现在的问题就是如何把加减乘除的符号填到“□”里而不用一个一个输
我现在的思路是这样的：
a(1) = 3600
a(2) = 15
a(3) = 3
For i = 1 To 4
For l = 1 To 4
if a(1) calc(i) a(2) calc(l) a(3) = a(4) then Print i,l
Next
Next
如何使Calc(1)="+"，Calc(2)="-"，Calc(3)="*"，Calc(4)="/"？

Answer 1

VB本身没有这样的功能，必须调用VBScript来实现：

Function CalcStr(StrNum As String) As Double
Dim MSSC As Object
Set MSSC = CreateObject("MSScriptControl.ScriptControl")
MSSC.Language = "VBScript"
CalcStr = MSSC.Eval(StrNum)
Set MSSC = Nothing
End Function

用法举例：

Dim a(1 To 4) As Double, calc(1 To 4) As String
a(1) = 3600
a(2) = 15
a(3) = 3
calc(1) = "+"
calc(2) = "-"
calc(3) = "*"
calc(4) = "/"
For i = 1 To 4
    For j = 1 To 4
        if CalcStr(a(1) & calc(i) & a(2) & calc(j) & a(3)) = a(4) then Print i, j
    Next
Next

追问

谢谢你，问下有VBS这方面的教程吗，我在MSDN上没有看到相关内容啊

追答

其实就是利用了VBScript的一个函数eval()，VB6是没有这个函数的