Solución: dos preguntas sobre programación informática en VB
2.
(1)
Método exhaustivo, enumere todos los números de 4 dígitos del 1000 al 9999 y pruebe si son iguales a los dos divididos. números. El cuadrado de la suma de dos dígitos.
(2)
Resultado del cálculo:
2025=(20 25)^2
3025=(30 25)^2
9810=(98 10)^2
(3)
El código es el siguiente:
Subcomando privado1_Click()
Para i = 1000 a 9999
Si ((i \ 100) (i Mod 100)) ^ 2 = i Entonces
Imprimir i; ("; i \ 100; " "; i Mod 100; ")^2"
Finalizar si
Siguiente i
Fin Sub
3.
(1)
Método exhaustivo, enumere todos los números naturales del 1001 al 29999 y pruebe si pueden ser divisibles por 32 y 47 al mismo tiempo.
(2)
Dado que 47 es un número primo, determina si este número puede ser divisible por el mínimo común múltiplo de 32 y 47, 1504. Si puede ser divisible, entonces este número puede ser divisible por 32 y 47 al mismo tiempo.
El código es el siguiente:
For i = 1001 To 29999
a = 32 * 47
Si i Mod a = 0 Entonces
Imprimir i
Finalizar si
Siguiente i
(3)
Resultado del cálculo:
1504 3008 4512 6016 7520 9024 10528 12032 13536 15040 16544 18048 19552 21056 22560 24064 25568 27076
===== ========= ==
¡Espero que te ayude!