Primero, abra Excel y presione Alt F11 para abrir el editor VBA. A continuación, inserte un nuevo módulo en el editor VBA (seleccione "Módulo" en el menú "Insertar") y pegue el siguiente código:
Copiar código Vba
Opción explícita
Solicitud de subgeneración()
Operador atenuado en forma de cadena
Dim Num1 es Doble, Num2 es Doble
Resultados de desenfoque de doble precisión p>
Atenuar las celdas como un rango
Seleccione aleatoriamente un operador (sumar, restar, multiplicar)
"Temporizador aleatorio" configurado en aleatorio Cuente las semillas para garantizar que el programa produce resultados diferentes cada vez que se ejecuta.
Operador = Array("(", "-", " * ")
Operador = Operador(Int(Rnd * 3))
Selección aleatoria dos números.
Num1 = Int(Rnd * 100)' Genera un entero aleatorio entre 0 y 99.
Num2 = Int(Rnd * 100)' Genera un entero aleatorio entre 0. y 99.
Calcula el resultado en función del operador seleccionado
Operador de caso"("
p>Resultado = Num1 Num2
Resultado = Num1 - Num2
Caso " * "
Resultado = Num1 * Num2
Fin de selección
Muestra la fórmula en la celda A1 y la respuesta correcta en la celda B1
Rango(" A1 ". ). muestra la fórmula
rango("B1"). "valor=resultado" muestra la respuesta correcta
Conector final
Guarde y cierre el editor de VBA. ingrese la siguiente fórmula en cualquier celda de la hoja de cálculo de Excel: =GenerarPregunta(). Presione la tecla Intro para ejecutar la fórmula y el programa se ejecutará en la celda A1. Generará automáticamente una pregunta aritmética aleatoria y la respuesta correcta en B1. p>