Usa el buscador del foro. Apenas hace 2-4 meses ya asistí a otro usuario sobre el tema, si lo buscas, lees y comprendes, te servirá...
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Private Sub Form_Load()
Dim numero As Integer, suma As Integer, digito As Integer ' , par As Boolean no hace falta
numero = InputBox("Introduce un numero: ") ' si ofrece un valor superior a 32767 generará un error de desbordamiento, mejor si lo declaras como 'long', en vez de 'integer'
'par = False
'suma = 0 con la declaración ya se establece el valor a 0.
Do While (numero > 0)
digito = (numero Mod 10)
If ((digito And 1) = 0) Then ' "mod 2" es lo mismo que "and 1", pero así mucho más rápido
suma = (suma + digito)
'par = True
End If
numero = (numero \ 10) ' esta línea debe quedar fuera del condicional
' se debe ejecutar si o si en cada ciclo, para tener acceso al siguiente dígito
' además debe ser "\" (una división entera) no "/"
' ...O bien eliminar los decimales con: numero = Int(numero / 10)
' porque dejará decimales y al ser 'numero' declarado entero forzará un redondeo que falsea el resultado...
Loop
MsgBox ("La suma de los digitos de valor par es: " & suma)
End Sub
array de string = Funcion Binario2alaN(entero n)
entero j, k, v
string vBin
array de string ArrayBin(0 a (2^n)-1))
bucle para k desde 0 a (2^n)-1))
v = k
bucle para j desde 0 a n-1
vbin = (v and 1).ToString concatenadodelantede vbin
v = (v\2)
fin bucle
ArrayBin(k)= vBin
vBin = ""
devolver ArrayBin
Fin bucle