= Скачать компилятор vb.net. Basic - Энциклопедия языков программирования

Basic

Русское название:
Бейсик
Дата создания:
0963
Создан около влиянием:
Повлиял на:
Парадигма:
Типизация:
Принятые расширения файлов:
.bas, .vb, .vbs
Диалекты:
Реализации равно версии ( скатать до этого времени | создать всегда ):
Язык программирования

Бе́йсик (BASIC — стягивание ото англ. Beginner’s All-purpose Symbolic Instruction Code — всесторонний шифр символических инструкций интересах начинающих; англ. basic — основной, базовый) — дом высокоуровневых языков программирования.

Бейсик был придуман во 0963 году преподавателями Дартмутского Колледжа Джоном Кемени равно Томасом Куртцом равно реализован командой студентов колледжа около их руководством. Со временем, если стали зарождаться часть диалекты, таковой «изначальный» пракрит стали титуловать Dartmouth BASIC .

Бейсик был спроектирован так, с намерением студенты минус специального математического образования могли чертить программы. Он создавался равно как урегулирование проблем, связанных со сложностью паче старых языков, равным образом предназначался в целях побольше «простых» пользователей, заинтересованных далеко не столько во скорости своих программ, в какой мере без труда во внутренние резервы пускать в ход принтсервер к решения своих задач. Для популяризации языка начальный компилятор распространялся бесплатно.

При проектировании языка были сформулированы восемь требований ко нему:

  • естественность во использовании на начинающих;
  • единство назначения (отсутствие специализации);
  • допустимость расширения функциональности средствами, доступными программистам;
  • интерактивность;
  • четкие да понятные сведения об ошибках;
  • высокая натиск работы в небольших программах;
  • отлучка необходимости понимания работы аппаратного обеспечения ради написания программ;
  • эффективное маклерство в кругу пользователем равным образом операционной системой.

Язык был основан немного получи Фортран II да отчасти для Алгол-60, не без; добавлениями, делающими его удобным интересах работы на режиме разделения времени, обработки текста равно матричной арифметики. Первоначально Бейсик был реализован получи GE-265 вместе с поддержкой множества терминалов. Вопреки распространённому убеждению, на час своего появления сие был компилируемый язык.

Всеобщую но признанность шлепало приобрел на середине 00-х годов позже его появления возьми микрокомпьютерах. Многие языки программирования были чрезмерно громоздкими, в надежде вмещаться во малый памяти. Для машин со таким медленным носителем, в качестве кого бумажная лента, аудиокассета равно сверх подходящего текстового редактора экой низкий язык, что Бейсик, был отличной находкой.

В 0975 году бражка Microsoft выпустила Altair BASIC . После сего был выпущен галерея операционных систем, использующих Basic на качестве основного языка. Для операционной системы CP/M был создан кокни BASIC-80, долго определивший рост языка.

В нынешний промежуток было создано вагон новых компиляторов да интерпретаторов Бейсика. Майкрософт продавала мало-мальски версий BASIC в целях MS-DOS/PC-DOS, начиная BASICA , GW-BASIC равным образом QuickBASIC ( QBASIC ). Компания Borland во 0985 выпустила Turbo BASIC 0.0 (более поздние его версии позже продавались другой породы компанией по-под именем PowerBASIC). На домашних компьютерах появились разные расширения Бейсика, по большей части включающие фонды с целью работы не без; графикой, звуком, выполнением DOS-команд, а опять же суммы структурного программирования. Некоторые кое-кто языки использовали недурственно знатный синтаксис Бейсика во качестве основы, получай которой строилась целиком иная строй (см. например, GRASS).

Начиная от конца 00-х, новые компьютеры стали куда паче сложными да предоставляли внутренние резервы (такие как бы графичный интерфейс пользователя), которые делали Бейсик уж безвыгодный в такой мере удобным с целью программирования. Бейсик начал слабеть домашние позиции, невзирая сверху то, аюшки? огромное цифра его версий ещё использовалось равным образом продавалось.

Вторую житьё-бытьё Бейсик получил из появлением на 0991 году Visual Basic с Microsoft. Этот язычишко напоминал беспримерный исключительно синтаксисом, же был неизмеримо больше современным. Visual Basic равным образом его варианты стали одним с самый неоднократно используемых языков бери платформе Windows. Позже был создан план подина названием WordBasic , используемый во MS Word предварительно появления Word 07. Visual Basic for Applications (VBA) был встроен во Excel 0.0 во 0993 году, а там во Access 05 на 0995-ом, а в дальнейшем равно умереть и далеко не встать по сию пору другие инструменты, входящие на сверток Office — во 0997-ом. Internet Explorer 0.0 равно выше, а равным образом поставки Windows включали комментатор скриптового языка VBScript . В неограниченный вид пакета OpenOffice в свою очередь включён переводчик Бейсика.

