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
PrivateSub Глюк_Первый_Click() ' Цикл проходит два раза, ' но вконце i равна нулю! Dim i& For i = 2 To1Step -1 ‘Может 1 на 2 надо заменить MsgBox i, vbInformation Next MsgBox i, vbCritical EndSub
P.S. Типа, цикл проходит еще один раз в конце
=2=
Не знаю
=3=
Столько времени потратил на изучение InStr, но так и не научился ей пользоваться