Adición digital VB

Private Sub Command1_Click()

Dim n, i, s, a(30) Como entero

s = 0

n = Len(Text1.Text) 'Para probar la longitud de toda la cadena, se utiliza la función Len().

Para i = 0 To n - 1

a(i) = Mid(Text1.Text, i + 1, 1) 'Utiliza la función Mid, comenzando desde el primer número Tome números hasta que cada número se asigne a la matriz a

'La primera vez, 1 se toma como a(0), la segunda vez, 2 se toma como a(2), y la tercera vez, 3 se toma como (2), y así sucesivamente hasta tomar todo.

Siguiente i

Para i = 0 To n - 1

s = s + a(i) 'Suma todos los números recién tomados.

Siguiente i

Si s<10 Entonces

Text2.Text = "0" & ​​​​s 'Transfiere el número agregado al segundo cuadro de texto.

Else

Text2.Text = s

End If

End Sub

' en el cuadro de texto El contenido es una cadena y primero los datos deben separarse uno por uno antes de poder agregarlos.

'Cuando asigna caracteres en el cuadro de texto a una variable entera, automáticamente convierte los caracteres a tipos de datos enteros

'Si escribe letras u otros caracteres (como a o #), recibirá un error de "tipo no coinciden".

'Puedes copiar el código, eliminar Private Sub Command1_Click() al principio y End Sub al final, y pegarlo en el evento de clic del botón. '