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

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