VB6.0选择法对数组进行排序

在日常生活中经常需要对一组数据按照一定规律进行排列，在Excel就可以按照一定关键字进行升序或者降序排列，接下来介绍如何用VB6.0实现选择法对数组进行排序：

操作方法

  • 01

    打开VB6.0，新建一个工程，在窗体中添加两个命令按钮，caption分别改为“升序排列”和“降序排列”，添加两个个标签控件，将名字分别改为Lbl1和Lbl2，将窗体Form1的caption属性改为“选择法数组排序”，将界面设置成下图：

  • 02

    首先产生10个随机数在标签中显示。 双击窗体，在Load事件中写入如下代码： Randomize For i = 1 To 10 a(i) = Int(Rnd * 101 + 100) Lbl1.Caption = Lbl1.Caption & a(i) & " " Next i

  • 03

    在通用对话框对数组进行定义，使其成为窗体级变量： Dim a(1 To 10) As Integer

  • 04

    双击“升序排列”命令按钮，进入代码编辑窗口，输入如下代码： For i = 1 To 9 Min = a(i) For j = i + 1 To 10 If a(j) < Min Then Min = a(j) t = a(i): a(i) = a(j): a(j) = t End If Next j Next i Lbl2.Caption = "" For i = 1 To 10 Lbl2.Caption = Lbl2.Caption & a(i) & " " Next i

  • 05

    双击“降序排列”命令按钮，进入代码编辑窗口，输入如下代码： For i = 1 To 9 Max = a(i) For j = i + 1 To 10 If a(j) > Max Then Max = a(j) t = a(i): a(i) = a(j): a(j) = t End If Next j Next i Lbl2.Caption = "" For i = 1 To 10 Lbl2.Caption = Lbl2.Caption & a(i) & " " Next i

  • 06

    关闭代码窗口，按下F5运行程序，产生10个随机数，标签中显示10个数：

  • 07

    单击“升序排列”命令按钮，标签一中的数组按升序排列在标签二中显示，如图：

  • 08

    单击“降序排列”命令按钮，标签一中的数组按降序排列在标签二中显示，如图：

赞 (0)

相关推荐

  • VB6.0控件数组使用

    我们见过的电脑附件里面的计算器其实就是通过控件数组实现的.当有一系列对象,共用一个名字时,可以使用控件数组来完成.控件数组对象拥有一样的控件名,通过索引值对各控件进行引用和标志. 操作方法 01 打开 ...

  • VB6.0如何调用对话框并打开选择的文件

    今天 小编和大家分享一下VB6.0如何调用对话框并打开选择的文件,通过一个小小的案例去学习VB的操作方法 操作方法 01 首先打开VB6--点击新建--选择标准EXE--点击打开.如果没有新建对话框, ...

  • VB6.0找出若干个数中最大的数

    有一个数组,里面有若干个数,接下来介绍VB6.0编程实现搜索最大(最小)数,并进行输出的过程: 操作方法 01 在若干个数中求最大值,一般先假设一个较小的数为最大值的初值,若无法估计较小的值,则取第一 ...

  • win7系统如何安装vb6.0

    win7系统如何安装vb6.0

    vb6.0是微软公司为业余编程爱好者开发的可视化编程平台,虽然已经宣布淘汰但是还是被大多数学校的机考所用.一些用户不知道如何在win7系统中安装vb6.0,网上关于安装vb6.0的教程内容比较少,所以 ...

  • win10安装vb6.0总是失败怎么办?win10 vb6.0安装不了的解决办法

    VB6.0已经10几年了,现在最新的win10系统无法安装,安装会卡死,怎么办?下面给大家介绍一下怎么在win10下完整安装vb6.0.供大家参考! 1.本文以vb6.0企业版为例,其他版本同此理!进 ...

  • vb6.0怎么制作一个抽奖小程序? vb6.0抽奖器的制作方法

    商场搞活动想要制作一个抽奖程序,今天我们就来看看使用vb6.0制作抽奖小程序的教程. 1.首先启动vb6.0,执行文件-新建命令,弹出新建工程对话框,在该对话框中选择标准的exe后点击打开按钮,进入v ...

  • VB6.0怎么设置字体格式? vb6.0设置字体大小的教程

    VB6.0代码编辑器想要设置字体的大小,该怎么设置呢?下面我们就来看看详细的教程. 1.单击开始---->所有程序---->Microsoft Visual Basic 6.0 中文版,选 ...

  • VB6.0怎么快速批量删除txt内容?

    vb6.0可以实现批量删除txt文件,该怎么删除txt文件呢?下面我们就来看看详细的教程,很简单,请看下文详细介绍. 1.首先,在电脑的桌面上新建一个文件夹,本例为删除txt文件的内容. 2.在新建的 ...

  • VB6.0怎么调用带参数的DLL?

    vb6.0中可以创建DLL文件,也可以调用DLL文件,该怎么调用呢?下面我们就来看看详细的教程. 1.桌面上双击VB图标,打开Visual Basic. 2.打开的VB窗口中,选择文件----> ...