在Visual Basic（VB）中编写上位机程序，通常涉及以下步骤：
建立VB编程环境
打开Visual Basic编辑器（如VB6.0）。
选择“标准EXE”来创建一个新的项目。
添加必要的控件
在“工程”菜单中选择“部件”，然后添加Microsoft Comm Control 6.0控件（如果使用的是VB6.0）。这个控件用于处理串口通信。
添加Timer控件，用于定时发送和接收数据。
可能还需要添加其他控件，如TextBox用于显示数据，CommandButton用于触发数据发送等。
配置串口通信参数
在控件的属性窗口中设置串口的波特率、数据位、停止位和校验位等参数。
编写代码实现通信功能
使用MSComm控件的`Output`方法发送数据。
在`OnComm`事件处理程序中检查`CommEvent`的值，以确定是否接收到数据，并使用`Input`方法接收数据。
可以使用定时器控件来定时发送数据，或者在接收到数据后触发某些操作。
测试程序
在上位机设备上发送数据，并在计算机上接收数据，验证程序是否正常工作。
```vb
Private Sub Form_Load（）
' 初始化串口
With MSComm1
.CommPort = 1 ' 设置串口号
.BaudRate = 9600 ' 设置波特率
.DataBits = 8 ' 设置数据位
.StopBits = 1 ' 设置停止位
.Parity = vbParityNone ' 设置校验位
.PortOpen = True ' 打开串口
End With
End Sub
Private Sub MSComm1_OnComm（）
If MSComm1.CommEvent = 2 Then ' 2表示接收到了数据
Dim receivedData As String
receivedData = MSComm1.Input ' 从接收缓冲区读取数据
MsgBox receivedData ' 在消息框中显示接收到的数据
End If
End Sub
' 发送数据
Private Sub SendData（）
MSComm1.Output "Hello, Serial Port!"
End Sub
```
在这个示例中，`MSComm1`是串口通信控件的名称，`Form_Load`事件在窗体加载时初始化串口，`MSComm1_OnComm`事件处理程序在接收到数据时显示一个消息框，`SendData`子程序用于发送数据。
请注意，这些步骤和代码示例适用于VB6.0，如果你使用的是更现代的VB版本（如VB.NET），则可能需要使用不同的控件和库来实现串口通信。