Red de conocimiento informático - Problemas con los teléfonos móviles - Algoritmo VB: busca todas las letras mayúsculas de una cadena alfanumérica y las genera en orden inverso. Cuanto más sencillo, mejor.

Algoritmo VB: busca todas las letras mayúsculas de una cadena alfanumérica y las genera en orden inverso. Cuanto más sencillo, mejor.

Supongamos que su cadena ya está en la variable s:

Sub?via caracter()

Dim?i?As?Integer,?s?As ? Cadena

Dim?x?As?Integer,?c?As?String

Dim?arr (1?To?26?)?As?Integer

s?=?InputBox("Introducir cadena")

For?i?=?1?To?26

arr(i)? =?0

Siguiente?i

Para?i?=?1?A?Len(s)

c?=?Mid(s,?i,?1)

Si?c?>=?A"?A"?Y?c?<=?"Entonces

x?=?Asc(c)?-?Asc("A" ) ?+?1

arr(x)? =?arr(x)?+?1

Fin?Si

Siguiente?i

c?=?"

¿Para?i?=?26?A?1?Paso?-1

Si?arr(i)? >?0? Entonces ?c?=?c?&?Chr(Asc("A")?+?i?-?1)

Siguiente?i

MsgBox?" en la cadena The Las letras mayúsculas que aparecen son: "? &?c

Fin?

上篇: Controlador ODBC de Microsoft Access] Error de sintaxis en la instrucción INSERT INTO. 下篇: Descargue el último txt completo de "El buen yerno y el mal yerno"