滷蛋與貢丸

    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

    如有不懂在發問跟我講