Перебор дробных чисел по последнему числу - VBA

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

Не получается создать рабочий VBA код для перебора дробных чисел(в формате 0,2;0,35 и т.д.) по последнему числу и далее подразделению их на соответственно чет/нечет. Например, 0,275 последняя цифра 5, значит нечетное

Решение задачи: «Перебор дробных чисел по последнему числу»

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

                            Dim fNumber As Double
    ' fNumber = ... <= ввод дробного числа
    Select Case CInt(Right(CStr(fNumber), 1))
        Case 0, 2, 4, 6, 8
            MsgBox "Четное"
        Case Else
            MsgBox "Нечетное"
    End Select
                        

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

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

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