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