Un problema en VB

'Usa 1 2 3 4 para representar A B C D

Dim m(1 To 4)

m(1) = "234" 'Es B/C/D

m(2) = "3" 'es C

m(3) = "4" 'es D

m(4) = "123" 'es A /B /C

Fori = 1 To 4 'Supongamos que el ladrón es i

Número de verdades % = 0

For j = 1 To 4 ' Supongamos que el ladrón es i Verifique la autenticidad del discurso bajo las condiciones

Si InStr(m(j), CStr(i)) entonces el número de palabras reales % = el número de palabras reales % + 1

Siguiente j

Si Número de palabras verdaderas % = 3 Entonces 'Si 3 es verdadero y 1 es falso

MsgBox "El ladrón es " & mid( "ABCD",i,1)

Finalizar si

Siguiente i