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",) p>
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))
.