Как избежать повторение чисел в строках массива? - VB

Формулировка задачи:

Как избежать повторение чисел в строках массива?

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
 Dim m(10, 6)
   Print
     Randomize
 
 For A = 0 To 9
   For b = 0 To 5
       m(A, b) = 1 + Fix(Rnd * 50)
  
   Next b
 Next A
   For A = 0 To 9
     Print
   For b = 0 To 5
        Print Spc(1); Format(m(A, b), "00");
  Next b
Next A
 
End Sub

Решение задачи: «Как избежать повторение чисел в строках массива?»

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы