El código fuente de la lotería es muy fácil de usar.

Versión 2. Montaje conjunto de ventana 1. Se hace clic en Subroutine_button1_.

. Variable local I, número entero aleatorio semilla ()

I = número aleatorio (1111, 9999)

Si es verdadero (determina si se repite (I) = falso)

Cuadro de edición 1. Agregar texto (al texto (i) + #salto de línea)

Si realmente termina, la subrutina juzgará si se repite, lo cual es lógico.

Parámetro parámetro, tipo entero

. Variable local temporal, tipo texto, "0"

. Variable local I, entero temporal = texto dividido (cuadro de edición 1. contenido, #salto de línea)

. Cuente el cabezal del bucle (obtenga el número de miembros de la matriz (temporal), I)

. if true(temporal[i] = to text(parámetro))

return(true)

. Si realmente se acabó. Calcular la hora de finalización del período ()

Retorno (falso)