Основные возможности Visual Basic. Макова Н.Е. - 73 стр.

UptoLike

ВУЗ: 

МичГАУ | Мичуринск

Составители: 

Рубрика: 

73
Фрагмент_3:
For а=2 To 9
For b=2 To 9
proizv = a*b
Print a; “*”; b; “=”; proizv,
Next b
Print
Next а
В цикл добавили пустой Print, чтобы после окончания оче-
редной строки печать начиналась с новой. А чтобы результаты
были выровнены по столбцам, в конце оператора Print точку с за-
пятой поменяли на запятую. Столбцы будут расположены на рас-
стоянии 14 символов друг от друга. Желательно поменять шрифт
(свойство Font) формы на Courier, потому что у этого шрифта в
отличие от многих других символы имеют одинаковую ширину.
В целом программа иллюстрирует идею вложенных циклов.
У нас тело внешнего цикла выполняется 8 раз, а тело внутреннего
– 64 раза, т.к. на каждое выполнение внешнего цикла, внутренний
выполняется 8 раз.
Поиск максимального из чисел
Задача программисту. Найти максимальное из вводимых в
компьютер чисел.
Задача рыбаку. Принести домой самую большую из вылов-
ленных рыб.
Решение рыбака. Рыбак приготовил для самой большой ры-
бы пустое ведро. Первую пойманную рыбу рыбак не глядя броса-
ет в это ведро. Каждую следующую рыбу он сравнивает с той,
что в ведре. Если она больше, то он бросает ее в ведро, а ту, что
была там раньше, выпускает в реку.
Решение программиста. Программист приготовил для само-
го большого числа ячейку и придумал ей название, скажем max.
Первое число программист не глядя вводит в эту ячейку. Каждое
следующее число (назовем его а) он сравнивает с max. Если оно
больше, то он присваивает переменной max значение этого числа.
Напишем программу для определения максимального из N
вводимых чисел:
Private Sub Command1_Click()
PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com
              Фрагмент_3:
         For а=2 To 9
         For b=2 To 9
            proizv = a*b
            Print a; “*”; b; “=”; proizv,
            Next b
            Print
         Next а
              В цикл добавили пустой Print, чтобы после окончания оче-
         редной строки печать начиналась с новой. А чтобы результаты
         были выровнены по столбцам, в конце оператора Print точку с за-
         пятой поменяли на запятую. Столбцы будут расположены на рас-
         стоянии 14 символов друг от друга. Желательно поменять шрифт
         (свойство Font) формы на Courier, потому что у этого шрифта в
         отличие от многих других символы имеют одинаковую ширину.
              В целом программа иллюстрирует идею вложенных циклов.
         У нас тело внешнего цикла выполняется 8 раз, а тело внутреннего
         – 64 раза, т.к. на каждое выполнение внешнего цикла, внутренний
         выполняется 8 раз.

                         Поиск максимального из чисел
              Задача программисту. Найти максимальное из вводимых в
         компьютер чисел.
              Задача рыбаку. Принести домой самую большую из вылов-
         ленных рыб.
              Решение рыбака. Рыбак приготовил для самой большой ры-
         бы пустое ведро. Первую пойманную рыбу рыбак не глядя броса-
         ет в это ведро. Каждую следующую рыбу он сравнивает с той,
         что в ведре. Если она больше, то он бросает ее в ведро, а ту, что
         была там раньше, выпускает в реку.
              Решение программиста. Программист приготовил для само-
         го большого числа ячейку и придумал ей название, скажем max.
         Первое число программист не глядя вводит в эту ячейку. Каждое
         следующее число (назовем его а) он сравнивает с max. Если оно
         больше, то он присваивает переменной max значение этого числа.
              Напишем программу для определения максимального из N
         вводимых чисел:
              Private Sub Command1_Click()

                                                                             73

PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com

Страницы