以下是一个简单的 VB.NET 程序设计案例，用于实现一个计算器应用程序：
打开 Visual Studio，创建一个新的 Windows Forms 应用程序项目。
在 Form1 上添加以下控件：
两个 Label 控件，分别命名为 lblNum1 和 lblNum2，用于显示输入的两个数字。
两个 TextBox 控件，分别命名为 txtNum1 和 txtNum2，用于输入两个数字。
四个 Button 控件，分别命名为 btnAdd、btnSubtract、btnMultiply 和 btnDivide，用于执行加、减、乘、除运算。
一个 Label 控件，命名为 lblResult，用于显示运算结果。
为 btnAdd、btnSubtract、btnMultiply 和 btnDivide 按钮分别添加 Click 事件处理程序。
在每个 Click 事件处理程序中，获取 txtNum1 和 txtNum2 中输入的两个数字，并执行相应的运算操作。将结果显示在 lblResult 中。
以下是一个示例代码：
vb
Public Class Form1 
    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.Caption = 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.Caption = result.ToString() 
    End Sub 
 
    Private Sub btnMultiply_Click(sender As Object, e As EventArgs) Handles btnMultiply.Click 
简单的vb程序代码        Dim num1 As Double = CDbl(txtNum1.Text) 
        Dim num2 As Double = CDbl(txtNum2.Text) 
        Dim result As Double = num1 * num2 
        lblResult.Caption = 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 
            Dim result As Double = num1 / num2 
            lblResult.Caption = result.ToString() 
        Else 
            MessageBox.Show("除数不能为0") 
        End If 
    End Sub 
End Class
这个简单的计算器应用程序可以让用户输入两个数字，并选择执行加、减、乘、除运算操作。程序会将结果显示在 lblResult 中。