Expertos, ayúdenme a ver este código VB
Para i = 1 a j
......
A continuación, cambie este código a * * * * * * * * * * * * * * * La siguiente parte media:
*************************** *** **********************************************
Dim grp() como entero
Redigrp (J-1)' almacena el tema seleccionado.
nb = salario mínimo. Recuento de registros
Para i = 1 a j
Inténtelo de nuevo:
Hacer irregular
K = Int(Rnd * nb) 1 'Obtenga un número aleatorio, y el Rnd * nb más pequeño es 0, el más grande es nb-1, por lo que se suma 1 al resultado.
Si existo (grp, k), entonces
La selección aleatoria de preguntas no es solo una selección de números aleatorios, porque las preguntas seleccionadas no se pueden repetir.
Este tema ya existe. Sólo encuentra otro.
Ir a reintentar
Terminará si...
Grp(i) = k rdnb = Int((nb) * Rnd())'get Número aleatorio.
65438 Dólar Malayo 0. MoveFirst T1 = CSTR (Myrs("número"))Myrs. Abra "Insertar en SJ Seleccionar * De tmlr 2 donde número = ' " t 1 " '", Mycn, Adopenkeyset, AdlockOptimality.
Molinos. Quitar
Molinos. MoveFirst
Yo siguiente
********************************* *** *******************************************
Luego agrega una Función:
La función isExist (grp() es un número entero, ByVal k es un número entero) es un valor booleano
isExist = False
Marque I como un número entero
p>Para i = 0 al límite inferior (grp)
Si grp(i) = k, entonces
k ya existe
isExist = True
Salir de la función
Terminará si...
Siguiente I
Finalizar la función
El resto Estos son todos problemas menores.