Programación Vb6.0 de cálculo oral y puntuación.
5 puntos es muy poco.
Ya que todavía estás en primera línea, déjame ayudarte... Diseña la interfaz y mira las imágenes.
La base de datos utiliza ACCESS2003, llamada dbase.mdb?, ¿crea una tabla llamada? tiku
Crea los siguientes campos
¿Número de identificación?
Agregue registros manualmente, los registros deben tener más de 240 líneas....
El código es el siguiente:
¿Opción?Explícito
Público?th?As?Entero
Público?cws?As?Entero
Público?zth?As?Entero
Público?sl? Como?Integer
Público?da?As?Integer
Público?cn?As?ADODB.Connection
Público?rs?As?ADODB.Recordset
¿Público?sql?As?String
Privado?Sub?qjl()
rs.Close
cn.Close
Set?rs?=? Nada
Set?cn?=?Nothing
End?Sub
'Declarar conexión a base de datos relacionada.
¿Función?Pública?constr()?Como?Cadena
constr?=?"provider=microsoft.jet.oledb.4.0;data?source="?amp;?App.Path ?amp;?"\dbase.mdb ;"
¿Fin?Función
'Ruta de la base de datos
¿Pública?Función?seta()?As?String
Establecer?cn?=?Nuevo?ADODB.Connection
Establecer?rs?=?Nuevo?ADODB.Recordset
cn?=?constr
cn.Open
¿Fin?Función
¿Privado?Sub?tongji()
Si?opt1.Value?=?False?Y? opt2.Value?=?False? Entonces
zth?=?zth?1
cws?=?cws?1
l6.Caption? =?Str(zth)
Else
Si?da?=?CInt(sl)?Entonces
zth?=?zth? p>
l6.Caption ?=?Str(zth)
Else
zth?=?zth ?1
cws?=?cws ?1
l6.Caption?=?Str(zth)
Fin?Si
Fin?Si
Fin?Sub
Privado ?Sub?qkz()
t1.Enabled?=?False
t2.Enabled?=?False
opt1 .Enabled?=?False
opt2.Enabled?=?Fa
lse
l4.Caption?=?"0"
l2.Caption?=?"0"
l3.Caption?=?"0"
l5.Caption?=?""
l6.Caption?=?"0"
Fin?Sub
Privado?Sub ?cmdr_Click()
¿Llamar?qkz
Si?zth?=?0?Entonces
¿Llamar?qkz
MsgBox?" ¡Si no hay respuesta a ninguna pregunta, no hay resultado!",?vbInformation,?"-Prompt-"
Else
Llamar?qkz
If?MsgBox (" Los puntajes de su examen esta vez son los siguientes:"?amp;?vbCrLf?amp;?"Su número total de preguntas es:?"?amp;?zth?amp;?"?El número de preguntas incorrectas es:?" ?amp;?cws?amp;?"?Su precisión es:?"?amp;?Format(((zth?-?cws)?/?zth)?*?100,?"0.00")?amp ;? "?."?amp;?vbCrLf?amp;?"¿Quieres responder la pregunta de nuevo?",?vbInformation? ?vbYesNo? ?vbDefaultButton2,?"-Pregunta?-")?=?vbYes?Entonces
¿Llamar?qkz
MsgBox?"Por favor, haga clic en el botón?lt; comenzar a responder>? para comenzar a responder!",?vbInformación,?"-prompt-"
De lo contrario
Llamar?qkz
th?="1"
zth?=?0
cws?=?0
da?=?2
sl?=?2
Fin?Si
Fin?Si
¿Fin?Sub
Privado?Sub?cmds_Click()
l2.Caption?=?"120"
l3.Caption?=?"10"
t1.Enabled?=?True
t2.Enabled?=?True
th?=?"1"
cmdn . ¿Habilitado?=?True
opt1.Enabled?=?True
opt2.Enabled?=?True
zth?=?0
cws?=?0
Llamar?chuti
Fin?Sub
Privado?Sub?chuti()
opt1 . Valor?=?0
opt2.Value?=?0
seta
sql?=?"select?*?from?[tiku]? donde ?[tihao]="?amp;?th?amp;?""
rs.Open?sql,?cn,?adOpenKeyset,?adLockOptimistic
If?rs. Campos ("tihao")?=?""?Entonces
Llamar?qjl
MsgBox?"¡No hay preguntas en el banco de preguntas!",?vbInformation,?"-Prompt - "
Else
th?=?CInt(rs.Fields("tihao"))? ?1
p>
l4.Caption?=?Str(rs.Fields("tihao"))
l5.Caption?=?rs.Fields("timu")
da?=?CInt(rs.Fields("daan"))
Llamar?qjl
Fin?If
Fin?Sub
Privado?Sub?Form_Load()
t1.Enabled?=?False
t2.Enabled?=?False
opt1.Enabled?=? Falso
opt2.Enabled?=?Falso
Fin?Sub
Privado?Sub?opt1_Click()
sl?=? "1"
¿Fin?Sub
Privado?Sub?opt2_Click()
sl?=?"0"
¿Fin? Sub
¿Privado?Sub?t1_Timer()
Si?CInt(l2.Caption)?=?0?Entonces
t2.Enabled?=?False
t1.Enabled?=?False
If?MsgBox("¡El tiempo total ha expirado y no se pueden responder más preguntas!"?amp;?vbCrLf?amp;?" ¿Quieres verlo?",?vbInformación? vbSíNo,?"-Preguntar-")?=?vbSí?Entonces
Llamar?cmdr_Click
Si no
¿Salir?Sub
Fin?Si
Else
l2.Caption?=?CInt(l2.Caption)?-?1
¿Fin?Si
Fin?Sub
Privado?Sub?t2_Timer()
Si?CInt(l3.Caption)?=? 0?Entonces
Llamar?tongji
Llamar?chuti
l3.Caption?=?"10"
Si no
l3.Caption?=?CInt(l3.Caption)?-?1
Fin?Si
Fin?Sub