小型售货机POSVB代码

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