UC知道跪求帮我解决一个VB问题！！（关于标签控件，文本控件）
来源：百度知道 编辑：UC知道 时间：2024/06/22 19:37:41
这道题如下：
设计一个窗口，在窗体上用标签控件显示商品的名称和单价，用文本框控件接受输入的购买数量，当单击“购买”按钮时，计算购买商品的总价格，并在弹出的消息框中显示出购买明细和总价格。假定有以下三种商品：
铅笔：每只1.50元，笔记本：每本5.20元，计算器：每个80.00元
设计一个窗口，在窗体上用标签控件显示商品的名称和单价，用文本框控件接受输入的购买数量，当单击“购买”按钮时，计算购买商品的总价格，并在弹出的消息框中显示出购买明细和总价格。假定有以下三种商品：
铅笔：每只1.50元，笔记本：每本5.20元，计算器：每个80.00元
熬夜做好了，还做了测试，没问题！
请注意：控件要和我给的图保持一致，不然会混乱的~
Private Sub Command1_Click()
If Val(Text1) < 0 And Val(Text1) < 0 And Val(Text1) < 0 Then
MsgBox "不允许填写负数"
Exit Sub
End If
If Val(Text1) = 0 And Val(Text2) = 0 And Val(Text3) = 0 Then
a = "你没有购买任何东西"
MsgBox "你没有购买任何东西"
Exit Sub
End If
a = "你购买了"
If Val(Text1) <> 0 Then
a = a & Text1 & "支铅笔 "
End If
If Val(Text2) <> 0 Then
a = a & Text2 & "个笔记本 "
End If
If Val(Text3) <> 0 Then
a = a &&nbs