Метод сортировки пузырьком

Option Explicit
Dim n, min, max As Integer
Dim a() As Long
Dim r As Integer
 
Private Sub Command1_Click()
Dim i As Byte
Text4.Text = ""
n = Val(Text1.Text)
max = Val(Text2.Text)
min = Val(Text3.Text)
For i = 1 To n
ReDim a(i)
a(i) = Int((max - min) * Rnd() + min)
Text4.Text = Text4.Text + Str(a(i)) + vbTab
Next i
End Sub
 
Private Sub Command2_Click()
Dim k As Integer
 
Dim j As Integer
Dim y As Integer
Text4.Text = vbCrLf
For k = 1 To n
For y = 1 To n - 1
If a(i + 1) < a(i) Then
y = a(i + 1)
a(i + 1) = a(i)
a(i) = y
End If
Next y
Next k
For j = 1 To n
Next j
End Sub

For j = 1 To n
  Text5.Text  = Text5.Text & a(j) & vbTab
Next j

For k = 1 To n
    For j = 1 To n-1
        If a(j + 1) < a(j) Then
            y = a(j)
            a(j) = a(j + 1)
            a(j + 1) = y
        End If
    Next j
Next k

Option Explicit
Dim x, y, n, min, max, i, k, j As Integer
Dim a() As Long
 
Private Sub Command1_Click()
Text4.Text = vbCrLf
n = Val(Text1.Text)
max = Val(Text2.Text)
min = Val(Text3.Text)
For i = 1 To n
ReDim a(i)
a(i) = Int((max - min) * Rnd() + min)
Text4.Text = Text4.Text + Str(a(i)) + vbTab
Next i
End Sub
Private Sub Command2_Click()
Dim y, k As Integer
Text5.Text = vbCrLf
For k = 1 To n
For j = 1 To n - 1
If a(j + 1) < a(j) Then
y = a(j)
a(j) = a(j + 1)
a(j + 1) = y
End If
Next j
Next k
For i = 1 To n
Text5.Text = Text5.Text & (a(i)) & vbTab
Next i
End Sub

Redim a(n)
For i = 1 To n
a(i) = Int((max - min) * Rnd() + min)

For i = 1 To n
  a(i) = InputBox("Введите " & i & "-й элемент массива")
Next

Private Sub Command2_Click()
For k = 1 To n
For j = 1 To n - 1
If a(j + 1) < a(j) Then
y = a(j)
a(j) = a(j + 1)
a(j + 1) = y
End If
If j < 1 Then Exit For
Next j
Next k
Text5.Text = vbCrLf
For i = 1 To n
Text5.Text = Text5.Text + Str(a(i))
Next i
End Sub