Cómo programar en VB: Ingrese un número entero positivo y encuentre la suma de los dígitos

Text1.text se utiliza para ingresar números enteros positivos

Label1.Caption almacena el resultado del cálculo de la suma de cada dígito

Evento de cálculo Command1_Click

Código:

Private Sub Command1_Click()

Valor atenuado mientras sea largo, resultado como un número entero

valor = Val(Text1.Text)

Hacer

Resultado = Valor del resultado - Int(valor / 10) * 10

valor = Int(valor / 10)

Bucle hasta valor = 0

Label1.Caption = "La suma de cada dígito es: " amp Result

End Sub