VB中给三个数排序的具体程序

1、启动VB6.0，新建一个标准exe工程。

2、在窗体上绘制一个命令按钮，名称为Command1。

3、双击命令按钮进入代码窗口。

4、编写命令按钮的单击事件。定义一个一维数组A有10个元素（1-10），随机产生一批两位数的随机数，有序地装入A（i）中，输出A(i)，排序完成时方便观察比较。

5、编写程序中核心的代码部分。

6、断行，输出。

7、按F5运行测试即可。

这个问题用编程来解答很方便，直接用穷举法，对每一个数进行验证。对于程序本身来说，这个需要的时间可能只需要几毫秒

For i = 1 To 10000‘穷举从1-10000之间所有的数字

If i Mod 7 = 3 Then'假如i除以7,余数为3，则往下执行，否则验证下一个数字

If i Mod 10 = 4 Then '假如i除以10,余数为4，则往下执行，否则验证下一个数字

If i Mod 13 = 5 Then '假如i除以13,余数为5，则此数符合要求

Print i’打印该数字

End If

End If

End If

Next

---