¿Cómo programar un triángulo isósceles compuesto por tu propio nombre?

Supongamos que el nombre consta de tres caracteres: apellido (apellido), generación (nombre generacional) y nombre de pila (nombre personal), cada uno con un carácter. Si ingresa menos de tres caracteres, deberá volver a ingresar; si ingresa más de tres caracteres, también deberá volver a ingresar.

Cada carácter ocupa un lado. Entre ellos, el apellido se usa como el lado inferior, la generación se usa como la cintura izquierda y el nombre de pila se usa como la cintura derecha (el vértice se usa como. el nombre). La longitud del lado es de 10 caracteres.

La interfaz tiene dos etiquetas, dos cuadros de texto y un botón. Private?Sub?Command1_Click()

If?Len(Text1)?lt;gt;?3?Then

MsgBox?"El nombre debe tener tres palabras"

Texto1?=?""

¿Salir?Sub

Fin?Si

Para?i?=?1?A?3

If?Asc(Mid(Text1,?i,?1))?gt;?0?Then

MsgBox?"El nombre debe ser caracteres chinos"

Texto1? =?""

¿Salir?Sub

Fin?Si

Siguiente?i

n?=?Int(Texto2 )

Si?n?lt;?5?O?n?gt;?20?Entonces

MsgBox?"La longitud lateral debe estar entre 5 y 20"

Texto2?=?"10"

Salir?Sub

Fin?Si

xing?=?Izquierda(Texto1,?1)

bei?=?Mid(Text1,?2,?1)

ming?=?Right(Text1,?1)

s?=?String (n ?-?1,?"?")?amp;?ming

Para?i?=?2?To?n?-?1

s?=? s? amp;?vbCrLf?amp;?String(n?-?i? ?1,?"?")?amp;?bei?amp;?String(i? ?i?-?4,?"?" )? amp;?ming

Siguiente?i

s?=?s?amp;?vbCrLf?amp;?String(n,?xing)

Etiqueta3 ?=?s

Etiqueta3.Height?=?TextHeight(s)

Etiqueta3.Width?=?TextWidth(s)

k?= ?Yo.Altura?-?Me.ScaleHeight? ?Label3.Top? ?Label3.Top? ?Label3.Height

Si?k?gt;?Me.Height?Entonces?Me.Height?= ?k

k?=?Me.Width?-?Me.ScaleWidth? ?Label3.Left? ?Label3.Left? ?Me .Width?Then?Me.Width?=?k

Fin?Sub

Privado?Sub?Form_Load()

Etiqueta1?=?" Nombre"

Texto1?=?""

Etiqueta2?=?"Longitud lateral"

Texto2?=?"10"

Comando1 .Caption?=?"OK"

Etiqueta3?=?""

Fin?Sub