por favor necesito ayuda urgente no sean malos !!!

paoa
27 de Octubre del 2004
por favor necesito hacer unos programas para pasar de ciclo ya he hecho algunos pero solo me faltan estos.

-un programa que convierta un numero decimal a binario

-un programa que diga si el numero ingresado es primo o no

-hacer un programa que diga si un numero ingresado es un numero perfecto o no

eso es todo por favor lo necesito para el viernes sino repito de ciclo por favor se los ruego por favor

por favor, muchisimas gracias,saludos,Paola

en?
27 de Octubre del 2004
Bueno Paola, como no quiero que repitas ciclo te doy las funciones que necesitas para esos programas.
Piensa en cambiar el tipo de datos según te convenga.

Un saludo.



'Public Function aBinario(Numero As Long) As String
'Dim vRetorno As String
'
'While Numero > 0
' vRetorno = vRetorno & Mid(Cadena, (Numero Mod 2) + 1, 1)
' Numero = Numero 2
'Wend
'aBinario = StrReverse(vRetorno)
'End Function
'
'
'
'Public Function EsPrimo(ByVal Numero As Long) As Boolean
'Dim Cont As Long
'
'For Cont = 2 To Numero - 1
' If Numero Mod Cont = 0 Then Exit Function
'Next
'EsPrimo = True
'End Function
'
'
'
'Public Function EsPerfecto(ByVal Numero As Long) As Boolean
'Dim Suma As Long
'Dim Cont As Long
'
'For Cont = 1 To Numero - 1
' If Numero Mod Cont = 0 Then Suma = Suma + Cont
'Next
'If Suma = Numero Then EsPerfecto = True
'End Function