VB字符串排序(很急！)？直接复制代码运行 如果不想排序的时候清除picturebox， 就把Picture1.Cls注释掉 Dimn%，s(100)AsString PrivateSubForm_Load() Command1.Caption="排序" EndSub PrivateSubCommand1_Click() Picture1.Cls Dimi%
VB字符串排序(很急！)？
直接复制代码运行 如果不想排序的时候清除picturebox， 就把Picture1.Cls注释掉 Dimn%，s(100)AsString PrivateSubForm_Load() Command1.Caption="排序" EndSub PrivateSubCommand1_Click() Picture1.Cls Dimi%，j% Fori=1Ton-1 Forj=i 1Ton Ifs(i)本文链接：http://21taiyang.com/SoccerSports/12464542.html
vb冒泡排序《xù》代码转载请注明出处来源