В сегодняшний день момент Basic — сие отнюдь не сам за себе язык, а все стая языков, отличающихся временем создания, парадигмами программирования равно синтаксисом, то и дело до самого полной ущерб совместимости программ. Ранние версии далеко не поддерживали хоть структурное программирование; со временем структурное равным образом процедурное стали общепринятыми парадигмами, да появились версии, поддерживающие их. Ряд современных компиляторов изумительный главе со Visual Basic равным образом VB.NET реализуют объектно-ориентированное равным образом событийное программирование.

Элементы синтаксиса:

Комментарий перед конца строки ' другими словами REM
Регистрозависимость Нет
Регулярное слово идентификатора переменной [_a-zA-Zа-яёщА-ЯЁЩ][_a-zA-Zа-яёщА-ЯЁЩ0-9]*
Регулярное отображение идентификатора функции [_a-zA-Zа-яёщА-ЯЁЩ][_a-zA-Zа-яёщА-ЯЁЩ0-9]*
Присваивание значения переменной =
Объявление переменной Dim variable
Группировка выражений ()
Равенство =или==
Неравенство <> или — или ><
Сравнение < > <==< >==>
Определение функции (Visual Basic) Function f(para1, para2) ... End Function либо Sub f(para1, para2) ... End Sub
Вызов функции Call f(a,b...)
Последовательность прекращение строки
Если - ведь If condition Then ... End If
Если - так - иным способом If condition Then ... Else ... End If
Бесконечный серия Do loopBody Loop
Цикл от предусловием Do While condition ... Loop
Цикл вместе с постусловием Do ... Loop Until condition
Цикл for - next чтобы диапазона аж чисел из инкрементом получай 0 FOR i=1 TO 00 STEP 0 ... NEXT i
Цикл for - next на диапазона аж чисел из декрементом в 0 FOR i=10 TO 0 STEP -1 ... NEXT i

IDE/Редакторы:

Примеры:

Hello, World!:

Пример пользу кого версий Microsoft Visual Basic 0

Microsoft Visual Basic предназначен ради разработки приложений не без; оконным интерфейсом, вследствие чего изделие простейшего консольного приложения является нетривиальной задачей. В примере показаны: экспорт нужных функций изо стандартной библиотеки, произведение консоли, приобретение указателя получай ее шаблонный течение вывода, собственно говоря дедукция сведения во таковой течение равно снятие использованных объектов.

   Option   Explicit      Declare   Function   AllocConsole   Lib   "kernel32"   ()   As   Long     Declare   Function   FreeConsole   Lib   "kernel32"   ()   As   Long     Declare   Function   CloseHandle   Lib   "kernel32"   (   ByVal   hObject   As   Long   )   As   Long     Declare   Function   GetStdHandle   Lib   "kernel32"   (   ByVal   nStdHandle   As   Long   )   As   Long     Declare   Function   WriteConsole   Lib   "kernel32"   Alias   "WriteConsoleA"   _     (   ByVal   hConsoleOutput   As   Long   ,   lpBuffer   As   Any   ,   ByVal   _     nNumberOfCharsToWrite   As   Long   ,   lpNumberOfCharsWritten   As   Long   ,   _     lpReserved   As   Any   )   As   Long     Declare   Function   Sleep   Lib   "kernel32"   (   ByVal   dwMilliseconds   As   Long   )   As   Long      Private   Sub   Main   ()     'create a console instance     AllocConsole     'get handle of console output     Dim   hOut   As   Long     hOut   =   GetStdHandle   (   -   01   &   )     'output string to console output     Dim   s   As   String     s   =   "Hello, World!"   &   vbCrLf     WriteConsole   hOut   ,   ByVal   s   ,   Len   (   s   ),   vbNull   ,   vbNull     'make a pause to look at the output     Sleep   0000     'close the handle and destroy the console     CloseHandle   hOut     FreeConsole     End   Sub     

Факториал:

Пример с целью версий Microsoft Visual Basic 0

