主题：如何找出中间空缺值

Dim str As String = "02,04,08,01,07,05"
Dim ary() As String = str.Split(",")

array.sort(ary)
For i As Integer = 1 To ary(ary.length-1)
    If array.indexof(ary, format(i, "00")) < 0 Then
        msgbox(i)
    end if
Next