Lenguaje simple seleccionado aleatoriamente del número especificado, se requiere código fuente

.Ventana de ensamblaje Ensamblaje 1

.Subrutina__Launch Window_Created

Cuadro de lista 1. Agregar elemento ("Hainan",)

Cuadro de lista 1. Agregue elemento ("Shenzhen",)

Haga clic en la subrutina _Botón Unirse_

. Variable local a, número entero

. Búsqueda de variable local, variable lógica

Buscar = falso

. Primer recuento (listbox1.fetch(), a)

. Si es verdadero (listbox1.fetchItemText (a - 1) = editbox1.content)

cuadro de mensaje ("editbox1.content ya tiene "¡este elemento, no se puede agregar!", 0,)

find = true

Salir del bucle ()

.Finalizar si es verdadero

.Cuenta el final del bucle ()

.Si es verdadero (buscar = falso)

listbox1.additems (editbox1.content, listbox1.fetchnumberofitems () )

.Finalizar si es verdadero

.Subroutine_ Button2_Clicked

Establecer semilla de número aleatorio ()

Editbox2.Content = Listbox1.FetchItemsText (Obtener número aleatorio (0, Listbox1.FetchItems () - 1))

.