vb选择法排序代码 vb选择法排序代码？

vb选择法排序代码？Dimsngsq（），sngtassingle“输入原始数据n=Val（InputBox（”请输入已排序的n个数）redimsngsq（n）”重定义数组打印“排序前”forI=1t

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