要求跟win7上的計算器差不多
uj5u.com熱心網友回復：
有一個以前寫的，很多單，你可以參考一下qq：3185765492uj5u.com熱心網友回復：
Private Sub Form_Load()
Debug.Print Eval("1+(2*3-4)/5*6-7+8")
End Sub
Public Function Eval(ByVal iStr As String) As String
Dim VBS As Object
Set VBS = CreateObject("MSScriptControl.ScriptControl")
VBS.Language = "VBScript"
Eval = VBS.Eval(iStr)
Set VBS = Nothing
End Function
自己看著辦吧
uj5u.com熱心網友回復：
VBScript的計算精度比不上Win7上的計算器。我猜。
uj5u.com熱心網友回復：
有興致的話用VBScrip寫高精度計算函式也不是不行
uj5u.com熱心網友回復：
VB6可視化程式設計(無錫職業技術學院)http://download.csdn.net/detail/zhao4zhong1/6824713uj5u.com熱心網友回復：
這是職院撰寫的教材？轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/57423.html
標籤：VB基礎類
上一篇：vb6 如何在picture1的某位置和區域粘貼圖片?
下一篇：vb.net求助一個問題