if语句的问题

Question

本帖最后由 zhaozidong86 于 2011-08-25 10:55:48 编辑

Answer 1

VB里有一个Microsoft Script control 1.0 控件可以做这种事

Answer 2

没看懂,s本身定义为字符不需要在"",
If  s  Then   MsgBox s

Answer 3

    Dim strScript As String
    Dim m As Long
    Dim n As Long
    Dim s As Long
    m = 1
    n = 5
    strScript = "dim m,n,s" & vbCrLf
    strScript = strScript & "m = " & m & vbCrLf
    strScript = strScript & "n = " & n & vbCrLf
    strScript = strScript & "s = m - n" & vbCrLf
    
    ScriptControl1.Reset
    ScriptControl1.ExecuteStatement strScript
    s = ScriptControl1.CodeObject.s
    MsgBox s

Answer 4

化简为烦？这其实是我自己做的一个小例子,我的程序真正要实现的功能比这复杂多了，没法全部贴上来。我想要的是根据Combo1里面选择的结果来执行IF语句比如选择了">"那就执行 m-n>5