¿Cómo seleccionar aleatoriamente algunos de los 50 caracteres chinos especificados en idioma Yi?

.Versión 2

.Ventana de ensamblaje ventana de inicio_ensamblaje

.Recuento de palabras de la variable de ensamblaje, tipo entero

.Las variables del conjunto de programas toman palabras , tipo entero

. Recuento de variables de ensamblaje, tipo entero

Las variables de ensamblaje no se repiten, tipo de texto, "0"

.Texto de variable de ensamblaje, tipo de texto

.Subrutina __start window_created

Etiqueta 1. Título="Ingresar caracteres chinos"

Etiqueta 2. Título = "Obtener algunas palabras"

Etiqueta 3. Título = "Obtener las palabras"

Cuadro de edición 1. Si se permiten varias líneas = Verdadero

Cuadro de edición 3. Si se permiten varias líneas = verdadero

Establecer semilla de número aleatorio()

Se hace clic en el botón de subrutina 1

Borrar matriz (no repetida)

Cuadro de edición 3. Contenido = ""

Número de palabras = Tomar la longitud del texto (cuadro de edición 1. Contenido) ÷ 2

Contar encabezado del bucle (número de palabras, contar)

. >. Si es verdadero (obtener código (cuadro de edición 1. contenido, contar × 2 - 1) > 0)

Escapar del bucle ()

.Si es verdadero, final

. Contar el final del bucle()

.Si es verdadero (contar

Cuadro de información ( "El texto de entrada contiene caracteres que no son chinos", 0, "¡Error!", )

Regresar ()

Si es verdadero, finaliza

Si es verdadero (a un número entero (cuadro de edición 2. contenido) > palabra. count)

Cuadro de información ("¡El número de palabras tomadas excede el número de palabras ingresadas!", 0, , )

Return ()

.If verdadero, fin

Recoge palabras aleatoriamente ()

La subrutina selecciona palabras aleatoriamente

Obtener palabras = tomar un número aleatorio (1, número de palabras)<. /p>

Texto = Toma la mitad del texto (cuadro de edición 1. Contenido, toma la palabra × 2 - 1, 2)

Contando el encabezado del bucle (obtiene el número de miembros de la matriz (no). repetido), contar veces)

Si es verdadero (no repetir [cuenta] = texto)

Saltar del bucle ()

. , fin

. Contar bucle tail()

Si es verdadero (recuento ≤ obtener el número de miembros de la matriz (no repetidos))

Seleccione palabras al azar (. )

.Si es verdadero fin

Agregar miembros (no repetido, texto)

.Si es verdadero (tome la longitud del texto (cuadro de edición 3. contenido) ÷ 2 < a entero (cuadro de edición 2. Contenido))

Cuadro de edición 3. Agregar texto (texto)

Seleccione palabras al azar ()

Si termina.

Regresar ()