RE:analizador de respuestas
Hola, Patricia!!!
Lo puedes hacer de esta manera:
Dim con1, con2, con3, con4 As Integer
Private Sub Command1_Click()
con1 = 0: con2 = 0: con3 = 0: con4 = 0
Dim x As Object
For Each x In Me.Controls
If TypeOf x Is ComboBox Then
Select Case x.Text
Case "A": con1 = con1 + 1
Case "B": con2 = con2 + 1
Case "C": con3 = con3 + 1
Case Else: con4 = con4 + 1
End Select
End If
Next
MsgBox "Porcentaje de A: " & (con1 * 100) / 100 & "%"
MsgBox "Porcentaje de B: " & (con2 * 100) / 100 & "%"
MsgBox "Porcentaje de C: " & (con3 * 100) / 100 & "%"
MsgBox "Porcentaje de D: " & (con4 * 100) / 100 & "%"
End Sub
Private Sub Form_Load()
con1 = 0: con2 = 0: con3 = 0: con4 = 0
End Sub
PDTA: cualquier otra duda escribeme.
Saludos!!