Dim Randoms(9) As Short
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
For i As Integer = 0 To 9
Randoms(i) = Rnd() * 200
Response.Write(Randoms(i) & " ")
Next
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Response.Write("</br>")
Dim j As Integer
Dim temp As Integer
For i As Integer = 0 To 9
For j = i + 1 To 9
If (Randoms(i) > Randoms(j)) Then
temp = Randoms(i)
Randoms(i) = Randoms(j)
Randoms(j) = temp
End If
Next j
Next i
For Each value As Short In Randoms
Response.Write(value & " ")
Next
End Sub
End Class
如有不懂在發問跟我講
留言列表