[求助]请教combo和slider小问题。。

loozhi · 发表于 2004-4-2 11:45:00

只是请教一些小问题，见笑。。
Private Sub form_load()
   ComboSubj2.AddItem "1AB"
   ComboSubj2.AddItem "2CD"
   ComboSubj2.AddItem "3EF"
   ComboSubj2.AddItem "4GH"
End Sub
Private Sub ComboSubj2_Click()
   Select Case ComboSubj2.Text
   Case "1AB"
   Label1 = 1
   Label2 = 10
   Slider1.Min = 1
   Slider1.Max = 10
   Slider1.SelStart = 1
   Case "2CD"
   Label1 = 11
   Label2 = 20
   Slider1.Min = 11
   Slider1.Max = 20
   Slider1.SelStart = 11
   Case "3EF"
   Label1 = 21
   Label2 = 30
   Slider1.Min = 21
   Slider1.Max = 30
   Slider1.SelStart = 21
   Case "4GH"
   Label1 = 31
   Label2 = 40
   Slider1.Min = 31
   Slider1.Max = 40
   Slider1.SelStart = 31
   End Select
End Sub
Private Sub Slider1_Change()
   Text7.Text = Str$(Slider1.Value)
End Sub
这样的程序是哪里错了？我才刚学，所以只能问点简单小白的问题了
可以帮帮我吗？？