Question

vb 计算文本框表达式值

t1中有如下表达式 3+4.5*2 单击 计算按键后在 T2 中显示其值 请问该怎么写 计算 按钮的代码呀 感谢支持！！！

Answer 1

给你说说思路,程序就自己写,首先能被13整除的数都是13的倍数,因此我们可以不用模运算,直接用循环找出13的倍数就可以了.再一个,要求找奇数,可以把循环步长设为2,即step 2,这样就可以找出这些数,然后用一个循环变量计算他们的和.本人本题用do循环较好,可以减少运行时间.注意结束循环条件应该是:until m<1000（用DO循环的时候,n表示循环变量）

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

Private Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function

Private Function calc(ByVal x As String) As String
ExecuteLine "dim x as double"
ExecuteLine "x= " & T1.text
ExecuteLine "clipboard.settext x"
T2 = Clipboard.GetText
End Function

解题思路就是把T1当成脚本给VBS运行，然后把结果放到剪贴板里面，然后把剪贴板粘到T2里面
否则你需要自己去解析这个字符串进行四则混合运算。