按键精灵如何找相近的数值 我想找出相近的数值： a=33 b=55 c=66 d=50 怎样找出和d接近的是a,b还是c

Dim mm, mmm, i, ai,vi
MM = 39
MMM = 1000
i = 0
ai =7
vi =-1
Dim M(8)
M(0) = 10
M(1) = 20
M(2) = 25
M(3) = 30
M(4) = 37
M(5) = 40
M(6) = 45
M(7) = 50
Do Until 1=b-a
a=mm-m(i)