好的，我可以为你提供一个简单的VB（Visual Basic）小程序示例。这个程序将是一个简单的计算器，可以执行基本的加、减、乘、除运算。

这是一个Windows Forms应用程序的示例代码：

```VB

Imports System.Windows.Forms

Public Class CalculatorForm

Private result As Double = 0 ' 用于存储计算结果

Public Sub New()

InitializeComponent() ' 必须调用此方法来初始化窗体组件

End Sub

Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click

result = CDbl(txtInput.Text) + CDbl(result) ' 执行加法运算并将结果存储在result变量中

txtOutput.Text = result.ToString() ' 显示结果到输出文本框

txtInput.Clear() ' 清空输入文本框以便进行下一次计算

End Sub

Private Sub btnSubtract_Click(sender As Object, e As EventArgs) Handles btnSubtract.Click

result = CDbl(txtInput.Text) - result ' 执行减法运算并将结果存储在result变量中

txtOutput.Text = result.ToString() ' 显示结果到输出文本框

txtInput.Clear() ' 清空输入文本框以便进行下一次计算

End Sub

Private Sub btnMultiply_Click(sender As Object, e As EventArgs) Handles btnMultiply.Click

result = CDbl(txtInput.Text) * result ' 执行乘法运算并将结果存储在result变量中

txtOutput.Text = result.ToString() ' 显示结果到输出文本框

txtInput.Clear() ' 清空输入文本框以便进行下一次计算

End Sub

Private Sub btnDivide_Click(sender As Object, e As EventArgs) Handles btnDivide.Click

If CDbl(txtInput.Text) <> 0 Then ' 避免除以零的错误

result = CDbl(txtInput.Text) / result ' 执行除法运算并将结果存储在result变量中

txtOutput.Text = result.ToString() ' 显示结果到输出文本框

Else

MessageBox.Show("错误：除数不能为零") ' 如果除数为零，显示错误消息框

End If

txtInput.Clear() ' 清空输入文本框以便进行下一次计算

End Sub

End Class

```

这个程序的主要部分包括一个窗体（CalculatorForm），窗体上有四个按钮（分别用于加、减、乘、除），一个输入文本框（txtInput），和一个输出文本框（txtOutput）。点击按钮时，会触发相应的事件处理程序，执行相应的运算并将结果显示在输出文本框中。注意，这个程序假设用户输入的都是有效的数字，没有进行错误处理。在实际开发中，你可能需要添加额外的错误处理来确保程序的健壮性。