Question

在文本框中输入3种商品的单价，购买数量，计算输出所用的总余额。各位大侠帮我编下这个VB程序。

Answer 1

建6个text.text，123为商品数量，456为商品单价
再加一个按钮控件
Private Sub Command1_Click()
Dim s1, s2, s3 '定义数量
Dim d1, d2, d3 '定义单价,默认单位“元”
Dim sum '定义总支出
s1 = Val(Text1.Text)
s2 = Val(Text2.Text)
s3 = Val(Text3.Text)
d1 = Val(Text4.Text)
d2 = Val(Text5.Text)
d3 = Val(Text6.Text)
sum = s1 * d1 + s2 * d2 + s3 * d3
MsgBox "你共需支出" & sum & "元"
End Sub

Answer 2

Private Sub Command1_Click()
Dim num As long
Dim p1 As long
Dim p2 As Long
Dim p3 As Long
Dim Sum As Long
p1=val(text1.text)
p2=val(text1.text)
p3=val(text2.text)
num=val(text4.text)
Sum=num*(p1+p2+p3)
print Sum
End Sub