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

            N = InputBox(“Введите количество чисел”)
            max = InputBox(“Введите число”)
            For i = 2 To N
            a = InputBox(“Введите число”)
            If a > max Then max = a
            Next i
            Debug.Print max
         End Sub

                       Задания для самостоятельной работы
               1. Напечатать таблицу соответствия между весом в фун-
         тах и весом в килограммах для значений 1, 2, …, 10 фунтов
         (1 фунт = 453 г.)
               2. Напечатать таблицу перевода 1, 2, …, 20 долларов
         США в рубли по текущему курсу (значение курса вводится с кла-
         виатуры).
               3. Одноклеточная амеба каждые 3 часа делится на 2 клет-
         ки. Определить, сколько клеток будет через 3, 6, 9, …, 24 часа,
         если первоначально была одна амеба.
               4. Вычислить сумму:
               a) первых пятидесяти натуральных чисел;
               b) всех целых чисел от -10 до В (значение В вводится с кла-
         виатуры).
               5. Вычислить произведение:
               a) всех целых чисел от А до 20 (значение А вводится с кла-
         виатуры, 1 ≤ А ≤ 20);
               b) нечетных чисел от 1 до 21 включительно.
               6. Вычислить среднее арифметическое:
               a) всех целых чисел от 1 до 1000;
               b) всех целых чисел от А до В (значения А и В вводятся с
         клавиатуры, А ≤ 200)
               7. Вычислить факториал натурального числа n (n! =
         1⋅2⋅3⋅…⋅n) .
               8. Даны натуральное число n и целые числа a1, a2, … , an.
         Определить:
               a) Сумму тех чисел, которые больше Р;
               b) Произведение тех чисел, которые кратны трем;
               c) Количество пар соседних чисел ai, равных между собой.



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