[VBA] Conversione da numero intero a binario

[cicciodoors]

Salve, sto cercando di svolgere il seguente esercizio in visual basic (classico modulo):
Lettura di un numero intero positivo e determinazione del suo binario.

Ora io so come procedere mentalmente, l unico problema che sto trovando é come faccio a mostrare in output la sequenza binaria? cioé come memorizzo i vari Resti che mi devo conservare dalle divisioni con modulo.

Al momento conosco solo variabili normali, ciclo while, if, else e basta.

Scusate, spero che qualcuno mi sappia indicare un modo semplice ed efficace.

Grazie

[oregon]

Vb6 o vbnet?

[optime]

e intanto posta il codice che hai scritto sinora, che lo si controlla, grazie

[cicciodoors]

Vb6 o vbnet?

Visual basic 7.1 application edition

[cicciodoors]

e intanto posta il codice che hai scritto sinora, che lo si controlla, grazie

Salve, il codice é sicuramente errato che stavo facendo delle prove, sbagliando, cmq l ultima prova era cosi:
Sub Binario()

Dim n As Integer
Dim r As Integer
Dim contazero As Integer
Dim contauno As Integer

n = InputBox("Inserisci un numero per trovare il suo binario")
contazero = 0
contauno = 0

While n > 0
r = n Mod 2

If r = 0 Then
contazero = contazero + 1
ElseIf r = 1 Then
contazero = contazero + 1
End If
n = n - 1
Wend
MsgBox ("numero binario " & contazero & contauno)

End Sub

[cicciodoors]

piu che altro non riesco a capire come memorizzare da qualche parte questi 0 e 1 e darli correttamente in output (es. 101)

[oregon]

Visual basic 7.1 application edition

VB6? VBA?

Non puoi essere più chiaro?

Comunque quelle contazero e contauno non ti servono a nulla.
Usa una stringa e aggiungi in testa il singolo 1 o 0 che trovi con il mod

[cicciodoors]

VB6? VBA?

Non puoi essere più chiaro?

Comunque quelle contazero e contauno non ti servono a nulla.
Usa una stringa e aggiungi in testa il singolo 1 o 0 che trovi con il mod

Scusa, pensavo di essere stato chiaro, perché ho aperto excel 2016, apro visual basic dalla scheda sviluppo e clicco sul ? "informazioni microsoft visual basic 7.1 application edition mi esce scritto.
Come si usa una stringa o come é il comando per assegnare una stringa?
grazie

[oregon]

Quando hai mai parlato di Excel?

[oregon]

Comunque, dato che non hai alcuna idea di cosa fare, è inutile girarci attorno ... studiati queste linee

Dim n As Integer
Dim r As Integer
Dim res As String


n = InputBox("Inserisci un numero per trovare il suo binario")


While n > 0
  r = n Mod 2
  res = r & res
  n = n \ 2
Wend


MsgBox ("numero binario " & res)