Código fuente de verificación de código único

El código es sólo de referencia, la ventana en sí es perfecta, tiene 2 botones y 2 cuadros de edición.

Versión 2

Soporta especificaciones de biblioteca

. Conjunto ventana conjunto 1

. Variable ensambladora a, tipo entero

. Variable ensambladora b, tipo entero

. Subrutina_ _Ventana de inicio_ Creada

Establecer semilla de número aleatorio()

Llamar a la subrutina (;_botón actualizar_clicked,,)

. Subroutine_Button Refresh_Click

A = Número aleatorio (, 9)' El número máximo se puede establecer arbitrariamente.

B = número aleatorio (, 9)

Cuadro de edición 1. contenido = texto(a) " " texto(b)

. Subrutina_BotónEnviar_Clic

. if(tovalue(editbox2.content) = A B)

infobox("correct", 0,)

else.

Cuadro de información("Error", 0,)