Найти все трехзначные числа, вторая цифра которых равна сумме первой и третьей цифры - VB (169859)

Формулировка задачи:

Добрый день. Пожалуйста помогите с решением маленькой задачи. Задача: Найти все трехзначные числа,вторая цифра которых равна сумме первой и третьей цифры. Пример по которому нужно решить:

Private Sub Command1_Click()
Do
t = t + 1
s1 = 100 + 3 * t
s2 = 2 * Exp(t)
Loop Until s1 < s2
MsgBox t
End Sub

Очень прошу, помогите!

Решение задачи: «Найти все трехзначные числа, вторая цифра которых равна сумме первой и третьей цифры»

textual
                            Листинг программы 
                        

                            Option Explicit
Private Sub Command1_Click()
    Dim j As Integer, i As Integer, s As String
    For i = 1 To 9
        For j = 0 To 9 - i
           s = s & i & (i + j) & j & vbCrLf
        Next j
    Next i
    MsgBox s
End Sub
                        

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

15 голосов , оценка 3.8 из 5

Похожие ответы