用VB编制一个动态的演示排序操作的实用程序

Question

1. 题目介绍
对数值型数据进行爱徐是程序设计中最基本的数据处理操作，本题目要求编制一个动态的演示排序操作的实用程序，让用户深刻的了解不同排序方法的执行过程。本题目要求实现4种排序算法：比较法、选择法、插入法和冒泡法。
假设有一个数组a(1 To 10)，共有10个元素，要将其按从小到大排序。
⑴ 比较法。第一轮从a(1)开始，依次将a(1)与其后的所有元素逐个的进行比较，如果其后的某个元素比a(1)小，则将两者对调，这样第一轮结束后a(1)中保留的是10个元素中最小的。然后从a(2)开始进行第二轮比较，将其与其后的所有元素比较，第二轮比较结束后a(2)中保留次小值，以此类推，最后将数组a中各元素的值即为排序后的结果。
⑵ 选择法。先找出a(2)~a(10)中最小的数，然后与a(1)进行比较，如果比a(1)小则对换；再将a(3)~a(10)中最小的数与a(2)比较，……，以此类推。每次都是从a(i+1)~a(10)中找到最小值后与a(i)进行比较，如果比a(i)小则交换。最后比较a(9)和a(10)的值，如果a(10)比a(9)小，则交换，排序完成。由此可见，选择法与比较法的思想是基本一致的，但在选择法中交换数据的次数比比较法少，所以选择法的执行效率更高一些。
⑶ 插入法。开始时a(1)的值不变，将a(2)根据大小顺序插入a(1)前或a(1)后；将a(3)根据大小插入到已排序的a(1)和a(2)之前、之后或中间，……，将a(i)插入到a(1)~a(i-1)之中；以此类推，处理完a(10)之后，数组即排序完成。
⑷ 冒泡法。依次比较相邻的两个数a(i-1)和a(i)(i=2 to 10)，如果a(i-1)>a(i)，则交换两个元素值。这样第一轮下来，a(10)即为最大的；再比较a(i-1)和a(i)(i=2 to 9)，比较完毕，a(9)即为次大值，以此类推。
本程序能以动画方式演示上述4种排序算法的排序过程，并可以比较4种算法所需交换数据的次数，从而对4种排序算法有一个比较直观的认识，也可以对4种排序算法的排序效率进行对比。本程序还可以找出所产生的10个随机数中的最大值、最小值和平均值。
2. 功能要求
⑴ 程序启动后，显示主界面。首先单击“产生10个随机数”按钮来产生10个随机数，并显示在10个文本框中；然后选择一种“演示模式”和“排序方式”，其中演示模式可以直接给出排序结果，也可以通过动画动态演示整个排序过程，排序方式可以按从大到小顺序，也可以按从小到大顺序排序。
⑵ 单击主窗口的“排序选择”按钮，打开“排序选择”窗口。从中选择一种排序方式，单击不同排序方式时，“算法描述”中简要介绍这种算法。单击“确定”按钮返回到主窗口，主窗口中最上方框架控件的标题文字显示当前所选的排序算法。
⑶ 设置完毕，单击“开始排序”按钮（此按钮在生成数据之前是不可用的）启动排序过程。若选择了动画方法，红色背景的文本框表示当前正在比较的元素，黄色的代表已排序的元素，两个运动的文本框表示交换过程。在排序过程中可以调节水平滚动条来控制演示的速度。排序结束后程序以消息框的形式报告数据交换的次数
⑷ 选择窗口主菜单中的“颜色设置”命令，主窗口扩大，底部显示“颜色设置”框架可以对“文本背景色”、“文本前景色”、“已排序元素色”和“交换结点色”进行设置。再选择此命令，窗口会发到原来大小
⑸ 选择主菜单中的“退出”按钮或“功能”菜单中的“退出”命令可退出本程序，程序显示对话框予以确认。

Answer 1

现在VB的话一般用ADO连接数据的比较多，可以用控件ADODC直接生成连接数据的语句，最好把最后连接的机器的名称改成IP。
1.在数据库中建立HM和HM2两个表，注意你建立数据表的时候各列名称设定好。
2.VB中触发时间是List1的CLICK时间，然后检测是否收到ASC码13（即回车符）检测到后往下执行
3.对输入的字符串做检测，可以先检测长度是否7位或11位，然后对各个位是否为数字做检测（可以循环去ASC的办法），是则往下执行，否则List1清零。
4.VB连接数据库，去其中号码与List1对用的那条记录，然后去各个列的内容分别填入list2、list3、list4、list5就OK了。

总体而言的话这个程序应该不难，不过我没用VB连接ACESS所以不能给你全部的代码，其他的我有部分类似的程序，你要的话发消息给我吧。