rpanabfre / tongji-university_visual-basic.net Goto Github PK

当c>a>b时排序出现问题，显示b>a

排查一番之后终于搞清楚问题出在哪了……

if语句最后一种情况else那里（也就是c为最大值时）

下隶选择枝，我复制的时候没仔细检查，直接复制了第二种情况的选择枝，结果就是：

`
……

Else
Dim max1$ = Str(c)
If b > c Then ‘啊啊啊啊就是这里，直接复制结果忘审核了。把这里写成a>b就没问题了
Dim mid2$ = Str(a)
Dim min3$ = Str(b)
Label2.Text = max1 & " >" & mid2 & " >" & min3
Else
Dim mid2$ = Str(b)
Dim min3$ = Str(a)
Label2.Text = max1 & " >" & mid2 & " >" & min3
End If
End If

`