Dim a(9) As Integer
Public Sub comparasion(ByRef a() As Integer)
Dim i, j, n, t As Integer
n = UBound(a)
For i = 0 To n - 1
For j = i + 1 To n
If a(j) < a(i) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To 9
a(i) = Int(Rnd() * 100)
Next i
Call comparasion(a)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label1.Text = a(9)
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
Label2.Text = a(0)
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
Dim sum, ave As Integer
For i = 1 To 8
sum = sum + a(i)
Next i
ave = sum / 8
Label3.Text = ave
End Sub
End Class
是vb.net!
|