¿Cómo utilizar matrices y marcos para crear un conjunto de preguntas de opción múltiple en VB? ¿Cómo programar?

La interfaz solo necesita agregar 1 cuadro y 4 cuadros de botones de opción (si es una pregunta de opción múltiple, reemplácela con un cuadro de opción múltiple. Cada vez que haga clic en la siguiente pregunta, aparecerá). La pregunta y las opciones se mostrarán arriba, de manera similar a esto:

En cuanto a la puntuación, simplemente use una variable para calcularla. La puntuación se calificará después de enviar cada pregunta y se mostrará la puntuación total. después de completar todas las preguntas.

Código:

Matriz bidimensional Dim QS(99,5)', aquí se definen 100 preguntas y la segunda dimensión es el contenido de la pregunta. Sería más natural utilizar una estructura personalizada aquí

'Initialize array

QS(0, 0) = "¿Cuántas horas dura la autobiografía de la Tierra en una semana?"'Pregunta

QS(0, 1) = "8"'Opción 1

QS(0, 2) = "12"'Opción 2

QS(0 , 3) = "24" 'Opción 3

QS(0, 4) = "48"'Opción 4

QS(0, 5) = "3"'Respuesta

..

'Mostrar preguntas, como hacer clic en el botón "Siguiente pregunta"

Private Sub cmdNext_Click()

mnIndex = mnIndex + 1 'Variable global

Frame1.Caption ="Título" & mnIndex & ":" &?QS(0, 0)?

Opción1(0).Caption = QS (0, 1)?

Opción1(1).Caption = QS(0, 2)?

Opción1(2).Caption = QS(0, 3)?

Opción1( 3).Caption = QS(0, 4)?

Fin Sub