Dim s1() As Integer = {0,97,101,105,110,115,120,125,130,135,140,145,150,155,160,165,170,175,180,185,190,195,200,205,210,215,220,225,230,241,256,271,286,301,316,331,351,371,385,401}
Dim s2() As Double = {1.07,1.03,1,0.97,0.93,0.9,0.87,0.85,0.82,0.8,0.78,0.76,0.74,0.72,0.71,0.69,0.68,0.66,0.65,0.64,0.63,0.62,0.61,0.6,0.59,0.58,0.57,0.56,0.55,0.53,0.51,0.5,0.48,0.47,0.46,0.44,0.43,0.42,0.41,0.4}
Dim n As Integer = 188 '这里就是要确定范围内的数值
For i As Integer = 1 To s1.length
If s1(i-1) < n And s1(i) >= n
Output.Show(s2(i))
Exit For
End If
Next