Заполнить массив числами по формуле - VB

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

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

Здравствуйте! Надо заполнить одномерный массив случайными числами от 0 до 9, чтобы в итоге получилось число вида ASDF , по формуле: AS-DF = A+S+D+F

Решение задачи: «Заполнить массив числами по формуле»

textual
Листинг программы
Private Sub Command1_Click()
Dim mas(10000)
n% = 0
For a% = 0 To 9
For s% = 0 To 9
For d% = 0 To 9
For f% = 0 To 9
If a * 10 + s - d * 10 - f = a + s + d + f Then
    mas(n) = a & s & d & f
    List1.AddItem mas(n)
    n = n + 1
End If
Next
Next
Next
Next
End Sub

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


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

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

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