Const N = 10Dim a(1 To N) As IntegerPrivate Sub Form_Click()Dim m As Integer, k As Integer, t As IntegerFor m = 1 To Na(m) = 10 + Int(Rnd * 90)Next mFor m = 1 To N For k = 1 To N - mIf a(k) > a(k + 1) Then t = a(k): a(k) = a(k + 1): a(k + 1) = t Next kNext mFor m = 1 To NPrint a(m);If m Mod 5 = 0 Then PrintNextPrintEnd Sub...
