Заполнение двоичной переменной - VB

Формулировка задачи:

Доброго времени суток, уважаемые форумчане! Возник такой вопрос: Имеется двоичная переменная случайной длины (создана,как десятичная (случайное число) и переведена в двоичный вид)... Так же имеется требуемая длина адреса (для каждого задания своя).. Вот, собственно, и задача: как сделать так, чтобы количество разрядов в переменной стало равно длине адреса (т.е. нужно заполнить старшие разряды нулями)? Пытался сделать так:
 b = q(8) 'здесь содержится требуемое значение разрядности адреса 
a = Len(adrdv) 'определение разрядности сгенерированного адреса
 For i = 0 To b
  If a < b Then
   adrdv = Str(0) + Str(adrdv) 'как по мне, так косяк именно в этой строчке
    a = Len(adrdv)
  End If
 Next i
но как-то не удалооось=) Подскажите, что не так... Или предложите свою идею

Код к задаче: «Заполнение двоичной переменной - VB»

textual
 b = q(8)  
a = Len(adrdv) 
  If a < b Then
   adrdv = String(b - a, "0") + CStr(adrdv) 'добавляем в начало преобразованной к типу стринг 
                                                         'CStr(adrdv)    (b - a) нулей
    a = Len(adrdv)
  End If

7   голосов, оценка 4.143 из 5


СОХРАНИТЬ ССЫЛКУ