Ciao a tutti,
Ecco sono qui per esporvi il mio problema.
Private Sub cmdnumero_Click()
Dim num, a As Double
Dim risultato(1 To 100) As String
num = Val(InputBox("Dammi un numero decimale"))
Do Until (num <= 0)
For i = 1 To num
If num >= 1 Then
a = num Mod 2
num = num \ 2
risultato(i) = Str(a)
risultato(i) = risultato(i) + Str(a)
MsgBox risultato(i)
Else
End
End If
Next i
Loop
End Sub
Ora la posizione dell'istruzione risultato(i) = risultato(i) + Str(a) so gia in partenza che è sbagliata infatti lo scopo e una volta che ho inserito il primo valore binario nel vettore ne devo aggiugnere un secondo invece cosi come ho fatto io ogni singolo valore viene inserito 2 volte.
Come posso fare?
P.S.:
Bisogna sistemare anche la posizione delle cifre binarie infatti esse sono stampate al contrario ma ho gia provveduto.
Grazie.![]()
![]()
![]()