Red de conocimiento informático - Problemas con los teléfonos móviles - ayuda de programación vb

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