Как избежать повторение чисел в строках массива? - VB
Формулировка задачи:
Как избежать повторение чисел в строках массива?
Решение задачи: «Как избежать повторение чисел в строках массива?»
textual
Листинг программы
Private Sub Command1_Click() Const n = 10, m = 6 Dim A(n, m) Dim f As Boolean Randomize (Timer) For i = 1 To n For j = 1 To m Do c = 1 + Fix(Rnd * 6) f = True For k = 1 To j - 1 If A(i, k) = c Then f = False Exit For End If Next k Loop While f = False A(i, j) = c Next j Next i For i = 1 To n Print For j = 1 To m Print Spc(1); Format(A(i, j), "00"); Next j Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д