Напечатать числа, которые содержат ноль в среднем разряде - VB
Формулировка задачи:
Даны три трехзначных числа. Составить алгоритм подсчета количества и
печати тех, которые содержат ноль в среднем разряде
Решение задачи: «Напечатать числа, которые содержат ноль в среднем разряде»
textual
Листинг программы
Private Sub Command1_Click()
Dim A(1 To 3) As Integer, k As Integer
k = 0
For i = 1 To 3
A(i) = InputBox("Введите число №" & i, "Ввод числа", "000")
If IS_MID_NULL(A(i)) Then Print "Число №" & i & " имеет ноль в центре. Оно равно: " & A(i): k = k + 1
Next
Print "Всего чисел, имеющих ноль в середине: " & k
End Sub
Function IS_MID_NULL(NUMBER As Integer) As Boolean
Dim TMP As Integer
TMP = NUMBER \ 10
If TMP Mod 10 = 0 Then IS_MID_NULL = True Else IS_MID_NULL = False
End Function