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）=sngtnexti

“打印输出

forI=1ton

printngsq（I）”不带换行符的输出

nexti

vb选择法排序代码 vb排序算法 冒泡排序VB

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