Как 2-хмерный массив из всех 3-хзначных чисел сделать - VB
Формулировка задачи:
как 2-хмерный массив из всех 3-хзначных чисел сделать)) По-жа-луй-ста)))!!!
Решение задачи: «Как 2-хмерный массив из всех 3-хзначных чисел сделать»
textual
Листинг программы
Option Explicit
Private Sub Form_Activate()
Dim sum As Integer, A As Integer, Tmp As Integer, Otvet As Integer
A = CInt(InputBox("Введите сумму"))
For Otvet = 100 To 999
sum = 0: Tmp = Otvet
While Tmp
sum = sum + Tmp Mod 10
Tmp = Tmp \ 10
Wend
If sum = A Then Print Otvet
Next
End Sub