Определить делители каждого числа, используя For.Next - VB

Узнай цену своей работы

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

Здравствуйте! Ecть проблема. Так как я только, только закончил учить логичуские операторы, у меня появилась проблема. Я заболел грипом, и пропустил неделю учёбы, в это время нас учили For..Next, где нам задали каждому своё задание. Я посмотрел парочку видео, но в конце концов, так и не нашол решение для своей задачи, не могли бы вы посмотреть это задание, и может кинуть ссылочку на какой небудь ресурс или пост с похожей задачей, где я бы мог понять, как я могу зделать это задание: Дано 5 случайных чисел в интервале от [1 до 100]. Определить делители каждого числа. Результат вывести в таком формате: (Делимое число) : (Делители с запятой). Пример: 6: 1,2,3,6. 22: 1,2,11,22 7: 1,7 ну и тд и тп. P.S Извените за плохой русский.

Решение задачи: «Определить делители каждого числа, используя For.Next»

textual
Листинг программы
Dim m As Integer
   Randomize (Time)
   
   For i = 1 To 5
      m = Int((100 * Rnd) + 1)
      
      Dim tmp() As String
      ReDim tmp(0)
      For x = 1 To m
         If m Mod x = 0 Then
            ReDim Preserve tmp(UBound(tmp) + 1)
            tmp(UBound(tmp)) = Str(x)
         End If
      Next x
      
      Debug.Print Str(m) & ":" & Join(tmp, ",")
            
   Next i

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

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