Пригадайте бо знайдіть в інтернеті назви планет сонячної системи створіть список автозаповнення з назвами планет

Для перевода в двоичную систему делим число на 2 и записываем остатки от деления 
285/2=142 остаток 1
142/2=71 остаток 0
71/2=35 остаток 1
35/2=17 остаток 1
17/2=8 остаток 1
8/2=4 остаток 0
4/2=2 остаток 0
2/2=1 остаток 0
1/2=0 остаток 1
записываем остатки снизу вверх

285₁₀=100011101₂

для перевода десятичного числа в восьмеричную систему счисления  проделываем те же операции, только делим на 8
285/8=35 остаток 5
35/8=4 остаток 3
4/8=0 остаток 4
записываем ответ снизу вверх
285₁₀=345₈
для перевода десятичного числа в шестнадцатеричную систему делим соответственно на 16
285/16=17 остаток 13, что в шестнадцатеричной системе соответствует букве D
17/16=1 остаток 1
1/16=0 остаток 1
ответ 285₁₀= 11D₁₆

Dim A(100) As Integer, Odin As Boolean
Dim k As Integer , i As Integer
Randomize
For i = 1 To 100
A(i) = Int(Rnd*100) + 1 ' Заполняем массив случайными числами от 1 до 100
Print A(i) & CHR(9); ' Выводим начальный массив через табуляцию
Next i
Print "Повторяющиеся элементы"
For i = 1 To 100
For k = i+1 To 100
If A(i) = A(k) Then Print A(i) & CHR(9);
Next k
Next i
Print "Не повторяющиеся элементы"
For i = 1 To 100
Odin = True 
For k = i+1 To 100
If A(i) = A(k) Then Odin = False
Next k
If Odin = True Then  Print A(i) & CHR(9);
Next i
End