一道简单VB题，对高手来说很简单

就一个问题，运行后J 没发生循环，即没从1加到N，搞不清楚原因，哪位达人指点下

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n, i, j, k As Integer, a(100), b, c As Single
n = InputBox("n=")
For i = 1 To n
a(i) = InputBox("the" & i & "is")

Next

For j = 1 To n
For k = j + 1 To n
b = a(j)
c = j
If a(j) <= a(k) Then

Else

Exit For

End If
b = a(k) : j = k

Next
Next
a(c) = a(1)
a(1) = b
MessageBox.Show("a(1)=" & a(1) & "最小数在第" & c & "个")
End Sub

因为你的程序中有下面这一段

If a(j) <= a(k) Then

Else

Exit For '如果a(j)>a(k)则跳出内层for循环

End If
b = a(k): j = k '跳出for循环以后j的值为k了，如果k>=n，则for j=1 to n就循环完了，所以并不是对于j=1 to n都循环执行

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息