条件:

1）食品清单中各食品的单价依次是25、10、10、20、25元；

2）在食品清单中选择一种食品，右边品名和单价文本框就自动显示相应的的食品名称和单价；

3）输入数量后，再单击计算按钮，就计算和显示金额，要求保留两位小数。

看看有什么不满么Q我

25、10、10、20、25元都是整数所以金额我没保留小数
你可以改一下把text1(2).text=format(val(text1(1).text)*val(text2.text),"0.00")哈哈

数量为下拉式选择省事。金额设成小数点后两位，如果做成数据库就更好了。客户点了什么，直接点击。然后把每个商品的都加到库里，生成报表，直接可以打印出来就像超市里一样。

Private Sub Text2_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
       Case 8
     
       Case 47 To 57
        
            
       Case Else
            KeyAscii = 0
End Select
End Sub

请问这段代码是什么意思?为什么你要写出来呢?

使数量里 只能输入数字也就是Text2.text里只能为数字
后来改成combo1.text了