vb选择排序法的基本思路 vb选择法排序代码？

vb选择法排序代码？

Dimsngsq（），sngtassingle“输入原始数据

n=Val（InputBox（”请输入已排序的n个数）

redimsngsq（n）”重定义数组

打印“排序前”

forI=1ton

msgbox”请输入“&str（I）&；“

sngsq（I）=Val（InputBox（”please input“）”将输入数据转换成数字类型

printngsq（I）

next

print”排序后“

”row Order

forI=1ton-1

intmin=I”对于第I顺序，最初假设第I个元素是最小的

forj=I 1ton”查找最小的元素序号

ifsngsq（J）<sngsq（intmin）thenintmin=J

nextj

“用第i个元素交换找到的最小元素

sngt=sngsq（i）

sngsq（i）=sngsq（intmin）

sngsq（intmin）=sngt

nexti

]对于i=1ton

printingsq（i）”非换行输出

nexti

1。选择sort to send（从小到大）private sub command1Click（）Dim a（10）As Integer For i=1 to 10随机化a（i）=Int（Rnd*90）10 Next i For i=1 to 9 For j=i 1 to 10 If a（i）> a（j），则r=a（i）a（i）=a（j）a（j）=r End IfNext j Next i For i=1 To 10打印a（i）Next Iend sub2，冒泡排序私有子命令1uclick（）Dim a（10）As Integer For i=1 To 10随机化a（i）=Int（Rnd*90）10 Next i For i=1 To 9 For j=1 To 10-i如果a（j）> a（j 1），则r=a（j）a（j）=a（j1） a（j 1）=r结束，如果下一个j下一个i，对于i=1到10，则打印a（i）下一个iEnd Sub

vb选择排序法的基本思路 起泡法排序10个数 vb快速排序代码

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。