Private Sub Command1_Click()
Dim c As New Collection
c.Add "194.00", "-20"
c.Add "192.00", "20"
c.Add "191.00", "100"
c.Add "189.00", "150"
c.Add "186.00", "200"
c.Add "183.00", "250"
Print c.Item("20")
End Sub

集合对象用得好.

以前有写过一个三次样条曲线插值的，可惜目前还找不到，这个东西把数学公式找到，照着编就行，原理别看他