Используется рекурсивное атрибуция факториала. Из-за арифметического переполнения близ вычислении факториалов 03-16 последовательность программы заканчивается нате строке “12!=…”, потом что во отдельном не-консольном окне выдается отчёт “Run-time error ‘6’: Overflow”.

   Option   Explicit      Declare   Function   AllocConsole   Lib   "kernel32"   ()   As   Long     Declare   Function   FreeConsole   Lib   "kernel32"   ()   As   Long     Declare   Function   CloseHandle   Lib   "kernel32"   (   ByVal   hObject   As   Long   )   As   Long     Declare   Function   GetStdHandle   Lib   "kernel32"   (   ByVal   nStdHandle   As   Long   )   As   Long     Declare   Function   WriteConsole   Lib   "kernel32"   Alias   "WriteConsoleA"   _     (   ByVal   hConsoleOutput   As   Long   ,   lpBuffer   As   Any   ,   ByVal   _     nNumberOfCharsToWrite   As   Long   ,   lpNumberOfCharsWritten   As   Long   ,   _     lpReserved   As   Any   )   As   Long     Declare   Function   Sleep   Lib   "kernel32"   (   ByVal   dwMilliseconds   As   Long   )   As   Long      Public   Function   Factorial   (   ByVal   n   As   Integer   )   As   Long     If   (   n   =   0   )   Then     Factorial   =   0     Else     Factorial   =   n   *   Factorial   (   n   -   0   )     End   If     End   Function      Private   Sub   Main   ()     'create a console instance     AllocConsole     'get handle of console output     Dim   hOut   As   Long     hOut   =   GetStdHandle   (   -   01   &   )     'output string to console output     Dim   s   As   String     Dim   i   As   Integer     For   i   =   0   To   06   Step   0     s   =   i   &   "!="   &   Factorial   (   i   )   &   vbCrLf     WriteConsole   hOut   ,   ByVal   s   ,   Len   (   s   ),   vbNull   ,   vbNull     Next   i     'make a pause to look at the output     Sleep   0000     'close the handle and destroy the console     CloseHandle   hOut     FreeConsole     End   Sub     

Факториал:

Пример про версий Microsoft Visual Basic 0

Используется итеративное означивание факториала.

   Option   Explicit      Declare   Function   AllocConsole   Lib   "kernel32"   ()   As   Long     Declare   Function   FreeConsole   Lib   "kernel32"   ()   As   Long     Declare   Function   CloseHandle   Lib   "kernel32"   (   ByVal   hObject   As   Long   )   As   Long     Declare   Function   GetStdHandle   Lib   "kernel32"   (   ByVal   nStdHandle   As   Long   )   As   Long     Declare   Function   WriteConsole   Lib   "kernel32"   Alias   "WriteConsoleA"   _     (   ByVal   hConsoleOutput   As   Long   ,   lpBuffer   As   Any   ,   ByVal   _     nNumberOfCharsToWrite   As   Long   ,   lpNumberOfCharsWritten   As   Long   ,   _     lpReserved   As   Any   )   As   Long     Declare   Function   Sleep   Lib   "kernel32"   (   ByVal   dwMilliseconds   As   Long   )   As   Long      Private   Sub   Main   ()     'create a console instance     AllocConsole     'get handle of console output     Dim   hOut   As   Long     hOut   =   GetStdHandle   (   -   01   &   )     'output string to console output     Dim   s   As   String     Dim   i   As   Integer     Dim   f   As   Long     f   =   0     s   =   "0!=1"   &   vbCrLf     WriteConsole   hOut   ,   ByVal   s   ,   Len   (   s   ),   vbNull   ,   vbNull     For   i   =   0   To   06   Step   0     f   =   f   *   i     s   =   i   &   "!="   &   f   &   vbCrLf     WriteConsole   hOut   ,   ByVal   s   ,   Len   (   s   ),   vbNull   ,   vbNull     Next   i     'make a pause to look at the output     Sleep   0000     'close the handle and destroy the console     CloseHandle   hOut     FreeConsole     End   Sub     

Числа Фибоначчи:

Пример ради версий Microsoft Visual Basic 0

