es mi codigo

thelma
07 de Octubre del 2003
Hola!!! estoy haciendo un programa donde es un examen son 15 preguntas. dividas en 3 formularios... y no me funciona cuando ago la oeracion-..... y quiero que de el sesultado...ESTE ES NI CODIGO...(si me pueden ayudar plis);

Private Sub Command2_Click()

'declaracion de las variables'

Dim resultado As Integer
Dim calcular As Integer
Dim res1 As Integer
Dim res2 As Integer
Dim res3 As Integer
Dim res4 As Integer
Dim res5 As Integer
Dim res6 As Integer
Dim res7 As Integer
Dim res8 As Integer
Dim res9 As Integer
Dim res10 As Integer
Dim res11 As Integer
Dim res12 As Integer
Dim res13 As Integer
Dim res14 As Integer
Dim res15 As Integer

resultado = Val(Text1.Text)

'If op2.Value = True Then
'res1 = 6.666666667
'End If '

'If op8.Value = True Then
'res2 = 6.666666667
'End If

'If op9.Value = True Then
'res3 = 6.666666667
'End If

'If op13.Value = True Then
'res4 = 6.666666667
'End If

'If op20.Value = True Then
'res5 = 6.666666667
'End If

'If op23.Value = True Then
'res6 = 6.666666667
'End If

'If op26.Value = True Then
'res7 = 6.666666667
'End If

'If op31.Value = True Then
'res8 = 6.666666667
'End If

'If op.Value = True Then
'res9 = 6.666666667
'End If

'If op39.Value = True Then
'res10 = 6.666666667
'End If

'If op40.Value = True Then
'res11 = 6.666666667
'End If

'If op47.Value = True Then
'res12 = 6.666666667
'End If

'If op49.Value = True Then
'res13 = 6.666666667
'End If

'If op59.Value = True Then
'res14 = 6.666666667
'End If

'If op56.Value = True Then
'res15 = 6.666666667
'End If

'resultado = res1 + res2 + res3 + res4 + res5 + res6 + res7 + res8 + res9 + res10 + res11 + res12 + res13 + res14 + res15
'Text1.Text = resultado



End Sub


Marcelo
07 de Octubre del 2003
hola. 1)es mas facil si creas una matriz de check box
(metes un check box en el formulario y luego copiasy pegas cuantos check box quieras poner)
haces doble click en cualquier check box y pones:
Private Sub Check1_Click(Index As Integer)
res = 0
For i = 0 To Check1.Count - 1
If Check1(i) = Checked Then
res = res + 6.666666667
End If
Next
Text1.Text = res

End Sub
// en las declaraciones generales, poné dim i as integer y dim res as double
suerte!!!!!!