Как 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

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


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

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

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