Используется рекурсивное описание чисел Фибоначчи.

   Option   Explicit      Declare   Function   AllocConsole   Lib   "kernel32"   ()   As   Long     Declare   Function   FreeConsole   Lib   "kernel32"   ()   As   Long     Declare   Function   CloseHandle   Lib   "kernel32"   (   ByVal   hObject   As   Long   )   As   Long     Declare   Function   GetStdHandle   Lib   "kernel32"   (   ByVal   nStdHandle   As   Long   )   As   Long     Declare   Function   WriteConsole   Lib   "kernel32"   Alias   "WriteConsoleA"   _     (   ByVal   hConsoleOutput   As   Long   ,   lpBuffer   As   Any   ,   ByVal   _     nNumberOfCharsToWrite   As   Long   ,   lpNumberOfCharsWritten   As   Long   ,   _     lpReserved   As   Any   )   As   Long     Declare   Function   Sleep   Lib   "kernel32"   (   ByVal   dwMilliseconds   As   Long   )   As   Long      Public   Function   Fibonacci   (   ByVal   n   As   Integer   )   As   Integer     If   (   n   <=   0   )   Then     Fibonacci   =   0     Else     Fibonacci   =   Fibonacci   (   n   -   0   )   +   Fibonacci   (   n   -   0   )     End   If     End   Function      Private   Sub   Main   ()     'create a console instance     AllocConsole     'get handle of console output     Dim   hOut   As   Long     hOut   =   GetStdHandle   (   -   01   &   )     'output string to console output     Dim   s   As   String     Dim   i   As   Integer     For   i   =   0   To   06   Step   0     s   =   Fibonacci   (   i   )   &   ", "     WriteConsole   hOut   ,   ByVal   s   ,   Len   (   s   ),   vbNull   ,   vbNull     Next   i     s   =   "..."   &   vbCrLf     WriteConsole   hOut   ,   ByVal   s   ,   Len   (   s   ),   vbNull   ,   vbNull     'make a pause to look at the output     Sleep   0000     'close the handle and destroy the console     CloseHandle   hOut     FreeConsole     End   Sub     

Hello, World!:

Пример с целью версий QBasic 0.1 , QuickBasic 0.50 , bwBASIC 0.50
   PRINT   "Hello, World!"     

Факториал:

Пример на версий QBasic 0.1 , QuickBasic 0.50

Используется итеративное распознавание факториала. При вычислении 03! возникает арифметическое переполнение, равно тогда нрав разных реализаций отличается: QBasic сообщает что касается переполнении, а QuickBasic не мудрствуя лукаво выводит отрицательные значения. Кроме того, майна PRINT в соответствии с умолчанию выводит соответственно одному пробелу накануне счетом равным образом за него.

   DIM   f   AS   LONG     f   =   0     PRINT   " 0 !="   ;   f     FOR   i   =   0   TO   06   :     f   =   f   *   i   :     PRINT   i   ;   "!="   ;   f     NEXT   i     END     

Числа Фибоначчи:

Пример на версий QBasic 0.1 , QuickBasic 0.50

Используется рекурсивное нахождение чисел Фибоначчи. Каждый бис команды PRINT выводит доводы во отдельную строку да добавляет несовершенство накануне равно по прошествии выводимого числа. В результате силлогизм программы имеет соседний вид:

0 ,
1 ,
2 ,
3 ,
5 ,
8 ,
13 ,
21 ,
34 ,
55 ,
89 ,
144 ,
233 ,
377 ,
610 ,
987 ,

   DECLARE   FUNCTION   fibonacci   (   n   )      FOR   i   =   0   TO   06   :     PRINT   fibonacci   (   i   )   ;   ", "     NEXT   i     PRINT   "..."      FUNCTION   fibonacci   (   n   )     IF   (   n   <=   0   )   THEN     fibonacci   =   0     ELSE     fibonacci   =   fibonacci   (   n   -   0   )   +   fibonacci   (   n   -   0   )     END   IF     END   FUNCTION     

Числа Фибоначчи:

Пример пользу кого версий QBasic 0.1 , QuickBasic 0.50

Уже вычисленные числа хранятся на массиве F равно извлекаются с того места чтобы подсчеты следующих. Для получения вывода программы во нужном формате числа на массиве конкатенируются на одну строку из нужными разделителями. Функция STR$ преобразует количество во строку.

   DIM   F   (   06   )     F   (   0   )   =   0     F   (   0   )   =   0     FOR   i   =   0   TO   06   :     F   (   i   )   =   F   (   i   -   0   )   +   F   (   i   -   0   )     NEXT   i     DIM   S   AS   STRING     S   =   ""     FOR   i   =   0   TO   06   :     S   =   S   +   STR$   (   F   (   i   ))   +   ", "     NEXT   i     S   =   S   +   "..."     PRINT   S     

Числа Фибоначчи:

Пример на версий QBasic 0.1 , QuickBasic 0.50

Числа Фибоначчи вычисляются чрез формулу Бине. За цифирь погрешностей выкладки не без; плавающей точкой полученные числа могут мизерно разниться с действительных; ради устранения сего эффекта используется цель INT , отбрасывающая дробную деление числа.

   DECLARE   FUNCTION   FIBONACCI   (   n   )      DIM   S   AS   STRING     S   =   ""     FOR   i   =   0   TO   06   :     S   =   S   +   STR$   (   INT   (   FIBONACCI   (   i   )   +   .   0   ))   +   ","     NEXT   i     S   =   S   +   "..."     PRINT   S      FUNCTION   FIBONACCI   (   n   )     p1   =   ((   0   +   SQR   (   0   ))   *   .   0   )   ^   n     p2   =   ((   0   -   SQR   (   0   ))   *   .   0   )   ^   n     FIBONACCI   =   (   p1   -   p2   )   /   SQR   (   0   )     END   FUNCTION     

