判断数组

yjs14 · 发表于 2013-2-16 21:34:38

数组内存有 1 2 3 4 ... 100 的数字

如何判断这连串的数出现"断点"了?比如:

1 2 3 4 5 7 8 9 10

haijie1223 · 发表于 2013-2-17 08:07:17

用for循环~

Dim $str[9] = [1, 2, 3, 4, 5, 7, 8, 9, 10]
For $i = 1 To 9
        If $str[$i - 1] <> $i Then
                MsgBox(0, "", "数字不连续，在第" & $i - 1 & "、" & $i & "个元素处不连续。")
                ExitLoop
        EndIf
Next

298311657 · 发表于 2013-2-16 23:13:37

这个没什么好想的吧？就一个for遍历数组完事

MicroBlue · 发表于 2013-2-17 08:27:53

用最后一个数减去第一个数再加一，如果和数组的元素个数不一样，就代表不连续。

whitehead · 发表于 2013-2-17 08:28:49

简单的for循环

MicroBlue · 发表于 2013-2-17 08:29:06

10-1 + 1 = 9
Count(ary) = 10

9 <> 10 。不连续

		自动登录	找回密码
密码			加入

[效率算法] 判断数组

相关帖子