調(diào)用 腳本解析引擎，
公司主營業(yè)務(wù)：成都網(wǎng)站制作、網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。成都創(chuàng)新互聯(lián)是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。成都創(chuàng)新互聯(lián)推出江西免費做網(wǎng)站回饋大家。
textbox2.text=Eval(textbox1.text).ToString()
Function?Eval(ByVal?Expressions?As?String)?As?Double
Dim?Mssc?=?CreateObject("MSScriptControl.ScriptControl")
Mssc.Language?=?"vbscript"
Return?CDbl(?Mssc.Eval(Expressions))
End?Function
不喜歡上面提示的警告的話
textbox2.text=EvalString(textbox1.text)
Function?EvalString(ByVal?Expressions?As?String)?As?String
dim?oType?=?System.Type.GetTypeFromProgID("MSScriptControl.ScriptControl")
Dim?o?=?System.Activator.CreateInstance(oType)
oType.InvokeMember("Language",?System.Reflection.BindingFlags.SetProperty?,?Nothing,?o,New?Object(){?"vbscript"})
Return?oType.InvokeMember("Eval",?System.Reflection.BindingFlags.InvokeMethod,?Nothing,?o,?New?Object(){Expressions}).ToString()
End?Function
Eval 在VB中使用，剛找到的_vb吧_百度貼吧
先在form上建立三個textbox，分別為textbox1,textbox2,textbox3，再建立四個按鈕，分別為cmdplus,cmdminus,cmdmultiple,cmddivide，代碼如下：
Private Sub cmdplus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplus.Click
Dim a As Integer
Dim b As Integer
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a + b
End If
Private Sub cmdminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdminus.Click
Dim a As Integer
Dim b As Integer
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a - b
End If
Private Sub cmdmultiple_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmultiple.Click
Dim a As Integer
Dim b As Integer
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a * b
End If
Private Sub cmddivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddivide.Click
Dim a As Integer
Dim b As Integer
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a / b
End If
簡單點的：
dim 上一個數(shù) as double
dim 下一個數(shù) as double
dim 結(jié)果 as double
dim 操作 as string
private sub 加減乘除(byval sender as object, byval e as eventargs) handles 加.click, 減.click, 乘.click, 除.click
上一個數(shù) = cdbl(輸入框.text) ' 存儲當(dāng)前輸入的數(shù)值
輸入框.text = "" ' 等待下一個數(shù)值
select case sender.text ' 根據(jù)按下的按鈕的文本屬性確定你要做什么，這里可以用加減乘除號代替
case "加"
操作 = "加"
case "減"
操作 = "減"
case "乘"
操作 = "乘"
case "除"
操作 = "除"
end select
end sub
private sub 計算(byval sender as object, byval e as eventargs) handles 等號.click
下一個數(shù) = 輸入框.text
輸入框.text ＝ ”“
select case 操作
case "加"
結(jié)果 = 上一個數(shù) + 下一個數(shù)
case "減"
結(jié)果 = 上一個數(shù) - 下一個數(shù)
case "乘"
結(jié)果 = 上一個數(shù) * 下一個數(shù)
case "除"
結(jié)果 = 上一個數(shù) / 下一個數(shù)
end select
輸入框.text = cstr(結(jié)果)
上一個數(shù) = 結(jié)果
end sub
.NET 的哈，我沒有 .NET 現(xiàn)在，不知道行不行
先乘除后加減，從右到左運算。
VB中運算符的計算優(yōu)先級順序如下:算術(shù)運算符和串聯(lián)運算符求冪(^)一元標(biāo)識和非(+、–)乘法和浮點除法(*、/)整數(shù)除法(\)取模(Mod)加法和減法(+、–)，字符串連接(+)字符串連接()算術(shù)移位()比較運算符。
擴展資料
vb.net?特性：
1、vb.net 完全集成到 Visual Studio 集成開發(fā)環(huán)境中，在這種集成開發(fā)環(huán)境與 VB 在若干方面有差異。主要體現(xiàn)在窗體的布局以及菜單等方面都有所不同。
2、vb.net 項目與 VB 不同。它使用基于文件夾的模型，所有項目均放置在項目文件夾層次結(jié)構(gòu)中。
3、vb.net 中使用ado.net來訪問數(shù)據(jù)庫，ado.net是.netFramework的一部分。在 vb.net 中實現(xiàn)數(shù)據(jù)訪問的方法主要有兩種。
其一是在程序設(shè)計階段，通過創(chuàng)建、配置數(shù)據(jù)適配器 DataAdapter 和生成數(shù)據(jù)集 DataSet；其二是在運行中，通過編程方式動態(tài)創(chuàng)建配置數(shù)據(jù)適配器和創(chuàng)建、生成數(shù)據(jù)集。
4、在 vb.net 中是使用asp.net技術(shù)來編寫 Web 頁面的。在asp.net中使用的也不是腳本語言，而是真正意義的編程語言。
憑借asp.net的 Web 應(yīng)用程序、XML Web Services 等基于 Web 的功能，使得 vb.net 開發(fā) Web 頁面與開發(fā) Windows 應(yīng)用程序很相似，Web 頁面代碼也顯得有條有理了。
5、vb.net 已經(jīng)成為完全的面向?qū)ο蟮木幊陶Z言，并且新增更多語言特性。
重慶分公司
重慶分公司
