Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Мелкие неприятности Добавлено: 23.07.02 18:49  

Автор вопроса:  root | Web-сайт: www.vbnet.ru
Можете накидать сюда известные VB-глюки


Private Sub Глюк_Первый_Click()
    ' Цикл проходит два раза,
    ' но вконце i равна нулю!
    Dim i&
    For i = 2 To 1 Step -1
        MsgBox i, vbInformation
    Next
    MsgBox i, vbCritical
End Sub

Private Sub Глюк_второй_Click()
    If &HFF00 = vbGreen Then
        ' Это вызовет ошибку!
        BackColor = &HFF00
    Else
        MsgBox "&HFF00 <> vbGreen"
        ' НО!
        BackColor = "&H" & Hex(&HFF00)
        ' &HFF00 = vbGreen !
        MsgBox "&HFF00=" & Hex(&HFF00) & _
        vbNewLine & "vbGreen=" & Hex(vbGreen)
    End If
End Sub

Private Sub Глюк_третий_Click()
    Const Str_Test As String = "АБ"
    If InStr(Str_Test, "А") And InStr(1, Str_Test, "Б") Then
        MsgBox "True"
    Else ' 1 And 2 = 0
        MsgBox "False"
        ' НО! оба символа присутствуют
    End If
End Sub

Ответить

  Ответы Всего ответов: 5  

Номер ответа: 1
Автор ответа:
 VYV



Вопросов: 10
Ответов: 13
 Профиль | | #1 Добавлено: 24.07.02 00:17

Hi Данила,

For all these bugs you will find explanations in MSDN:

1."Once the loop starts and all statements in the loop have executed, step is added to counter", i.e. i=2->OK, i=1->OK, i=0->Exit

3."The True keyword has a value equal to -1", i.e. from your example you will never get True

Sorry I didn't check N2.

Happy programming,

Yuri

Ответить

Номер ответа: 2
Автор ответа:
 root



Вопросов: 12
Ответов: 147
 Web-сайт: www.vbnet.ru
 Профиль | | #2
Добавлено: 24.07.02 00:55
Я сам могу объяснить каждый из них... Сообщение ради прикола - как глючит VB

Ответить

Номер ответа: 3
Автор ответа:
 VYV



Вопросов: 10
Ответов: 13
 Профиль | | #3 Добавлено: 24.07.02 05:42
Извини, Данила, не понял юмора- хотел помочь.

Ответить

Номер ответа: 4
Автор ответа:
 Алексей



black  admin

ICQ: 261779681 

Вопросов: 87
Ответов: 633
 Web-сайт: aleksey.nemiro.ru
 Профиль | | #4
Добавлено: 24.07.02 09:12
 

=1=

Private Sub Глюк_Первый_Click()
    ' Цикл проходит два раза,
    ' но вконце i равна нулю!
    Dim i&
    For i = 2 To 1 Step -1 ‘Может 1 на 2 надо заменить
        MsgBox i, vbInformation
    Next
    MsgBox i, vbCritical
End Sub

 P.S. Типа, цикл проходит еще один раз в конце

=2=

Не знаю

 

=3=

 Столько времени потратил на изучение InStr, но так и не научился ей пользоваться

Ответить

Номер ответа: 5
Автор ответа:
 Daimon



Вопросов: 2
Ответов: 12
 Профиль | | #5 Добавлено: 28.07.02 18:53

= 2 =

(&HFF00& = vbGreen) = true

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам