vb求代码

vb求代码

Private Sub Combo1_Click()
  Select Case Combo1.Text
    Case "电视机"
      Text1.Text = 5000
    Case "洗衣机"
      Text1.Text = 3000
    Case "空调"
      Text1.Text = 8000
    Case "冰箱"
      Text1.Text = 4000
  End Select
  Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Form_Load()
  Combo1.AddItem "电视机"
  Combo1.AddItem "洗衣机"
  Combo1.AddItem "空调"
  Combo1.AddItem "冰箱"
  Text1.Enabled = False
  Text1.Text = 0
  Text2.Enabled = False
  Text2.Text = 0
  Text3.Enabled = False
  Text3.Text = 0
  HScroll1.Min = 0
  HScroll1.Max = 1000
End Sub

Private Sub HScroll1_Change()
  Text2.Text = HScroll1.Value
  Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub HScroll1_Scroll()
  Text2.Text = HScroll1.Value
  Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub