這是一個簡單的VB程式碼範例，展示了如何使用Visual Basic語言來創建一個簡單的計算器應用程序。這個計算器將允許用戶進行基本的算術運算，包括加法、減法、乘法和除法。```vb
Public Class CalculatorForm Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
Dim num1 As Double = CDbl(txtNum1.Text)
Dim num2 As Double = CDbl(txtNum2.Text) Dim result As Double = num1 + num2 lblResult.Text = "Result: " & result.ToString()
End Sub Private Sub btnSubtract_Click(sender As Object, e As EventArgs) Handles btnSubtract.Click
Dim num1 As Double = CDbl(txtNum1.Text)
Dim num2 As Double = CDbl(txtNum2.Text) Dim result As Double = num1 - num2 lblResult.Text = "Result: " & result.ToString()
End Sub Private Sub btnMultiply_Click(sender As Object, e As EventArgs) Handles btnMultiply.Click
Dim num1 As Double = CDbl(txtNum1.Text)
Dim num2 As Double = CDbl(txtNum2.Text) Dim result As Double = num1 * num2 lblResult.Text = "Result: " & result.ToString()
End Sub Private Sub btnDivide_Click(sender As Object, e As EventArgs) Handles btnDivide.Click
Dim num1 As Double = CDbl(txtNum1.Text)
Dim num2 As Double = CDbl(txtNum2.Text) If num2 = 0 Then
lblResult.Text = "Error: Cannot divide by zero"
Else
Dim result As Double = num1 / num2
lblResult.Text = "Result: " & result.ToString()
End If
End SubEnd Class
```在這個範例中，我們創建了一個Windows Form應用程序，並添加了兩個文本框(txtNum1和txtNum2)用於輸入數字，四個按鈕(btnAdd、btnSubtract、btnMultiply和btnDivide)用於執行相應的算術操作，以及一個標籤(lblResult)用於顯示結果。當用戶點擊加法、減法、乘法或除法按鈕時，程序將讀取文本框中的數字，執行對應的算術運算，並將結果顯示在標籤中。如果用戶嘗試進行除以零的除法操作，程序將顯示錯誤消息。這個範例展示了如何使用VB語言創建一個簡單但功能強大的應用程序。
