Código fuente del subprograma estático
¿privado? ¿Sub? Command1_Click()
¿Electricidad estática? ¿respuesta? ¿Como? Se aplica la variable estática "Entero".
¿Respuesta? =?¿Respuesta? ?1
Etiqueta1. ¿título? =?Etiqueta1. ¿título? ?"?"? ?Str(a)
¿Fin? Submarino
Haga clic en el botón 1, ¿el contenido de la etiqueta 1 aparecerá automáticamente como 1? ¿2? ¿Sub? Command2_Click()
¿Atenuar? ¿respuesta? ¿Como? Variables dinámicas definidas por números enteros
¿Respuesta? =?¿Respuesta? ?1
Etiqueta 2. ¿título? =?Etiqueta2. ¿título? ?"?"? ?Str(a)
¿Fin? Submarino
Haga clic en el botón 2, el contenido de la etiqueta2 se genera automáticamente como 1?1?1?1?1?1?1?1