Для любителя1

Валерий Павленко 2

Sub Poisk1
Dim a#,i#,b#,c#,d#
a=Val(InputBox(“Введите a”))
b=Timer
i=0
1: i=i+1
If a >i Then
GoTo 1
End If
c=Timer
d=c-b
MsgBox(“Ответ=”+Str(i))
MsgBox(“Время=”+Str(d))
End Sub
Павленко В.В.
16.07.2012г.

Список читателей / Версия для печати / Разместить анонс / Заявить о нарушении

Другие произведения автора Валерий Павленко 2

Рецензии

Написать рецензию

Другие произведения автора Валерий Павленко 2

Авторы Произведения Рецензии Поиск Магазин Вход для авторов О портале Стихи.ру Проза.ру

Портал Стихи.ру предоставляет авторам возможность свободной публикации своих литературных произведений в сети Интернет на основании пользовательского договора. Все авторские права на произведения принадлежат авторам и охраняются законом. Перепечатка произведений возможна только с согласия его автора, к которому вы можете обратиться на его авторской странице. Ответственность за тексты произведений авторы несут самостоятельно на основании правил публикации и законодательства Российской Федерации. Данные пользователей обрабатываются на основании Политики обработки персональных данных. Вы также можете посмотреть более подробную информацию о портале и связаться с администрацией.

Ежедневная аудитория портала Стихи.ру – порядка 200 тысяч посетителей, которые в общей сумме просматривают более двух миллионов страниц по данным счетчика посещаемости, который расположен справа от этого текста. В каждой графе указано по две цифры: количество просмотров и количество посетителей.