Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBS: / 2 сообщений из 2, страница 1 из 1
28.01.2011, 21:39
    #37085406
.Михаил.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBS:
Приветствую.
На первый взгляд два одинаковых кода, но различная "длина" прохода цикла, но вот результаты одинаковые. Одинаковые только у меня? Или чего не понимаю?
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub test1()
Dim i As Double
For i =  0 . 1  To  0 . 2  Step  0 . 1 
    MsgBox i
Next
End Sub
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub test2()
Dim i As Double
For i =  0 . 1  To  0 . 3  Step  0 . 1 
    MsgBox i
Next
End Sub
...
Рейтинг: 0 / 0
28.01.2011, 22:07
    #37085430
VBS:
.Михаил.,
одинаковые не только у Вас. Не понимаете/не знаете как процессор работает с действительными числами.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Sub test3()
Dim i#
i =  0 . 1 
i = i +  0 . 1 
If i =  0 . 2  Then
    MsgBox i & " equal 0.2"
ElseIf i >  0 . 2  Then
    MsgBox i & " greater 0.2"
Else
    MsgBox i & " less 0.2"
End If

i = i +  0 . 1 
If i =  0 . 3  Then
    MsgBox i & " equal 0.3"
ElseIf i >  0 . 3  Then
    MsgBox i & " greater 0.3"
Else
    MsgBox i & " less 0.3"
End If

End Sub
Если на клетке со слоном написано буйвол - не верь глазам своим (с)Козьма Прутков
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBS: / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]