Red de conocimiento informático - Conocimiento sistemático - Desarrollo personalizado del código fuente de Hainan

Desarrollo personalizado del código fuente de Hainan

Versión 2

. 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 ()

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))