100求解,不够再开帖！

[Qqwwee_Com]

给出一组数字，判断这组数字是否是被分割开的连续的4段？
比如：0,1,2,3 ,5,6,7,11,12,16,17,18 是4段连续数字 0-3 5-7 11-12 16-18

[TechnoFantasy]

做一个计数，从第一个值开始递增，如果下一个值等于递增后的值就继续往下。如果不等于则计数加1。最后如果计数是4的话就可以说是连续的。

[ccghghgj]

楼上，www.applevb.com是你的么，以前刚开始学习vb的时候经常去

===============================
http://qqwwee.com/csdn.rar
CSDN小助手

[TechnoFantasy]

Dim count

count = 1
for i = lbound(a) to ubound(a) - 1
if a(i) <> a(i+1) then
count = count +1
end if
next i

[TechnoFantasy]

to ccghghgj(CSDN论坛助手) :
是的~~~~~~

[ccghghgj]

久仰久仰！

===============================
http://qqwwee.com/csdn.rar
CSDN小助手

[ccghghgj]

Dim Strs() As Integer = New Integer() {1, 2, 3, 4, 6, 7, 9, 10, 11, 14, 15, 16, 18, 19, 20}

Dim intCur As Integer '当前数值
Dim IntPrew As Integer
Dim IntRang As Integer '一共找到多少段
Dim intS() As Integer = New Integer() {-1, -1, -1, -1, -1, -1, -1} '保存段的开始数字
Dim intE() As Integer = New Integer() {-1, -1, -1, -1, -1, -1, -1} '保存段的结束数字
For i As Integer = 0 To Strs.Length - 2
intCur = Strs(i)
IntPrew = Strs(i + 1)
If IntPrew - intCur = 1 Then
If intS(IntRang) = -1 Then
intS(IntRang) = intCur
End If
If i = Strs.Length - 2 Then
'如果到了倒数第二数字，最后一个数字就是结束了
intE(IntRang) = IntPrew
End If
Else
intE(IntRang) = intCur '设置当前段的结束
IntRang += 1 '连续的数字段计数器+1
End If
Next
MsgBox(IntRang + 1)

===============================
http://qqwwee.com/csdn.rar
CSDN小助手