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