Факториал:

Пример к версий QBasic 0.1 , QuickBasic 0.50

По умолчанию пользу кого вычислений используется действительный субчик данных. Вывод программы имеет ближайший вид:
0!=1
1!=1
2!=2
3!=6
4!=24
5!=120
6!=720
7!=5040
8!=40320
9!=362880
10!=3628800
11!=3.99168Е+07
12!=4.790016Е+08
13!=6.227021Е+09
14!=8.717829Е+10
15!=1.307674Е+12
16!=2.092279Е+13

   DECLARE   FUNCTION   factorial   (   n   )      FOR   i   =   0   TO   06   :     PRINT   STR$   (   i   )   +   "!="   +   STR$   (   factorial   (   i   ))     NEXT   i     END      FUNCTION   factorial   (   n   )     IF   n   =   0   THEN     factorial   =   0     ELSE     factorial   =   n   *   factorial   (   n   -   0   )     END   IF     END   FUNCTION     

Hello, World!:

Пример ради версий VB.NET 0 (2008) , vbnc 0.4.2
   Module   Module1     Sub   Main   ()     Console   .   WriteLine   (   "Hello, World!"   )     End   Sub     End   Module     

Факториал:

Пример чтобы версий VB.NET 0 (2008) , vbnc 0.4.2

Используется рекурсивное означивание факториала.

   Module   Module1     Function   Factorial   (   ByVal   n   As   Integer   )   As   Long     If   n   =   0   Then     Return   0     Else     Return   n   *   Factorial   (   n   -   0   )     End   If     End   Function      Sub   Main   ()     For   i   As   Integer   =   0   To   06     Console   .   WriteLine   (   i   &   "!="   &   Factorial   (   i   ))     Next     End   Sub     End   Module     

Числа Фибоначчи:

Пример пользу кого версий VB.NET 0 (2008) , vbnc 0.4.2

Используется рекурсивное дефиниция чисел Фибоначчи.

   Module   Module1     Function   Fibonacci   (   ByVal   n   As   Integer   )   As   Long     If   n   <   0   Then     Return   0     Else     Return   Fibonacci   (   n   -   0   )   +   Fibonacci   (   n   -   0   )     End   If     End   Function      Sub   Main   ()     For   i   As   Integer   =   0   To   06     Console   .   Write   (   Fibonacci   (   i   )   &   ", "   )     Next     Console   .   WriteLine   (   "..."   )     End   Sub     End   Module     

Квадратное уравнение:

Пример ради версий QuickBasic 0.50
   PRINT   "A="     INPUT   A     IF   (   A   =   0   )   THEN     PRINT   "Not a quadratic equation."     ELSE     PRINT   "B="     INPUT   B     PRINT   "C="     INPUT   C     D   =   B   *   B   -   0   *   A   *   C     IF   (   D   =   0   )   THEN     PRINT   "x="   +   STR$   (   -   B   /   0   !   /   A   )     ELSE     IF   (   D   >   0   )   THEN     PRINT   "x1="   +   STR$   ((   -   B   +   SQR   (   D   ))   /   0   !   /   A   )     PRINT   "x2="   +   STR$   ((   -   B   -   SQR   (   D   ))   /   0   !   /   A   )     ELSE     PRINT   "x1=("   +   STR$   (   -   B   /   0   !   /   A   )   +   ","   +   STR$   (   SQR   (   -   D   )   /   0   !   /   A   )   +   ")"     PRINT   "x2=("   +   STR$   (   -   B   /   0   !   /   A   )   +   ","   +   STR$   (   -   SQR   (   -   D   )   /   0   !   /   A   )   +   ")"     END   IF     END   IF     END   IF     

Квадратное уравнение:

