- Код: Выделить всё
a="Вася"
if b then a="Петя"
или
- Код: Выделить всё
if b then
a="Петя"
else
a = "Вася"
endif
или
- Код: Выделить всё
a=IIf(b,"Петя","Вася")
a="Вася"
if b then a="Петя"
if b then
a="Петя"
else
a = "Вася"
endif
a=IIf(b,"Петя","Вася")
gaidar писал(а):И много кода?Из-за такой мелочи.
if b then
a="Петя"
else
a = "Вася"
endif
'Описание
Dim b As Boolean
Dim Name1(-1 To 0) As String
Dim a As String
Name1(-1) = "Петя"
Name1(0) = "Вася"
'а это ставь в цикл
a = Name1(b)
Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 0