Basic Описать функцию DigitN (K, N) целого типа

[Екатерина23]

Описать функцию DigitN (K, N) целого типа, возвращающую N-ю цифру целого положительного числа К (цифры в числе нумеруются справа налево). Если количество цифр в числе К меньше N, то функция возвращает -1. Для каждого из пяти данных целых положительных чисел K1, K2, ..., K5 вызвать функцию DigitN с параметром N, изменяющимся от 1 до 5

[ViktorR]

Например так. Открыли Excel, Сервис - Макрос - Редактор Visual Basic.
Копируете пример (проверяем через F8):

Sub test()  ' Проверка
Dim n As Integer
Dim k As Integer
Dim y As Integer
    y = DigitN(234, 4)
End Sub

' Функция возвращает n-ую цифру числа k (считаем справа) или
' -1, если цифр в числе меньше n 
Function DigitN(ByVal k As Integer, ByVal n As Integer) As Integer
Dim b As Integer
Dim i As Integer
Dim ostat As Integer

    b = k
    For i = 1 To n
        ostat = b Mod 10 ' Правая цифра числа
        If ostat = 0 Then ' Цифр меньше чем n
           DigitN = -1
           Exit Function
        End If
        b = b \ 10       ' Число без правой цифры
    Next
    DigitN = ostat
End Function

Как-то так, ...

[Serge_Bliznykov]

Екатерина, а чем Вас не устроила ваша предыдущая тема?!!

Visual Basic: Описать функцию DigitN (K, N) целого типа, возвращающую N-ю цифру целого положительного числа К

там Вам DiemonStar и решение уже написал!!

[ViktorR]

Во как!
Не видел.
Там через обработку строки.
Так думаю, что ТС трудно признать, что ничего не поняла из того кода.
Может этот будет понятнее

Как-то так, ...

[Екатерина23]

Спасибо огромное за помощь

[Sasha_Smirnov]

Не просто помощь, а подмени меня — у меня дела!

Сообщение от ViktorR

Может этот будет понятнее

Понятнее непонятного не всегда понятно.

Просто некоторые прутся от For…Next, но не приемлют IIf’ов.