062.取得相近数据

'###############################################################

'函数作用：取得相近数据

'###############################################################

Sub tet()

    Dim temp As String

    Dim MyArray(11)

    For I = 0 To 11

        MyArray(I) = I

    Next

    hh = "9"

    temp = MyArray(0)

    For I = 1 To 11

        If Abs(hh ‐ MyArray(I)) < Abs(hh ‐ temp) Then temp = MyArray(I)

    Next

    MsgBox temp

End Sub