Código fuente del centro comercial Hainan
. Conjunto ventana conjunto 1
. Subrutina_ _Ventana de inicio_ Creada
Cuadro de lista 1. AddItem("Hainan",)
ListBox 1. AddItem("Shandong")
Cuadro de lista 1. AddItem("Fujian",)
Cuadro de lista 1. AddItem("Shenzhen",)
. Se hace clic en Subroutine_AddButton_.
. Variable local a, tipo entero
Búsqueda de variable local, tipo lógico
found=false
. Encabezado del bucle de conteo (ListBox 1. Obtenga la cantidad del artículo (), a)
Si es verdadero (ListBox 1. Obtenga el texto del artículo (A-1) = Edit Box 1. Contenido)
Cuadro de información ("Existente" cuadro de edición 1. Contenido "¡Este elemento no se puede agregar!", 0, )
Buscar = verdadero
Fuera del bucle () p>
Si realmente se acabó.
. count_period_tail()
si es verdadero(find=false)
ListBox1. Agregar elemento(Cuadro de edición 1. Directorio, cuadro de lista 1. Número de elementos())
Si realmente terminó.
. Se hace clic en Subroutine_button2_is
Establecer semilla de número aleatorio()
Cuadro de edición 2. contenido = cuadro de lista1. Obtener texto del elemento (obtener número aleatorio (0, cuadro de lista 1. Obtener número de elemento ()-1))