Option ExplicitSub random()Dim a(156), k, i, sluch As IntegerFor i = -78 To 78 If i <> 22 Then a(i + 78) = iNextFor i = 0 To 156 sluch = Int(Rnd() * (156)) k = a(i): a(i) = a(sluch): a(sluch) = kNext'выводим готовый массивFor i = -78 To 78 Cells(i + 79, 1) = a(i + 78)NextEnd Sub
Sub random() r = WorksheetFunction.RandBetween(1, 35)End Sub
r = WorksheetFunction.RandBetween(1, 35)
r = WorksheetFunction.RandBetween(1, 34)
Sub use1()Dim i&For i = 1 To 35Cells(i, 1) = RndCells(i, 2) = iNext iEnd Sub
Sub use2()Dim i&, j&For i = 1 To 35 For j = i + 1 To 35 If Cells(i, 1) > Cells(j, 1) Then x1 = Cells(j, 1): x2 = Cells(j, 2) Cells(j, 1) = Cells(i, 1): Cells(j, 2) = Cells(i, 2) Cells(i, 1) = x1: Cells(i, 2) = x2 End If Next jNext iEnd Sub
Function RndUnicArr(n&, Optional m& = 0)'функция генерации случайных уникальных целых чисел от 1 до n'возвращает горизонтальный массив из m элементов Dim i&, j&, a&() If n < 1 Or n > 10000000 Then Exit Function If m > n Or m < 1 Then m = n ReDim a&(1 To n) Randomize For i = 1 To n j = Int(Rnd * i + 1) If i <> j Then a(i) = a(j) a(j) = i Next i ReDim Preserve a&(1 To m) RndUnicArr = aEnd Function
Sub random()Dim a(6), k, i, sluch As IntegerFor i = 1 To 5If i > 0 Then a(i) = iNextFor i = 1 To 5 sluch = Int(Rnd() * (5)) k = a(i): a(i) = a(sluch): a(sluch) = kNextFor i = 1 To 5 Cells(i, 1) = a(i)NextEnd Sub
sluch = Int(Rnd() * (5) + 1)