Código fuente del subprograma Vb

Sólo haré el programa cliente porque no sé cómo transferir datos a través de la LAN, por lo que no puedo enviar los datos del cliente al host.

Puse las palabras en la base de datos (aa.mdb) y el programa seleccionó al azar 10 palabras. Te he enviado los archivos del proyecto.

Código:

Atenuar adocn como nuevo ADODB. Relación

Atenuar a(1 a 5)

Representar n como un número entero

Atenuar j como un número entero

Subformulario privado_ Carga( )

adoc. ConnectionString = " Proveedor = Microsoft. Jet . OLEDB.4.0 Fuente de datos = " ampApp. Caminos y caminos. " \ aa . MDB; información de seguridad persistente = False "

Conector final

Subcomando privado 1_Click()

Temporizador 1. intervalo = 500

Comprobación de llamadas

Conector final

Subtimer1_Timer() privado

if Label6. Entonces Caption = 0

Para z = 1 a 5

Si control("text" y .z) = a(z) entonces n = n 1

Entonces

j = j 1

Comprobación de llamadas

Otro

Etiqueta 6. título=etiqueta6. Título - 1

Terminará si...

Si j = 2, entonces

MsgBox "La puntuación es"; >Dispositivo de sincronización 1. intervalo = 0

Terminará si...

Finalizar empalmes

Subcha privada()

Para z = 1 a 5

Control(ampz "texto"). text = " "

Entonces

adocn. Abra

Atenúe rs como nuevo ADODB. Conjunto de registros

Atenuar strSql como cadena

Para i = 1 a 5

Irregularizar

StrSql = " seleccionar * de ss donde número = " ;Int(Rnd * 35 1) '35 se refiere a * * * el número total de temas.

rs. Abra el control strSql, adocn, 3, 3

("label" & i). Título = rs. campos("Asunto")

A(i) = rs. field("respuesta")

Establezca rs=Ninguno

Luego

adocn. Cerrar

Etiqueta 6. Caption=30

Conector final

Ya lo envié y lo probé, y los dos grupos terminaron automáticamente.