slider控件问题

Question

现有一Slider控件和一文本框,通过Slider来改变text的值:文本框的起始值为20:
20---150步距为1,即21,22,23,24......149,150
150---500步距为2,即152,154,156......498,500
500----1400步距为3
1400---4000步距为4
4000---20000步距为10
代码怎么写啊,算法是什么

Answer 1

Private Sub Form_Load()
Slider1.Max = 150
Slider1.LargeChange = 1
Slider1.Min = 20
Text1.Text = Slider1.Min
End SubPrivate Sub Slider1_Change()
Text1.Text = Slider1.Value
End SubPrivate Sub Slider1_Click()
Slider1.Value = Slider1.Value + 1
Text1.Text = Slider1.Value
End Sub