以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何找出中间空缺值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103255)
--  作者：10059
--  发布时间：2017/7/4 10:44:00
--  如何找出中间空缺值
例如，有下列编码 02,04,08,01,07,05........等等

老师，请问如何找出中间空缺的03,06呢？？
[此贴子已经被作者于2017/7/4 10:46:15编辑过]
--  作者：有点甜
--  发布时间：2017/7/4 10:53:00
--  

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

[此贴子已经被作者于2017/7/4 11:57:09编辑过]
--  作者：10059
--  发布时间：2017/7/4 11:15:00
--  
谢谢甜老师