当前位置：新励学网 > 秒知问答 > VB6.0选择法对数组进行排序

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

发表时间：2024-07-28 00:07:23 来源：网友投稿

1、打开VB6.0，新建一个工程，在窗体中添加两个命令按钮，caption分别改为“升序排列”和“降序排列”。

2、将窗体Form1的caption属性改为“选择法数组排序”，将界面设置成下图。

3、在Load事件中写入如下代码。RandomizeFor i = 1 To 10a(i) = Int(Rnd * 101 + 100)Lbl1.Caption = Lbl1.Caption a(i) " "Next i。

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

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

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

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

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

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

免责声明：本站发布的教育资讯（图片、视频和文字）以本站原创、转载和分享为主，文章观点不代表本网站立场。

如果本文侵犯了您的权益，请联系底部站长邮箱进行举报反馈，一经查实，我们将在第一时间处理，感谢您对本站的关注！