Для любителя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г.


© Copyright: Валерий Павленко 2, 2012
Свидетельство о публикации №112071606973
Список читателей / Версия для печати / Разместить анонс / Заявить о нарушении
Другие произведения автора Валерий Павленко 2
Рецензии
Написать рецензию
Другие произведения автора Валерий Павленко 2