Elavoracion de un examen en vb 6.0

Me gustaria pasar un programa de examen que tengo en vb orientado a excel a visual basic 6.0 pero no puedo hacerlo.
Este es el codigo del programa en excel:
Private Sub cmdSiguiente_Click()
x = Val(lblNo.Caption)
bueno = Sheets("examen").Range("g" & x).Value
'**********front Page**********************
If Sheets("examen").Range("b" & x).Value = "FRONT PAGE" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso correcto", , "Conversa")
front = front + 1
lblFront = front
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********corel**********************
If Sheets("examen").Range("b" & x).Value = "DRAW" Or Sheets("examen").Range("b" & x).Value = "PHOTO PAINT" Or Sheets("examen").Range("b" & x).Value = "RAVE" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
Corel = Corel + 1
lblDiseño = (Corel / 2)
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********word**********************
If Sheets("examen").Range("b" & x).Value = "WORD" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
word = word + 1
lblWord = word
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********WINDOWS**********************
If Sheets("examen").Range("b" & x).Value = "WINDOWS" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
windowsX = windowsX + 1
lblW = windowsX
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********coi**********************
If Sheets("examen").Range("b" & x).Value = "COI" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
Coi = Coi + 1
lblCoi = Coi
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********Noi**********************
If Sheets("examen").Range("b" & x).Value = "NOI" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
Noi = Noi + 1
lblNoi = Noi
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********sae**********************
If Sheets("examen").Range("b" & x).Value = "SAE" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
Sae = Sae + 1
lblSae = Sae
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********EXCEL**********************
If Sheets("examen").Range("b" & x).Value = "EXCEL" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
Excelx = Excelx + 1
lblExcel = Excelx
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********html**********************
If Sheets("examen").Range("b" & x).Value = "HTML" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
html = html + 1
lblHtml = html
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********VISUAL**********************
If Sheets("examen").Range("b" & x).Value = "VISUAL" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
Visual = Visual + 1
lblVisual = Visual
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********POWER**********************
If Sheets("examen").Range("b" & x).Value = "POWER" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
Power = Power + 1
lblPower = Power
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********MANTENIMIENTO**********************
If Sheets("examen").Range("b" & x).Value = "MANTENIMIENTO" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
Mantenimiento = Mantenimiento + 1
lblMan = Mantenimiento
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********ACCESS**********************
If Sheets("examen").Range("b" & x).Value = "ACCESS" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
Access = Access + 1
lblAccess = Access
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********PUBLISHER**********************
If Sheets("examen").Range("b" & x).Value = "PUBLISHER" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
Publisher = Publisher + 1
lblPublisher = Publisher
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********Cargar pregunta***********
lblNo.Caption = x + 1
x = x + 1
lblPuntos = ((html / 35) * 100)
If Sheets("examen").Range("a" & x).Value = "*" Then
Z = MsgBox("termino el examen, su promedio es de :" & Int(lblPuntos), ,...

1 Respuesta

Respuesta
1
MAndame el programa a mi correo
[email protected]
tengo problemas con la base de datos del programa que me mandaste de ejemplo
no la puede leer.....
lo que pasa es que nolo lee me dice que el archivo esta dañado y cuando trato de abrir la bace desde access
me dice que el archivo esta protegido o que necesito un permiso del autor..
yo tengo instalado el office 2000 y windowsME ¿crees que ea por eso?
Como que no la puedes leer explicame el error ami me funciona perfecto
Revisa tu correo te envie otro ejemplo

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas