谁会用VB编程，帮忙完成一个设计

显示全部楼层 · 2008-5-28 12:25:02

课程设计题目：《排序》 *
学习应用程序设计的一般设计方法，具备初步的独立设计能力,熟悉动态数组用法,查阅资料解决问题；
具体要求：
1、随即输入任意个数据,输入回车键结束输入。
2、使用动态数组接受这些数据
3、对输入的数组进行排序,以顺序输出。
4、排序过程使用函数实现,能实现对任意个数据排序。
5.随机插入一个数据,能够顺序插入其中,必须使用二分查找插入

千问 · 2008-5-28 12:25:02

Dim a() As Integer: Dim n As IntegerPrivate Function PX(b() As Integer, c As Integer)'按照从大到小排序Dim tempFor i = 0 To n - 2 For j = i To n - 1If b(i) < b(j) Then temp = b(i) b(i) = b(j) b(j) = tempEnd If Next jNext iEnd FunctionPrivate Function CR(b() As Integer, n As Integer, x As Integer)