задачи по vba

Ответ от Михаил Шишканов[гуру]
Вот письменно:
a) Dim L1 As Boolean, L2 As Boolean, L3 As Boolean (L1, L2, L3 все равны False сначала, т. к. они пусты, т. е. равны 0. Но так как тип у них Boolean(логический) - то False(так в логике Ложь обозначается) )
L1 = False, т. к. 3*3 не равно 6
L2 = True, т. к. 8<12
L3 = True, т. к. False Or True = True (или 0 + 1 = 1)
L1 = 1, т. к. True/True = 1
b) Dim a As Integer, b As Long (a = 0, b = 0 - числовым переменным в бэйсике изначально 0 приписывается при объявлении. )
Cоnst c As Integer = 1000 (ну здесь все ясно c = 1000)
a = 100000 (здесь у вас вероятно ошибка. a имеет тип Integer он принимает значения от -32768 до 32767, т. е. имеет 2^16=65536 значений. Будем думать, что вы лишний нуль ошибочно приписали. Поэтому пусть a = 10000)
b = a * c (b = 10000000, т. к. b типа Long, т. е. длинные числа)
a = a mod c (a = 0, т. к. a b, т. е. остаток от деления = 0. Делится нацело)
b = b / 200 (b = 50000, т. к. 10000000 / 200 = 50000)
c) Dim a As String, b As String, c As String (здесь a, b, c все равны "", т. е. пустые строки без символов)
a = "Что-то " (a = "Что-то ")
b = "стало" (b = "стало")
b = "с памятью моей" & b (b = "с памятью моейстало", т. к. "с памятью моей" + "стало"="с памятью моейстало". & - знак объединения строк, т. е. + или сложение)
с = a & b (b = "Что-то с памятью моейстало", т. к. "Что-то " + "с памятью моейстало"="Что-то с памятью моейстало")
На всякий случай запустил VB и проверил - все верно.
Вот ссылка на всякий случай.