在VB（Visual Basic）中编写一个简单的POS（Point of Sale）程序，可以按照以下步骤进行：
设计界面
使用Visual Basic的窗体设计器创建一个窗体，包含以下控件：
3个TextBox（用于输入单价、数量和累计金额）
5个Label（用于显示标签信息）
1个PictureBox（用于显示图形框）
5个CommandButton（用于执行不同操作，如添加商品、显示清单、确定、退出等）
编写代码
定义变量：
```vb
Dim n As Single ' 单价
Dim sum As Single ' 数量
Dim k As Integer ' 商品种类数
```
添加商品：
```vb
Private Sub Command1_Click（）
Picture1.AutoRedraw = True
n = Val（Text1.Text） * Val（Text2.Text）
Picture1.Print Tab（1）； Val（Text1.Text）； Tab（9）； Val（Text2.Text）； Tab（17）； n
sum = sum + n
Text3.Text = sum
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
```
显示清单：
```vb
Private Sub Command2_Click（）
Dim msg As String
msg = MsgBox（"你购买了" & k & "种商品" & vbCrLf & "共需付" & sum & "元!", vbOKOnly + vbInformation, "欢迎光临"）
End Sub
```
处理其他按钮事件（如退出程序）：
```vb
Private Sub Command3_Click（）
End
End Sub
Private Sub Command4_Click（）
' 显示清单页面
End Sub
Private Sub Command5_Click（）
' 确定按钮，回到POS机页面
End Sub
```
实现快捷键
在添加按钮的属性中，将Caption设置为"添加（&T）"，以实现快捷键功能。
运行程序
编译并运行程序，测试各个按钮的功能是否正常。
示例代码
```vb
Public Class Form1
Dim n As Single
Dim sum As Single
Dim k As Integer
Private Sub Form1_Load（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles MyBase.Load
' 初始化界面
Picture1.AutoRedraw = True
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
k = 0
End Sub
Private Sub Command1_Click（）
Picture1.AutoRedraw = True
n = Val（Text1.Text） * Val（Text2.Text）
Picture1.Print Tab（1）； Val（Text1.Text）； Tab（9）； Val（Text2.Text）； Tab（17）； n
sum = sum + n
Text3.Text = sum
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
Private Sub Command2_Click（）
Dim msg As String
msg = MsgBox（"你购买了" & k & "种商品" & vbCrLf & "共需付" & sum & "元!", vbOKOnly + vbInformation, "欢迎光临"）
End Sub
Private Sub Command3_Click（）
End
End Sub
Private Sub Command4_Click（）
' 显示清单页面
End Sub
Private Sub Command5_Click（）
' 确定按钮，回到POS机页面
End Sub
End Class
```
建议
确保所有控件的属性（如Name、Caption等）都已正确设置。
在实际应用中，可能需要添加更多的错误处理和用户输入验证。
可以考虑使用数据库来存储和管理商品清单，以提高程序的扩展性和数据安全性。