![Список форумов on-line-teaching.com](templates/subSilver/images/logo_phpBB.gif) |
on-line-teaching.com Онлайн курсы MS Office: Word, Excell. Как сделать сайт: HTML, JS, PHP
|
Предыдущая тема :: Следующая тема
|
Автор |
Сообщение |
SlimMeR Prizivnik - draftee
![Prizivnik - draftee Prizivnik - draftee](images/zvanie_img/z1.gif)
Зарегистрирован: 13.06.2008 Сообщения: 1
|
Добавлено: Пт Июн 13, 2008 9:44 pm Заголовок сообщения: VBA |
|
|
воперых на сайте есть таблица истинности для логического оператора EQV и там все значения True.
Вот а теперь вся соль.
Код: |
Dim blnA, blnB, blnC As Boolean
Private Sub CmdAnd_Click()
blnA = TxtA.Text
blnB = TxtB.Text
blnC = blnA And blnB
TxtC.Text = blnC
End Sub
Private Sub CmdOr_Click()
blnA = TxtA.Text
blnB = TxtB.Text
blnC = blnA Or blnB
TxtC.Text = blnC
End Sub
Private Sub CmdXor_Click()
blnA = TxtA.Text
blnB = TxtB.Text
blnC = blnA Xor blnB
TxtC.Text = blnC
End Sub
Private Sub CmdImp_Click()
blnA = TxtA.Text
blnB = TxtB.Text
blnC = blnA Imp blnB
TxtC.Text = blnC
End Sub
Private Sub CmdEqv_Click()
blnA = TxtA.Text
blnB = TxtB.Text
blnC = blnA Eqv blnB
TxtC.Text = blnC
End Sub
|
для операторов IMP и EQV в любом значении переменных blnA и blnB выводится результат True.
В чем может быть проблема? |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
AsIs captain
![captain captain](images/zvanie_img/z11.gif)
![](images/avatars/gallery/mult/cocr141_small.jpg)
Зарегистрирован: 27.01.2006 Сообщения: 250 Откуда: СПб
|
Добавлено: Пт Окт 10, 2008 6:22 pm Заголовок сообщения: |
|
|
Эээ, я тоже не понимаю, в чем проблема.
По справке сразу выдает таблицу истинности для этих двух операторов. Там вовсе не все значения TRUE. И простой код это подтверждает:
Код: | Sub aaa()
Dim a As Boolean, b As Boolean, r As Boolean
a = True
b = False
r = a Eqv b
MsgBox r
End Sub |
Кстати, если Ваш код, Вы пишите на VBA, то обратите внимание, что только последняя переменная будет типа Boolean. А первые две - Variant.
ЗЫ: а это вопрос дейтсвительно по теме раздела? ![Smile](images/smiles/icon_smile.gif) |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
|
|
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах
|
|