Red de conocimiento informático - Problemas con los teléfonos móviles - Programa VB para crear una pirámide alfabética. ¿Un procedimiento detallado ABA ABCBA?

Programa VB para crear una pirámide alfabética. ¿Un procedimiento detallado ABA ABCBA?

Agregar una etiqueta1Subcomando privado1_Click()

Atenuar I como entero

Atenuar Hs como entero 'Número de líneas

Atenuar Ksstr como cadena

Dim Ksasc As IntegerKsstr = "A" 'Comienza con carácter

Ksasc = Asc(Ksstr) 'Código ascendente

Label1.AutoSize = True 'Mostrar automáticamente todo el texto

Label1.Alignment = 2 'Center Label1.Capt.AutoSize = True 'Mostrar automáticamente todo el texto

Label1.Alignment = 2 'Center Label1.Caption = Ksstr

Hs = Val (InputBox("Ingrese el número de líneas, no demasiado grande", "Número de líneas", 5)) - 1 'Número de líneas

For I = 1 To Hs 'Reemplace la letra del medio con una nueva letra e. ABA reemplaza la letra del medio con una nueva letra. g. ABA reemplaza B con BCB y se convierte en ABCBA

Ksstr = Reemplazar(Ksstr, Chr(Ksasc + I - 1), Chr(Ksasc + I - 1) & Chr(Ksasc + I) & Chr( Ksasc + I - 1))

Etiqueta1.Caption = Etiqueta1.Caption = Etiqueta1.Caption, Chr(Ksasc + I) & Chr(Ksasc + I - 1))

上篇: Cómo instalar el sistema Mac desde un disco USB 下篇:

Artículos populares