vb基础问题9

发布网友发布时间：2022-05-05 19:56

共1个回答

热心网友时间：2022-06-28 00:32

Private Sub 计算_Click()
a = Val(text1.Text)
b = Val(text2.Text)
c = Val(text3.Text)
text4.Text = a * b * c
End Sub

Private Sub 清除_Click()
text1.Text = ""
text2.Text = ""
text3.Text = ""
text4.Text = ""
End Sub

Private Sub 退出_Click()
End
End Sub

注意控件名称。

单价的文本框名称为text1.text

数量的文本框名称为text2.text

折扣的文本框名称为text3.text

应付款的文本框名称为text4.text

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com