View difference between Paste ID: 3WNg3jBr and G7dcf8RR

-Dim arb As Integer
+Dim ar(4) As Integer
 Dim i As Integer
 Dim j As Integer
 Dim ordinato As Integer
-For i = 0 To 5
+
 
 
 Private Sub Command1_Click()
 Randomize
-For i = 0 To 5
+For i = 0 To 4
-For j = i + 1 To 5
+
-If ar(i) < ar(j) Then
+
-arb = ar(i)
+
-ar(j) = ar(i)
+
-ar(j) = arb
+
 
 
 End Sub
 
-For i = 0 To 5
+Private Sub Command2_Click()
 
-Next i
+For i = 0 To 4
  For j = i + 1 To 4
  If ar(i) < ar(j) Then
  ordinato = ar(i)
  ar(i) = ar(j)
  ar(j) = ordinato
 End If
 
  Next j
  Next i
 
  For i = 0 To 4
         Print "              ";
         Print ar(i); "";
 Next i
 
 
 
 
 End Sub
 
 Private Sub Command3_Click()
 For j = 0 To 5
 Print ar(j)
 Next j
 
 End Sub