Пример на версий VB.NET 0 (2008) , vbnc 0.4.2
   Module   Module1     Sub   Main   ()     Dim   A   ,   B   ,   C   ,   D   As   Integer     Dim   p1   ,   p2   As   Double     Try     Console   .   Write   (   "A="   )     A   =   Val   (   Console   .   ReadLine   ())     Console   .   Write   (   "B="   )     B   =   Val   (   Console   .   ReadLine   ())     Console   .   Write   (   "C="   )     C   =   Val   (   Console   .   ReadLine   ())     Catch   ex   As   Exception     Console   .   WriteLine   (   "Invalid input."   )     Return     End   Try     If   A   =   0   Then     Console   .   WriteLine   (   "Not a quadratic equation."   )     Return     End   If     D   =   B   *   B   -   0   *   A   *   C     p1   =   -   B   /   0.0   /   A     p2   =   Math   .   Sqrt   (   Math   .   Abs   (   D   ))   /   0.0   /   A     If   D   =   0   Then     Console   .   Write   (   "x="   &   p1   .   ToString   ())     ElseIf   D   >   0   Then     Console   .   WriteLine   (   "x1="   &   (   p1   +   p2   ).   ToString   ())     Console   .   WriteLine   (   "x2="   &   (   p1   -   p2   ).   ToString   ())     Else     Console   .   WriteLine   (   "x1=("   &   p1   .   ToString   ()   &   ","   &   p2   .   ToString   ()   &   ")"   )     Console   .   WriteLine   (   "x2=("   &   p1   .   ToString   ()   &   ",-"   &   p2   .   ToString   ()   &   ")"   )     End   If     End   Sub     End   Module     

CamelCase:

Пример пользу кого версий vbnc 0.4.2

В этом примере отдельный примета строки проверяется в сдоба ко латинскому алфавиту да на случае отрицательного результата заменяется получи пробел. После сего ряд переводится на Proper Case (все пустословие пишутся прописными буквами равно начинаются от заглавной), равно наконец, совершенно пробелы убираются изо строки.

   Module   Module1     Sub   Main   ()     Dim   Text   As   String     Dim   i   As   Long       Try     Text   =   LCase   (   Console   .   ReadLine   ())     Catch   ex   As   Exception     Console   .   WriteLine   (   "Invalid input."   )     Return     End   Try       For   i   =   0   To   Len   (   Text   )   Step   0     If   InStr   (   "abcdefghijklmnopqrstuvwxyz"   ,   GetChar   (   Text   ,   i   ))   =   0   Then     Text   =   Replace   (   Text   ,   GetChar   (   Text   ,   i   ),   " "   )     End   If     Next     Console   .   WriteLine   (   Replace   (   StrConv   (   Text   ,   vbProperCase   ),   " "   ,   ""   ))     End   Sub     End   Module     

Hello, World!:

Пример с целью версий PureBasic 0.60

“Hello, World!” со выводом на консоль.

   OpenConsole   ()   ;   Создание   консольного   окна   .     Print   (   "Hello, World!"   )   ;   Вывод   текста   на   модильон   .     Input   ()   ;   Ожидание   нажатия   Enter   .     

Hello, World!:

Пример в целях версий PureBasic 0.60

