ayuda de programación vb
Función IsH(n As Long) Como Booleana
IsH = False
Si StrReverse(CStr(n)) = CStr(n) Entonces IsH = True
Si n lt; 10 Entonces IsH = False
Función final
Función IsZ(n As Long) como booleana
IsZ = Verdadero
Atenuar i
Para i = 2 a Sqr(n)
Si n Mod i = 0 entonces
IsZ = Falso
Salir para
Finalizar si
Siguiente
Si n = 0 o n = 1, entonces IsZ = False
Función final
Subcomando privado1_Click()
Dim n As Long
n = Val(InputBox("¡¡Ingrese un número entero positivo!!") )
Imagen1.Imprimir n;
Imagen1.Imprimir IIf(IsH(n), "*", "")
End Sub
Private Sub Command2_Click()
Dim n As Long
n = Val(InputBox("¡¡Ingrese un número entero positivo!!"))
Imagen1.Imprimir n;
Imagen1.Imprimir IIf(IsZ(n), "*", "")
End Sub