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

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

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

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

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

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

6、断行，输出。

7、按F5运行测试即可。

VB中添加棚神逗一瞎运个按钮点击就可以了\x0d\x0aPrivate Sub Command1_Click()\x0d\x0aa = InputBox("请输入分数：")\x0d\x0aIf IsNumeric(a) And a = 0 Then\x0d\x0aSelect Case a\x0d\x0aCase 0 To 59\x0d\x0add = "E"\x0d\x0aCase 60 To 69\x0d\x0a dd = "D"\x0d\x0aCase 70 To 79\x0d\x0a dd = "C"\x0d\x0aCase 80 To 89\x0d\x0a dd = "B"\x0d\x0aCase 90 To 100\x0d\x0a dd = "A"\x0d\x0aCase Else\x0d\x0add = "成绩错误！"\x0d\x0aEnd Select\x0d\x0aMsgBox dd\x0d\x0aElse\x0d\x0aMsgBox "你输入的成绩非法链卖"\x0d\x0aEnd If\x0d\x0aEnd Sub

---