導航:首頁 > 編程語言 > vbnet計算器代碼

vbnet計算器代碼

發布時間:2025-03-14 13:09:00

1. vb:簡易計算器(加減乘除)代碼

代碼如下:

Dim t, t1 As Integer

Dim x, y As Double

Public Sub com()

x = Val(l1.Caption)

Select Case t1

Case Is = 1: y = y + x

Case Is = 2: y = y - x

Case Is = 3: y = y * x

Case Is = 4: y = y / x

End Select

t1 = 0

t = 0

l1.Caption = "0"

End Sub

Private Sub Form_Load()

x = 0

y = 0

t = 0

t1 = 1

End Sub

Private Sub c0_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "0"

Else

l1.Caption = l1.Caption + "0"

End If

End Sub

Private Sub C1_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "1"

Else

l1.Caption = l1.Caption + "1"

End If

End Sub

Private Sub c10_Click(Index As Integer)

If t = 0 Then

l1.Caption = l1.Caption + "."

t = 1

End If

End Sub

Private Sub C2_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "2"

Else

l1.Caption = l1.Caption + "2"

End If

End Sub

Private Sub C3_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "3"

Else

l1.Caption = l1.Caption + "3"

End If

End Sub

Private Sub C4_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "4"

Else

l1.Caption = l1.Caption + "4"

End If

End Sub

Private Sub C5_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "5"

Else

l1.Caption = l1.Caption + "5"

End If

End Sub

Private Sub C6_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "6"

Else

l1.Caption = l1.Caption + "6"

End If

End Sub

Private Sub C7_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "7"

Else

l1.Caption = l1.Caption + "7"

End If

End Sub

Private Sub C8_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "8"

Else

l1.Caption = l1.Caption + "8"

End If

End Sub

Private Sub C9_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "9"

Else

l1.Caption = l1.Caption + "9"

End If

End Sub

Private Sub z1_Click(Index As Integer)

com

t1 = 1

End Sub

Private Sub z2_Click(Index As Integer)

com

t1 = 2

End Sub

Private Sub z3_Click(Index As Integer)

com

t1 = 3

End Sub

Private Sub z4_Click(Index As Integer)

com

t1 = 4

End Sub

Private Sub z5_Click(Index As Integer)

tmp = Mid(l1.Caption, Len(l1.Caption), 1)

If tmp = "." Then

t = 0

End If

If Len(l1.Caption) = 1 Then

l1.Caption = "0"

Else

l1.Caption = Left(l1.Caption, Len(l1.Caption) - 1)

End If

End Sub

Private Sub z6_Click(Index As Integer)

l1.Caption = "0"

Form_Load

End Sub

Private Sub z7_Click(Index As Integer)

If (l1.Caption <> "0") Then

l1.Caption = "-" + l1.Caption

End If

End Sub

Private Sub z8_Click(Index As Integer)

com

l1.Caption = Str(y)

End Sub

(1)vbnet計算器代碼擴展閱讀

語言缺點

Visual Basic 語言具有不支持繼承、無原生支持多線程、異常處理不完善等三項明顯缺點,使其有所局限性(此些缺點皆已在 vb .net 獲得改進)。

不支持繼承

VB 5.0 和 VB 6.0 都是基於對象的編程語言,但是不包含繼承特性。VB 中提供了特殊的類的功能,但是還是不能滿足程序員的需求。

無原生支持多線程

Visual Basic 對於多線程無原生支持,只能通過Windows API的調用實現,且極其的不穩定。因為在API創建的線程中,並沒有自動初始化運行時庫,導致部分的函數無法使用。一般的,在VB6等早期的VB開發環境下,使用API創建線程的目的是完成容易使程序假死的大量數據或者邏輯的計算。

異常處理不完善

Visual Basic 中內置異常處理,即使未寫異常處理代碼,一旦用戶出錯也會彈出一個明確寫出出錯原因對話框,接著程序終止。

Visual Basic 中可以使用 Err.Raise拋出異常。對系統及用戶拋出的異常的處理常用兩種模式:一是使用 On Error Resume Next 處理錯誤;另一種是使用 On Error Goto 將運行引入錯誤處理代碼。但相對 C++ 等語言而言,這樣的異常處理破壞了代碼的結構。

閱讀全文

與vbnet計算器代碼相關的資料

熱點內容
智能控制webui界面程序 瀏覽:723
臨汾哪裡有學計算機編程 瀏覽:130
qq跳過申訴修改密碼 瀏覽:462
給文件夾加密win10 瀏覽:710
哪個app可以分辨航母 瀏覽:537
哪個app是英英詞典 瀏覽:23
javavoid參數 瀏覽:829
如何讓編程具有記憶功能 瀏覽:435
javamail發送帶附件的郵件 瀏覽:173
微信分享文件到其他軟體 瀏覽:682
微信對話文件夾在哪 瀏覽:287
qq頭像歐美范街頭男生 瀏覽:321
毛孔app 瀏覽:880
照片級渲染教程 瀏覽:304
目錄中的文件夾有什麼用 瀏覽:177
車載u盤文件掃描 瀏覽:410
稻殼文檔怎樣改文件名 瀏覽:620
cad怎麼把文件存成模板 瀏覽:250
編程設計用什麼筆記本流暢 瀏覽:584
電腦突然打開文件很慢 瀏覽:501

友情鏈接