Страницы: 1
RSS
Преобразование Булева в Integer
 
Добрый день!
Попросили помочь решить задание по VBA, но не могу понять в чем ошибка.
Прошу помочь
Есть код. Переменной а назначаем значение True, т.е. 1, но результат выдается "-1". Не понимаю в чем ошибка
Код
Sub r()Dim a As Boolean, b As Integer
a = True
b = CInt(a)
MsgBox (b)
End Sub
Изменено: Finswimmer - 15.07.2019 22:14:59
 
Цитата
Finswimmer написал: значение True, т.е. 1
Ошибаетесь, True не 1, а как раз -1
Не стоит баловаться с такими преобразованиями, можете косяков нажить.

И почему строковой переменной присваиваете значение Integer?
Код
Sub r()
     Dim a As Boolean, b As Byte

     a = True
     If a Then b = 1
     MsgBox (b)
End Sub
 
vikttur,задумался и не то написал. Спасибо.Буду знать что true это -1
Страницы: 1
Наверх