VB.NET設(shè)計四則運(yùn)算（求大神幫看！怎么都找不出錯誤！）

C被賦值了，只不過被賦0，你看Form1_Load下的

創(chuàng)新互聯(lián)建站一直通過網(wǎng)站建設(shè)和網(wǎng)站營銷幫助企業(yè)獲得更多客戶資源。 以"深度挖掘，量身打造，注重實(shí)效"的一站式服務(wù)，以網(wǎng)站設(shè)計制作、網(wǎng)站建設(shè)、移動互聯(lián)產(chǎn)品、成都全網(wǎng)營銷推廣服務(wù)為核心業(yè)務(wù)。十年網(wǎng)站制作的經(jīng)驗，使用新網(wǎng)站建設(shè)技術(shù)，全新開發(fā)出的標(biāo)準(zhǔn)網(wǎng)站，不但價格便宜而且實(shí)用、靈活，特別適合中小公司網(wǎng)站制作。網(wǎng)站管理系統(tǒng)簡單易用，維護(hù)方便，您可以完全操作網(wǎng)站資料，是中小公司快速網(wǎng)站建設(shè)的選擇。

a和b， 如果textbox.text，轉(zhuǎn)換成數(shù)值永遠(yuǎn)都是0 你需要給textbox.text賦值 a和b在程序啟動時被賦值了， 而沒有在其它事件下賦值

vb.net 四則運(yùn)算代碼

Dim s1!, s2!, a$ '為小數(shù)點(diǎn)的疊加，s1,s2必須定義為單精度型

Dim flag As Boolean 'flag它是過程及的變量，在通用里必須聲明

'在數(shù)字按鈕控件單擊數(shù)組單擊事件中獲取操作數(shù)（沒有區(qū)分是哪一個操作數(shù)）

Private Sub Command1_Click(Index As Integer)

x = Text1.Text

If flag = True Or x = "0" Then '查看數(shù)字是否輸入完畢或者是否清零了

Text1.Text = CStr(Index) 'CStr將數(shù)值轉(zhuǎn)換字符

Else

Text1.Text = Text1.Text + CStr(Index) '"+"在這里這個是對字符串的操作的疊加，CStr(Index)是接的數(shù)據(jù)

End If

flag = False '時刻準(zhǔn)備數(shù)字的輸入

End Sub

'2.單擊運(yùn)算符，確定s1，并且要選定運(yùn)算

Private Sub Command2_Click(Index As Integer)

flag = True

s1 = Val(Text1.Text)

Select Case Index

Case 0

a = "+"

Case 1

a = "-"

Case 2

a = "*"

Case 3

a = "/"

End Select

End Sub

'3."="的單擊事件

Private Sub Command3_Click()

flag = True

s2 = Val(Text1.Text)

Select Case a

Case "+"

Text1.Text = s1 + s2

Case "-"

Text1.Text = s1 - s2

Case "*"

Text1.Text = s1 * s2

Case "/"

Text1.Text = s1 / s2 '分母不能為0

End Select

s1 = 0: s2 = 0: a = ""

End Sub

'4.清屏

Private Sub Command4_Click()

Text1.Text = "0"

s1 = 0

s2 = 0

a = ""

flag = False

End Sub

'5.刪除最后輸入的一個字符，換句話說，將本文框中的字符串取字符（從左往右取left(string,length)），將最后一個字符不取就先行

Private Sub Command5_Click()

If Text1.Text = "" Then

Else

Command5.Enabled = True

Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)

'len求字符串的長度，left(text1.len(text1)-1減1是取字符串從左往右減去一個字符串

End If

End Sub

'小數(shù)點(diǎn) 1）顯示出"."(注意前面輸入過的整數(shù)必須顯示) 2）小數(shù)后能繼續(xù)接受數(shù)字的輸入

Private Sub Command6_Click()

Text1 = Text1 "."

End Sub

'7加入正負(fù)號--單擊“+、-”,產(chǎn)生一個"-"，而且處于一種等待數(shù)字輸入的一種狀態(tài)

Private Sub Command7_Click()

Dim temp As Double

temp = -Val(Text1.Text)

Text1.Text = temp

If d = " " Then s1 = temp Else s2 = temp

End Sub

Private Sub Command8_Click() '退出

End

End Sub

Private Sub Form_Load() '窗體初始化

Text1.Text = 0

Text1.Locked = True

End Sub

vb.net 的問題

Me.Close是關(guān)閉窗體，如果程序只有一個主窗體，就直接關(guān)閉程序了

Me.Dispose用來釋放組件，通常不需要手工調(diào)用它

End是強(qiáng)制關(guān)閉程序，而不理程序現(xiàn)在的狀態(tài)，只有萬不得已的情況下，才使用這個命令。

正常都會調(diào)用Me.Close，然后Me.Close就會自動調(diào)用Me.Dispose。

所以Me.Close是資源釋放最徹底的方式。

而End是資源釋放最不徹底的方式。