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

  1. Доброго времени суток, уважаемые форумчане! Возник такой вопрос: Имеется двоичная переменная случайной длины (создана,как десятичная (случайное число) и переведена в двоичный вид)... Так же имеется требуемая длина адреса (для каждого задания своя).. Вот, собственно, и задача: как сделать так, чтобы количество разрядов в переменной стало равно длине адреса (т.е. нужно заполнить старшие разряды нулями)? Пытался сделать так:


textual

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

 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



Похожие ответы
  1. Необходимо заполнить массив n*n по правилу 1 2 3 4 .. n 0 2 3 4 .. n 0 0 3 4 .. n 0 0 0 4 .. n 0 0 0 0 .. n У меня получается 1 2 3 4 0 3 4 5 0 0 5 6 Я думаю проблема в строке x = x + 1, когда коментил ее заменялось как надо, но не было порядка 1 2 3 4 .. Помогите увидеть проблему в коде.

  1. Привет всем!!! Не так давно начал изучать программировании, выбрал для себя VB 6.0, сегодня целый день мучаюсь как заполнить форму шарами. Вот код, но тут одна полоска из шаров, а я хочу чтоб шарики заполняли половину формы .И сразу вопрос, можно ли использовать такую схему для создания игры там где внизу появляется шарик рандомного цвета и им нужно стрелять по шарикам которые находятся на верху и тоже разных цветов. Спасибо

  1. Создать проект заполнения массива А(5,5) произвольными числами с клавиатуры. Вывести на экран четные элементы. помогите

  1. Подскажите пожалуйста есть ли способы произвольного заполнения формы точками и обратно исчезновения их. Что то вроде рассвет-закат.

  1. Йоу, я совсем не шарю в бейсике, только поверхностно, в общем, дана матрица такая матрица, и мне надо в блоксхемах это всё. Но у меня по сути один вопрос, когда я пишу i = 1 to 5, j = 1 to 4, мне надо как-то юзать эти единицы и двойки непосредственно в коде или схемах? Ну то есть, где задается, что именно тут первая строка будет из единиц, вторая из двоек и тд. Ведь код заполнения матрицы тех же размеров с другими числами будет другим, верно? Объясните пожалуйста 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1

  1. Разработать информационную технологию, позволяющую заменить чётные значения элементов матрицы на единицу, а нечетные – на нуль. Размерность матрицы произвольная и задаётся вводом. Private Sub Command1_Click() Dim m As Integer, i As Integer, j As Integer Dim e() As Byte m = InputBox("Колличество строк") ReDim e(1 To m, 1 To m) For i = 1 To m For j = 1 To m If i = 1 Then e(i, j) = 0 End If Next j Next i Cls Print Spc(10); i; "Единичная матрица" For i = 1 To m For j = 1 To m Print e(i, j); Next j Print Next i End Sub Подскажите пожалуйста, как поставить условие обозначающее чётность/нечётность элемента матрицы.

  1. Ребят помогите пожалуйста. Требуется разработать информационную технологию, позволяющую заполнить вектор В значениями столбцов матрицы А произвольной размерности, имеющими нечётные индексы.

  1. Подскажите как на форме автоматически заполнить свойство Text_1.Caption=xxxx где 1 принимает значение от 1 до n (Text_1.Caption,Text_2.Caption,Text_3.Caption...) xxx любое значение

  1. В VBA Сделал приложение которое заполняет таблицу Excel все работает хорошо Код:

  1. Нужно вывести среднее значение одномерного массива размером 20 элементов, заполненного случайными числами из отрезка [-20,20] Помогите плз