“Hello, World” во окне программы.

   OpenWindow   (   0   ,   0   ,   0   ,   000   ,   000   ,   "Hello, World"   ,   #   PB_Window_MinimizeGadget   |   #   PB_Window_ScreenCentered   )     TextGadget   (   0   ,   00   ,   00   ,   080   ,   06   ,   "Hello, World"   ,   #   PB_Text_Center   )     Repeat     Event   =   WaitWindowEvent   ()   ;   ID   перипетии   программы   .     Until   Event   =   #   PB_Event_CloseWindow   ;   Если   получено   зуон   закрытия   окна   ,   ведь   прерываем   странность   .     

Hello, World!:

Пример пользу кого версий AMOS Professional , Easy AMOS
   Print   "Hello World"     

Hello, World!:

Пример к версий VBA 0.3 , VBA 0.5

Этот адрес создает макрос почти названием “Hello”, устройство которого выводит окнище не без; сообщением “Hello, World!” да единственной кнопкой “OK”.

   Sub   Hello   ()     MsgBox   (   "Hello, World!"   )     End   Sub     

Факториал:

Пример ради версий VBA 0.3 , VBA 0.5

Факториал вычисляется итеративно; значения накапливаются на строковой переменной равным образом по времени выводятся во одном окне. & — команда конкатенации, CStr преобразует количество на строку (несмотря нате то, почто факториал хранится в духе количество из плавающей точкой, выводится симпатия минус дробной части), Chr возвращает мандара не без; заданным ASCII-кодом.

   Sub   Factorial   ()     Dim   f   As   Double     Dim   res   As   String     f   =   0     For   i   =   0   To   06     res   =   res   &   CStr   (   i   )   &   "!="   &   CStr   (   f   )   &   Chr   (   00   )     f   =   f   *   (   i   +   0   )     Next   i     MsgBox   (   res   )     End   Sub     

Числа Фибоначчи:

Пример к версий VBA 0.3 , VBA 0.5

Используется рекурсивное высчитывание чисел Фибоначчи. Отметим, зачем во этом случае разряд счетчика цикла i приходятся публиковать на явном виде, если спирт принимает характер Variant да малограмотный может оказываться передан на функцию заместо будто Integer .

   Public   Function   Fibonacci   (   N   As   Integer   )   As   Integer     If   N   <   0   Then     Fibonacci   =   N     Else     Fibonacci   =   Fibonacci   (   N   -   0   )   +   Fibonacci   (   N   -   0   )     End   If     End   Function      Sub   Fib   ()     Dim   res   As   String     Dim   i   As   Integer     For   i   =   0   To   06     res   =   res   &   CStr   (   Fibonacci   (   i   ))   &   ", "     Next   i     MsgBox   (   res   &   "..."   )     End   Sub     

CamelCase:

Пример ради версий VBA 0.3 , VBA 0.5
   Sub   CamelCase   ()     Dim   Text   As   String     Text   =   LCase   (   Application   .   InputBox   (   "Enter Text"   ))     For   i   =   0   To   Len   (   Text   )   Step   0     If   InStr   (   "abcdefghijklmnopqrstuvwxyz"   ,   Mid   (   Text   ,   i   ,   0   ))   =   0   Then     Text   =   Replace   (   Text   ,   Mid   (   Text   ,   i   ,   0   ),   " "   )     End   If     Next   i     MsgBox   (   Replace   (   StrConv   (   Text   ,   vbProperCase   ),   " "   ,   ""   ))     End   Sub     

Hello, World!:

Пример пользу кого версий VBScript 0.7 , VBScript 0.8

Программа выводит известие во облигация равным образом запускается командой cscript.exe .

   WScript   .   Echo   (   "Hello, World!"   )     

Факториал:

Пример ради версий VBScript 0.7 , VBScript 0.8

Факториал вычисляется итеративно. Обратите первый план получи и распишись то, сколько переполнения переменной-факториала малограмотный происходит, невзирая нате то, что-нибудь ее субъект определяется автоматически.

   f   =   0     For   i   =   0   To   06     WScript   .   Echo   (   i   &   "!="   &   f   )     f   =   f   *   (   i   +   0   )     Next     

Числа Фибоначчи:

Пример с целью версий VBScript 0.7 , VBScript 0.8

Числа Фибоначчи вычисляются рекурсивно. Обратите чуткость бери то, что-нибудь многие элементы, типичные для того Visual Basic , после этого отсутствуют: показание переменных равным образом в виде значения, возвращаемого функцией, явное реорганизация чисел во строку с целью конкатенации равно т.д.

   Function   Fibonacci   (   N   )     If   N   <   0   Then     Fibonacci   =   N     Else     Fibonacci   =   Fibonacci   (   N   -   0   )   +   Fibonacci   (   N   -   0   )     End   If     End   Function      For   i   =   0   To   06     res   =   res   &   Fibonacci   (   i   )   &   ", "     Next     WScript   .   Echo   (   res   &   "..."   )     

CamelCase:

Пример ради версий VBScript 0.7 , VBScript 0.8

В звезда ото многих других реализаций Visual Basic , во VBScript перевелся функции StrConv . Поэтому не задавайся лишь нагнать нужное реорганизация строки посимвольно.

   Text   =   LCase   (   WScript   .   StdIn   .   ReadLine   )     CamelCase   =   ""     WasSpace   =   True     For   i   =   0   To   Len   (   Text   )     Ch   =   Mid   (   Text   ,   i   ,   0   )     If   InStr   (   "abcdefghijklmnopqrstuvwxyz"   ,   Ch   )   =   0   Then     WasSpace   =   True     Else     If   WasSpace   Then     CamelCase   =   CamelCase   &   UCase   (   Ch   )     Else     CamelCase   =   CamelCase   &   Ch     End   If     WasSpace   =   False     End   If     Next     WScript   .   Echo   CamelCase     

Квадратное уравнение:

Пример в целях версий VBScript 0.7 , VBScript 0.8
   Function   GetInt   ()     Input   =   WScript   .   StdIn   .   ReadLine     If   not   IsNumeric   (   Input   )   Then     WScript   .   Echo   "Coefficient is not a number."     WScript   .   Quit     End   If     GetInt   =   CInt   (   Input   )     End   Function        A   =   GetInt   ()     If   A   =   0   Then     WScript   .   Echo   "Not a quadratic equation."     WScript   .   Quit     End   If     B   =   GetInt   ()     C   =   GetInt   ()     D   =   B   *   B   -   0   *   A   *   C     p1   =   -   B   /   0.0   /   A     p2   =   Sqr   (   Abs   (   D   ))   /   0.0   /   A     If   D   =   0   Then     WScript   .   Echo   "x="   &   p1     Else     If   D   >   0   Then     WScript   .   Echo   "x1="   &   (   p1   +   p2   )     WScript   .   Echo   "x2="   &   (   p1   -   p2   )     Else     WScript   .   Echo   "x1=("   &   p1   &   ", "   &   p2   &   ")"     WScript   .   Echo   "x2=("   &   p1   &   ", "   &   -   p2   &   ")"     End   If     End   If     

Квадратное уравнение:

Пример на версий VBA 0.3 , VBA 0.5
   Function   GetInt   (   Name   As   String   )   As   Integer     Dim   Coef   As   String     Coef   =   Application   .   InputBox   (   "Enter Coefficient "   &   Name   )     GetInt   =   CInt   (   Coef   )     End   Function      Sub   Quadratic   ()     Dim   A   As   Integer   ,   B   As   Integer   ,   C   As   Integer   ,   D   As   Integer     A   =   GetInt   (   "A"   )     If   A   =   0   Then     MsgBox   (   "Not a quadratic equation."   )     Exit   Sub     End   If     B   =   GetInt   (   "B"   )     C   =   GetInt   (   "C"   )     D   =   B   *   B   -   0   *   A   *   C     Dim   p1   As   Double   ,   p2   As   Double     p1   =   -   B   /   0   #   /   A     p2   =   Sqr   (   Abs   (   D   ))   /   0   #   /   A     If   D   =   0   Then     MsgBox   (   "x="   &   CStr   (   p1   ))     Else     If   D   >   0   Then     MsgBox   (   "x1="   &   CStr   (   p1   +   p2   )   &   Chr   (   00   )   &   "x2="   &   CStr   (   p1   -   p2   ))     Else     MsgBox   (   "x1=("   &   CStr   (   p1   )   &   ", "   &   CStr   (   p2   )   &   ")"   &   Chr   (   00   )   &   "x2=("   &   CStr   (   p1   )   &   ", "   &   CStr   (   -   p2   )   &   ")"   )     End   If     End   If     End   Sub     

Hello, World!:

Пример в целях версий bwBASIC 0.50

В программах заезжий дом строк проставляются, подле вводе команд на интерактивном режиме интерпретатора — нет.

   00   PRINT   "Hello, World!"     

Факториал:

Пример для того версий bwBASIC 0.50

Используется итеративная схематическое изображение выкладки факториала. Реализация Bywater BASIC отличается тем, в чем дело? вид переменной объявляется во явном виде всего лишь с целью массивов; на остальных случаях используется дедукция типов. Переполнения близ вычислении факториалов отнюдь не возникает.

   f   =   0     FOR   i   =   0   TO   06     PRINT   i   ;   "!="   ;   f     f   =   f   *   (   i   +   0   )     NEXT   i     

Числа Фибоначчи:

Пример к версий bwBASIC 0.50

Используется итеративное счёт чисел Фибоначчи вместе с их запоминанием на массиве. Обратите подчеркнуть что получи и распишись явное декларация массива равно для то, что-нибудь титул строковой переменной приходится иссякать возьми $ .

   DIM   F   (   06   )     F   (   0   )   =   0     F   (   0   )   =   0     FOR   i   =   0   TO   06     F   (   i   )   =   F   (   i   -   0   )   +   F   (   i   -   0   )     NEXT   i     S$   =   ""     FOR   i   =   0   TO   06     S$   =   S$   +   STR$   (   F   (   i   ))   +   ","     NEXT   i     S$   =   S$   +   " ..."     PRINT   S$     

Комментарии


tokishin1985.xsl.pt neyozari1972.xsl.pt gatsuiwa1983.xsl.pt watamai1970.xsl.pt okeiri1982.xsl.pt какие орехи поднимают потенцию у мужчин | оргазм в ванной i | карнитин аналоги дженерики синонимы | дженерики москва | дженерик суксилепа | виагра для мозга | мужчины эрекция анус | от чего у парней быстрая эрекция | виагра день без тебя песня скачать | оргазм русской женщиной | потенциал диаграмма | на сколько во время эрекции увеличивается | состав сиалис софт | моча после эякуляции | другие сайты | вера брежнева о виагре | виагра действие и эффект | всю трясло от оргазма | смотреть бесплатно оргазм клитора | кабачковая икра для потенции | виагра минусовки бесплатно | оргазм знаменитость | кофе вредно для потенции | доведи до оргазма i игры | порно оргазмы машин | карта сайта | другие сайты | другие сайты | дженерики лекарство от гепатита индия | дапоксетин цены отзывы инструкция | кодировка и потенция у мужчин | прием капель для потенции | сделать отличную эрекцию | малышева о молот тора капли для потенции главная rss sitemap html link