Question

vb中组合框的用法

想编一款小软件 就是你选中组合框里的内容 再输入数量 可以算出 这件物品共多少钱 该怎么弄？

Answer 1

代码如下，你需要自己定义好单价 Private Sub Command1_Click()
Select Case Combo1.Text
Case "烟"
Label1.Caption = 8 * Val(Text1.Text)
Case "酒"
Label1.Caption = 15 * Val(Text1.Text)
Case "茶"
Label1.Caption = 12 * Val(Text1.Text)
Case "糖"
Label1.Caption = 7 * Val(Text1.Text)
End Select
End SubPrivate Sub Form_Load()
Combo1.AddItem "烟"
Combo1.AddItem "酒"
Combo1.AddItem "茶"
Combo1.AddItem "糖"
Combo1.ListIndex = 0
End Sub