Заполнить массив числами по формуле - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д