跪求！用VB编写pos机 急需源代码

我这里的累计的意思是所有小计之和。春嫌命令按钮的快捷键直接唤森誉在属性里设置即可，比如添加按钮的caption：添加(&T)，即可

Dim n As Single, sum As Single, k As Integer

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

k = k + 1

sum = sum + n

Text3.Text = sum

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub

Private Sub Command2_Click()

msg = MsgBox("你买了" &k &"种商品" + vbCrLf + "应付" &sum &"元，谢谢！和段", vbOKOnly + vbInformation + vbDefaultButton1, "欢迎光临")

Picture1.Cls

Picture1.AutoRedraw = True

Picture1.Print Tab(1)"单价"Tab(9)"数量"Tab(17)"小计"

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

sum = 0

k = 0

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

Picture1.AutoRedraw = True

Picture1.Print Tab(1)"单价"Tab(9)"数量"Tab(17)"小计"

End Sub

建一个数据表：

商品编号 商品名称 单价

001 手机 600

002 水杯 40

003 铅笔 10

用vc做一个对话框：

（1） 窗口标题：小超市POS机；

（2） 在窗体缺册汪上放置一个框架，初始时标题显示为“姿薯待机状态”，框架内放置4个文本框，伏仔分别用于输入或显示 “商品编码”、“商品名称”、“商品价格”、“商品数量”；

（3） 在窗体左侧放置一个适当的控件，用于显示选购商品的信息，初始时为空；

（4） 其他控件根据需要，可自行添加、设置。

就这么简单，有什么问题呢？

---