以下是一個用VB編寫的簡單加減法運算的示例代碼:
Public Class Form1
Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
Dim num1, num2, result As Integer
num1 = CInt(txtNum1.Text)
num2 = CInt(txtNum2.Text)
If rbAdd.Checked Then
result = num1 + num2
ElseIf rbSubtract.Checked Then
result = num1 - num2
End If
lblResult.Text = "Result: " & result.ToString()
End Sub
End Class
在窗體上放置兩個文本框(分別命名為txtNum1和txtNum2)、兩個單選按鈕(分別命名為rbAdd和rbSubtract)、一個按鈕(命名為btnCalculate)和一個標簽(命名為lblResult),然后將上述代碼復制粘貼到窗體的代碼文件中即可。
當用戶輸入兩個數字并選擇加號或減號后,點擊計算按鈕,程序將會計算并顯示結果在標簽中。