Operación de adición de cadena vb

Después de la modificación, este código se puede colocar en un evento de botón.

dim rtn es un número entero, i1 es un número entero, i2 es un número entero, i3 es un número entero

I 1 = val(mid(texto 1. texto, 1, 1) ) val(mid (texto 1. texto, 2, 1))' Cientos y decenas de dígitos.

I2 = val (mid (texto1.text, 2, 1)) val(mid(text 1. text, 3, 1))' dígito de las decenas.

I3 = val (mid (text1.text, 3, 1)) val(mid(text 1. text, 1))' dígito centenas.

rtn = i1 i2 i3

text2.text=rtn

Función intermedia

Devuelve una variable (cadena), que contiene caracteres. número especificado de caracteres en la cadena.

Sintaxis

Mid(String, start[, length])

La sintaxis de la función Mid tiene los siguientes parámetros con nombre:

Explicación parcial

Cadena de parámetros requeridos. Una expresión de cadena a partir de la cual se devuelven caracteres. Si la cadena contiene Nulo, devolverá Nulo.

Parámetros necesarios para iniciar. Ha pasado mucho tiempo. La posición del carácter de la parte extraída de la cadena. Si el inicio excede el número de caracteres de la cadena, Mid devolverá una cadena de longitud cero (" ").

Parámetro opcional de longitud; es Variante (Largo). El número de caracteres que se devolverán. Si se omite o tiene más caracteres que el número de caracteres del texto (incluidos los caracteres iniciales), se devolverán todos los caracteres de la cadena desde el principio hasta el final.

Explicación

Para saber el número de caracteres de una cadena, puedes utilizar la función Len.

Tenga en cuenta que las funciones MidB operan con los datos de bytes contenidos en la cadena, al igual que los lenguajes de juego de caracteres de doble byte (DBCS). Entonces su argumento especifica el número de bytes, no el número de caracteres. Para ver código de ejemplo que utiliza MidB, consulte el segundo ejemplo en el tema Ejemplos.