Вывести все пятизначные числа - VB
Формулировка задачи:
Вывести все пятизначные числа, которые делятся на 2, у которых средняя цифра нечетная, и сумма всех цифр делится на 4.
Решение задачи: «Вывести все пятизначные числа»
textual
Листинг программы
- Private Sub Form_Load()
- For i = 10102 To 99998 Step 2
- If Mid(i, 3, 1) And 1 Then
- If (Val(Mid(i, 1, 1)) + Mid(i, 2, 1) + Mid(i, 3, 1) + Mid(i, 4, 1) + Mid(i, 5, 1)) Mod 4 = 0 Then
- List1.AddItem i
- End If
- End If
- Next
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
