Описать функцию Digil Count (k) целого типа, находящую количество цифр целого положительного числа k - VB

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

Описать функцию Digil Count (k) целого типа, находящую количество цифр целого положительного числа k. Используя эту функцию, найти количество цифр из пяти данных целых положительных чисел..

Решение задачи: «Описать функцию Digil Count (k) целого типа, находящую количество цифр целого положительного числа k»

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

                            Private Sub Command1_Click()
    Dim i As Long, n As Long
    n = 0
    For i = 1 To 5
        n = n + Digil_Count(CInt(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г® В№" + CStr(i))))
    Next
    MsgBox CStr(n)
End Sub
 
Private Function Digil_Count(k As Integer) As Integer
    Digil_Count = Len(CStr(k))
End Function
                        

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

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

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