VB6.0中select语句使用问题

Question

在3500~31000之间分成3500~5000,5000~7000,7000~9000,9000~11000,11000~13000,13000~15000,15000~17000,17000~19000,19000~31000这几个区间，我现在想用三个文本框来实现当text1输入一个数时，在text2和text3中同时显示两个数，如我输入5000，在text2和text3中分别显示12.9和11.3,并判断text1中输入的是数字，否则提示从新输入，我今天弄了好长时间都没有弄出来，部有点小错误！请帮忙解决一下

Answer 1

Private Sub Text1_Change()
Select Case Val(Text1.Text)
Case 3500 To 5000
Text2.Text = 12.6
Text3.Text = 11.3
Case 5001 To 7000
Text2.Text = 16.3
Text3.Text = 14.7
Case 7001 To 9000
Text2.Text = 18.8
Text3.Text = 16.9
Case 9001 To 11000
Text2.Text = 21.5
Text3.Text = 19.4
Case 11001 To 13000
Text2.Text = 23.8
Text3.Text = 21.4
Case 13001 To 15000
Text2.Text = 25.7
Text3.Text = 23.1
Case 15001 To 17000
Text2.Text = 27.4
Text3.Text = 24.7
Case 17001 To 19000
Text2.Text = 28.9
Text3.Text = 26
Case 19001 To 21000
Text2.Text = 30.2
Text3.Text = 27.2
Case 21001 To 23000
Text2.Text = 31.4
Text3.Text = 28.3
Case 23001 To 25000
Text2.Text = 32.5
Text3.Text = 29.3
Case 25001 To 27000
Text2.Text = 33.5
Text3.Text = 30.2
Case 27001 To 29000
Text2.Text = 34.5
Text3.Text = 31.1
Case 29001 To 31000
Text2.Text = 35.5
Text3.Text = 32
Case Is > 31000
MsgBox "您输入的总质量必须大于3500Kg和小于31000Kg!", 48, "系统提示"
Text1.Text = ""
Text2.Text = 0
Text3.Text = 0
End Select

End Sub