Utilice vb para escribir un programa para seleccionar palabras al azar

Primero, diseñe la base de datos y cree una tabla de Word. El ID del campo se incrementa automáticamente, el tipo de carácter de Word, el ID del indicador se usa para identificar la palabra y los números en la clave principal no se usan como símbolo. 0 significa no tomado, 1 significa tomado. Fields(0)

Si sNum gt; 0 Entonces

Establecer RS ​​= Nada

Aleatorizar

iNum = Int(Rnd * sNum 1)

'Aleatorizar el número de ID de palabra según el estado

tSQL = "Seleccionar palabra de palabras donde ID=" amp;

Establecer RS ​​= Nuevo ADODB.Recordset

RS.Open tSQL, CN, adOpenStatic, adLockOptimistic

'Mostrar palabras

Ejecutar "Commit"

'Cerrar tabla de datos

Establecer RS=Nada

Finalizar si

Fin Sub

Sub privado Form_Load ()

Establecer CN = Nueva conexión ADODB