как найти сумму трехзначного числа на Visual Basic?

Question

как найти сумму трехзначного числа на Visual Basic?

Google рулит Ученик (83), закрыт 14 лет назад

скажите пож. как найти сумму трехзначного числа именно на visual basic!!!
например 123, его сумма = 6
Как тоже самое сделать на visual basic???

Answer 1

Private Sub Command1_Click()

n = Left(InputBox("Введите трехзначное число"), 3)
n1 = CInt(Left(n, 1))
n2 = CInt(Right(n, 1))
n3 = CInt(Mid(n, 2, 1))
s = n1 + n2 + n3
MsgBox ("Введенное число " + Str(n) + Chr(13) + "Сумма его цифр = " + Str(s))
End Sub

Answer 2

используй целочисленное деление, чтобы разбить на цифры

Answer 3

Один из способов :
A=123
B=str(A)
for i=1 to len(B)
S=S+INT(Mid(B,i,1) )
next i
PS: писал без Visual Basic. Если что поясню.
Если надо способ через целочисленное деление - пиши на почту разберемся.

Answer 4

замути цикл води трехназначное число паралельно сумируй введеные числа