Как избежать повторение чисел в строках массива? - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.375 из 5
Похожие ответы