问下VB中判断是否不相同的循环代码
就是让一组控件数组的文本框（Num(0)-Num(8))里得数字
判断是否不一致的代码
问下VB中判断是否不相同的循环代码
答案:3 悬赏:20 手机版
解决时间 2021-04-08 12:50
- 提问者网友：树红树绿
- 2021-04-07 23:26
最佳答案
- 五星知识达人网友：神也偏爱
- 2021-04-08 00:17
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 "数字不相同！"
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 "数字不相同！"
全部回答
- 1楼网友：胯下狙击手
- 2021-04-08 01:27
这个要用到气泡法。
可以在百度上搜索 vb 气泡法
有详细的实例可以实现你的双重循环判断两两不重复。
- 2楼网友：玩世
- 2021-04-08 00:26
这个要用到气泡法。
可以在百度上搜索 vb 气泡法
有详细的实例可以实现你的双重循环判断两两不重复。
再看看别人怎么说的。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