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.
Cita de: Saberuneko en 24 Mayo 2009, 21:01 PMCita de: ED® en 24 Mayo 2009, 19:18 PM
Al parecer es para descarga verdad?
Si, hay que descargarse el juego para jugar. Es gratis. (Ah! Hay que registrar el nombre de usuario, no lo olvidéis)
Private Sub Command1_Click()
n = Val(Text1.Text)
pos = 0
While n <> 0
dig = n Mod 10
conv2to10 = dig * (2 ^ pos)
acu = acu + conv2to10
n = n \ 10
pos = pos + 1
Wend
Label1.Caption = acu
End Sub