好的，以下是一个简单的VB程序示例，可以作为一个基础的起点来开始编程。这个程序将弹出一个窗口，并在窗口中添加一个简单的标签和两个按钮，用户点击按钮后会触发相应的事件处理程序来输出文本消息到控制台中。请根据自己的需求进行修改和扩展。

首先，打开Visual Basic开发工具并创建一个新的Windows窗体应用程序项目。然后按照以下步骤编写代码：

1. 添加一个新的Label控件，命名为LabelText。该控件用于在屏幕上显示一些文本消息。您可以通过工具箱中的Label控件来添加它，并将其放置在窗体上。

2. 添加两个按钮控件，分别命名为ButtonDisplayMessage和ButtonClearMessage。这两个按钮将用于显示和清除Label控件中的文本消息。同样地，您可以通过工具箱中的Button控件来添加它们并放置在窗体上。同时需要添加相应的Click事件处理程序来响应按钮点击事件。

以下是代码示例：

Form的代码：

```vbnet

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

' 在窗体加载时初始化标签文本为空字符串

LabelText.Text = ""

End Sub

Private Sub ButtonDisplayMessage_Click(sender As Object, e As EventArgs) Handles ButtonDisplayMessage.Click

' 显示按钮点击事件处理程序中的文本消息到标签控件中

LabelText.Text = "Hello World!"

End Sub

Private Sub ButtonClearMessage_Click(sender As Object, e As EventArgs) Handles ButtonClearMessage.Click

' 清空标签控件中的文本消息并清空控制台输出窗口中的文本消息记录

LabelText.Text = ""

Console.Clear() ' 清空控制台输出窗口中的文本消息记录，只在控制台应用程序中有效

End Sub

End Class

```

运行此程序后，您将看到一个带有标签和两个按钮的窗口。点击显示消息按钮将向标签控件中输入“Hello World!”字符串。点击清除消息按钮将清除标签中的文本内容。另外请注意，该代码片段中的Console.Clear()方法仅在控制台应用程序中有效，如果您正在使用Windows窗体应用程序，则无法清除控制台输出窗口中的文本记录。

vb做一个简单小程序

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

这是一个简单的Windows Forms应用程序，你可以使用Visual Basic的IDE来创建它。以下是步骤和代码：

步骤：

1. 打开Visual Basic并创建一个新的Windows Forms应用程序。

2. 在表单上放置四个文本框（用于输入数字和操作符），一个用于结果显示的文本框，以及四个按钮（分别用于加、减、乘、除运算）。

3. 为每个按钮添加点击事件处理程序，用于执行相应的运算。

代码示例：

```vb

Public Class CalculatorForm

Private result As Double

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

Try

Dim num1 As Double = CDbl(txtNum1.Text)

Dim num2 As Double = CDbl(txtNum2.Text)

result = num1 + num2

txtResult.Text = result.ToString()

Catch ex As Exception

MessageBox.Show("请输入有效的数字!")

End Try

End Sub

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

Try

Dim num1 As Double = CDbl(txtNum1.Text)

Dim num2 As Double = CDbl(txtNum2.Text)

result = num1 - num2

txtResult.Text = result.ToString()

Catch ex As Exception

MessageBox.Show("请输入有效的数字!")

End Try

End Sub

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

Try

Dim num1 As Double = CDbl(txtNum1.Text)

Dim num2 As Double = CDbl(txtNum2.Text)

result = num1 * num2

txtResult.Text = result.ToString()

Catch ex As Exception

MessageBox.Show("请输入有效的数字!")

End Try

End Sub

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

Try

Dim num1 As Double = CDbl(txtNum1.Text)

Dim num2 As Double = CDbl(txtNum2.Text)

If num2 <> 0 Then ' 避免除以零的错误

result = num1 / num2

txtResult.Text = result.ToString()

Else

MessageBox.Show("除数不能为零!")

End If

Catch ex As Exception

MessageBox.Show("请输入有效的数字!")

End Try

End Sub

End Class

```

请注意，这只是一个基本的示例，你可以根据需要添加更多的功能和错误处理。此外，你还需要在Visual Basic的IDE中设计用户界面，并添加适当的控件和布局。希望这能帮助你开始创建一个简单的VB小程序！