问下VB中判断是否不相同的循环代码

问下VB中判断是否不相同的循环代码
就是让一组控件数组的文本框（Num(0)-Num(8))里得数字
判断是否不一致的代码

Dim isDiff As Boolean '这个变量用于保存数字是否不一致
Dim I As Long
For I=1 To Num.Count-1 '文本框的Name是Num吧？
If Num(i).Text <> Num(i-1).Text Then
isDiff=True
Exit For '已经出现不同了，所以后面的不用检查了，退出循环
End if
Next
If isDiff=True Then Msgbox "数字不相同！"

这个要用到气泡法。 可以在百度上搜索 vb 气泡法 有详细的实例可以实现你的双重循环判断两两不重复。

这个要用到气泡法。 可以在百度上搜索 vb 气泡法 有详细的实例可以实现你的双重循环判断两两不重复。 再看看别人怎么说的。