VB综合题答案.docVIP

Public Class Form1 Dim i As Integer Dim arr(5) As Integer Private Sub sort(ByRef brr() As Integer) Array.Sort(brr) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click For i = 1 To 5 Randomize() arr(i) = Int(Rnd() * 99) + 1 TextBox1.Text = arr(1) TextBox2.Text = arr(2) TextBox3.Text = arr(3) TextBox4.Text = arr(4) TextBox5.Text = arr(5) Next i End Sub Private Sub Button2_Click(ByVal sender As Syste