juego 3 en raya

[azimutisima]

Una forma sencilla:

- La pregunta y la respuesta la puedes almacenar en un array (arreglo) y cargarla por codigo en tu programa la inicio. P.e.

Dim Preguntas[1 to 20] as string
Dim Respuestas[1 to 20] as string
Preguntas[1]="¿Capital de España?"
Respuestas[1]= "Madrid"
....

Asi hasta las 20 preguntas que tienes definidas en el array.



- Luego a la hora de lanzar, generas un numero aleatorio entre el 1 y el 20 con la formula: Aleatorio = CInt((Minimo - Maximo) * Rnd + Maximo)

Adaptado al ejemplo seria: Aleatorio = cInt((1-20) * Rnd + 20)

Y muestras la pregunta con un msgbox Preguntas[Aleatorio]

Y comparas la respuesta con Respuesta [Aleatorio]

Ya me dirás si te valio.