Написать программу в VBA, которая выдает сумму цифр многозначного числа

@SwKozlovski · Регистрация: 01.12.2014

Author24 — интернет-сервис помощи студентам

Помогите написать программу в VBA, которая выдает сумму чисел многозначного числа

256
2 + 5 +6 = 13
3623
3+6+2+3 = 14

Function RistSumma(NatArv As String) As Integer

@m-ch · 02.12.2014, 04:59

Visual Basic

Sub www()
    Dim n&, m&, l&, s&, t$
    n = 256
    l = n
    While l
        m = l Mod 10
        s = s + m
        t = m & IIf(t = "", "", "+") & t
        l = l \ 10
    Wend
    MsgBox n & " (" & t & "=" & s & ")"
End Sub

@SwKozlovski 0 / 0 / 0 Регистрация: 01.12.2014 Сообщений: 2
		1
	Написать программу в VBA, которая выдает сумму цифр многозначного числа 01.12.2014, 17:29. Показов 979. Ответов 1 Метки нет (Все метки) Помогите написать программу в VBA, которая выдает сумму чисел многозначного числа 256 2 + 5 +6 = 13 3623 3+6+2+3 = 14 Function RistSumma(NatArv As String) As Integer 0

	02.12.2014, 04:59

Опции темы