Программа 20.7. Присваивание
Программа 20.7. Присваивание
Sub LetEgual()
Dim age As Integer, str$
Dim peoplel As Person, people2 As Person, peoples As Person
age = 32
str = "Жизнь прекрасна"
peoplel.name = "Александр" people2.name = peoplel.name + "a" Msgbox(people2.name) peoples = people2 Msgbox(peopleS.name) End Sub
Следующий оператор присваивания, который мы рассмотрим в данном разделе, — LSet. Он служит для специфического присваивания строк с одновременным выравниванием слева, а также для присваивания значения записи одного типа записи другого типа.
LSet имяСтроковойПвременной = СтроковоеВыражение LSet имяПеременной! = имяПеременной2
В первом случае результатом присваивания является строка той же длины, что и у значения имяСтроковойпеременной. Если значение выражения СтроковоеВыражение длиннее, то лишние символы справа удаляются, если короче — заполняются пробелами справа.
Во втором случае присваивание аналогично вышеописанному случаю с использованием оператора Let, но только здесь не обязательно, чтобы типы полей совпадали. Конечно, подобное присваивание чревато сообщениями компилятора о несоответствии типов. Мы советуем использовать данную конструкцию с очень большим вниманием.
В программе 20.8 инициализированы две строковых переменных, после чего происходит левое присваивание и вывод значения переменной str1 ("<-Влево").
