Public Sub gen()Dim i As Integer Dim j As Integer Dim k As Integer Dim a(25) As Integer a(0) = Int(Rnd() * 25) + 1 For i = 1 To 24 LL:k = Int(Rnd() * 25) + 1 For j = 1 To i - 1 If a(j) = k Then GoTo LL Next j a(i) = k Next i For i...