Cómo utilizar vba para crear material didáctico interactivo de opción múltiple en PowerPoint

Figura 1

Este ejemplo es muy simple. Solo hay dos preguntas: la interfaz se muestra en la Figura 1, que son preguntas, opciones y un botón. En la página donde está la última pregunta, el botón "Siguiente pregunta" se cambia a un botón "Puntuación". Desde la interfaz, necesitamos un cuadro de texto, cuatro botones de opción y un botón de comando. En términos de funcionalidad, espero que cuando haga clic en el botón "Siguiente pregunta", la interfaz pueda pasar a la siguiente pregunta; cuando haga clic en el botón "Puntuación", basta con que la puntuación de esta prueba se pueda mostrar en el; cuadro de texto de puntuación. Las opciones correctas para las dos preguntas de este ejemplo son "B" y "C", respectivamente.

2. Proceso de producción

1. Ejecute PowerPoint2003, haga clic en Archivo-Guardar para abrir el cuadro de diálogo Guardar como, establezca el nombre del archivo en Prueba y luego haga clic en Guardar.

2. Haga clic en el comando "Insertar"-"Cuadro de texto"-"Horizontal". En este momento, el mouse cambiará a "1". Haga clic con el botón izquierdo del mouse en el área de edición y arrastre el mouse para dibujar un cuadro. Ingrese el título de la primera pregunta "1. Cuanto mayor sea el radio orbital del satélite terrestre artificial, entonces" en el cuadro.

3. Hagamos una elección. Haga clic en Ver-Barra de herramientas-Caja de herramientas de control para abrir la Caja de herramientas de control. Haga clic en el control Botón de opción en la Caja de herramientas de control y el mouse se convertirá en una cruz. Mantenga presionado el botón izquierdo del mouse y arrastre el mouse para sacar un cuadro. Haga clic en el comando "Propiedades" en la "Caja de herramientas de control" para abrir el cuadro de diálogo "Propiedades", cambie el nombre a "ti1", cambie el "Título" a "a. Cuanto más lenta sea la velocidad, más corto será el ciclo". y cambiar otras configuraciones es el valor predeterminado. Como se muestra en la Figura 2.

Figura 2

Los nombres de las otras tres opciones son "ti2", "ti3" y "ti4", y los títulos son "b". cuanto mayor sea el período ", "c. Cuanto más rápida sea la velocidad, menor será el período", "d.

4. Presione el botón "Siguiente pregunta". Haga clic en el control del botón de comando en la Caja de herramientas de control y el mouse adoptará una forma de cruz. Si anteriormente arrastró un cuadro en el área de edición, al soltar el cuadro del mouse lo convertirá en un botón. Selecciónelo, haga clic con el botón derecho del mouse, seleccione el comando "Propiedades" en el menú contextual emergente y establezca el "Título" en las propiedades del "Botón de comando" en "Siguiente pregunta".

De esta forma se completa la interfaz de la primera pregunta. Podemos resolver el segundo problema según los pasos 2 a 4, pero necesitamos cambiar el título y el valor de cada opción. Además, necesitamos agregar un comando de cuadro de texto con su nombre establecido en "suma" y el nombre del botón de comando cambiado a "puntuación".

Tercero, agregue código

1. Haga clic en el control de vista de código en la caja de herramientas de control para abrir el editor visual basic de Microsoft. Haga clic en el comando Insertar módulo para abrir la edición del módulo. window., ingrese "fen público (2) como número entero" en la ventana de edición del módulo.

2. Seleccione el botón "Siguiente pregunta" en la primera pregunta, haga clic en el control "Ver código" en la caja de herramientas de control y aparecerá el editor "Microsoft Visual Basic" en el botón "Subcomando privado". 1 _ clic()" y "Fin Sub".

Si ti2. Entonces valor = verdadero

fen(0) = 2

Otro

fen(0) = 0

Terminará si. ..

Con ventana de presentación de diapositivas (1). Perspectiva

.

GotoSlide (2)

Termina con...

3. Seleccione el botón "Puntuación" en la última pregunta, haga clic en el control "Ver código" en la caja de herramientas de control y en Editor "Microsoft Visual Basic", ingrese entre "botón de comando secundario privado 1_click ()" y "Finalizar sub".

Si ti3. Entonces valor = verdadero

fen(1) = 2

Otro

fen(1) = 0

Terminará si. ..

Atenuar I, s

s = 0

Para i = 0 a 2

s = s puntos(I)

Entonces

Sum = s

Bien, sal del editor visual basic de Microsoft y presiona F5 para probar el efecto.