用VB设计一个收款计算程序，代码咋编写啊？

来源：百度知道 编辑：UC知道 时间：2024/06/21 11:27:47
用户输入商品的“单价”后按TAB键输入“数量”和“折扣”单击“计算”按钮或按回车键将显示“应付款”单击“清除”按钮或按ESC建清除文本框中所有数据

Private Sub Command1_Click()
TRESULT = T1.Text * T2.Text * (1 - T3.Text)
End Sub
Private Sub Command2_Click()
'T1.Text = ""
'T2.Text = ""
TRESULT = ""
T3.SetFocus
T3.SelStart = 0
T3.SelLength = Len(T3.Text) ‘将焦点定位在“折扣”一栏，选中“折扣“中的内容.
End Sub
Private Sub Command3_Click()
End
End Sub

“单价”——Text1
“数量”——Text2
“折扣”——Text3
“计算”——Command1
“清除”——Command2
代码如下。
==================================
Private Sub Command1_Click()
On Error GoTo e
MsgBox "应付款" & Text1.Text * Text2.Text * (1 - Text3.Text)
Exit Sub
e:
MsgBox "数据输入错误"
End Sub

Private Sub Command2_Click()
Call Form_Load
End Sub

Private Sub text3_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyReturn
Call Command1_Click
Case vbKeyEscape
Call Form_Lo