VB 2008の連続番号

Question

連続した番号を連続して書いていない場合は、VB 2008で連続した番号のコードを書きたいと思います。例えば

：私は整数のリスト= 1、2、3、4、10、11、15

を持っている場合、私は言語のこの種は4を通じて

1を渡すことにしたい、10、 11、および15

私を手伝ってください！

おかげ

Answer 1

基本的にあなたがそれらを介してループする必要があるし、以前の値に応じて、出力のための一連のルールを適用します。また、出力例から、配列の終わりに達したかどうかを調べるためにテストする必要があります。私が考える

Public Shared Function TestMethod() As String 
     Dim _integers() As Integer = {1, 2, 3, 4, 10, 11, 15} 
     Dim _temp As Integer = _integers(0) 
     Dim _result As String = _temp.ToString() 
     For i As Integer = 1 To _integers.Length - 1 
      If (i + 1) = _integers.Length Then 
       _result += " and " + _integers(i).ToString() 
      ElseIf (_integers(i) - _temp) = 1 Then 
       _result += ", " + _integers(i).ToString() 
      Else 
       _result += " through " + _integers(i).ToString() 
      End If 
      _temp = _integers(i) 
     Next 
     Return _result 
End Function