vb求代码

答案:1 悬赏:60 手机版

解决时间 2021-02-03 22:33

提问者网友：难遇难求
2021-02-03 00:13

vb求代码

最佳答案

五星知识达人网友：污到你湿
2021-02-03 00:37

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息