作者stator (别急着吃棉花糖)
看板Visual_Basic
标题[.NET] 请教选择排序法的问题
时间Wed May 15 16:10:39 2013
请输入专案类型(网站专案或者应用程式专案):vb2010
请教各位前辈
试着用vb 2010来写一个简单的选择排序法(由小到大)
以下是我的程式
Dim a(), minn
a = Split(TextBox1.Text, ",") '将输入的数用逗点区分存到a阵列
For i = 0 To UBound(a) - 1 '选择排序
minn = i '先将最小值设定给i
For j = i + 1 To UBound(a)
If a(minn) > a(j) Then
minn = j
End If
Next
Next
Label1.Text = minn
当我输入1,22,5的时候,为什麽显示出来不是2呢?当i跑到1时,minn=1
j是从2开始判断,所以判断22>5,if成立,把j给minn
结束程式,为什麽印出来却是1呢?感谢各位指正
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 124.11.171.152
1F:推 brian90191:要转整数比较 CInt(a(minn)) > CInt(a(j)) 05/15 20:14
2F:→ stator:谢谢brian大,我抓了一整天,抓不出错误。以为阵列设为 05/16 02:08
3F:→ stator:object可变型态,就可以做判断。 05/16 02:09