ТЕМА № 1. Циклические структуры

Задание: разработайте приложение, которое вычисляет сумму ряда  и количество слагаемых в этой сумме, причем расчет производите до тех пор, пока приращение (очередное слагаемое) не будет меньше заданной точности.

Ход работы

1   Создайте новый проект и расположите элементы управления на новой форме, как показано на рис. 32.

Рис. 32. Конструктор формы

2   Теперь запрограммируйте кнопку Вычислить так, чтобы вычислялись сумма ряда и количество входящих в нее элементов.

3   Сначала опишите переменные, которые потребуются для этого:

Dim Количество As Integer

Dim Сумма As Single

Dim Приращение As Single

Dim x As Single

Dim Точность As Single

4   Теперь вычисляйте новый член ряда и производите суммирование до тех пор, пока он по абсолютной величине превосходит заданную точности. Обратите внимание, что для решения данной задачи цикл с параметром не подойдет, так как заранее неизвестно, сколько раз необходимо производить действия:

Количество = 0

Сумма = 0

x = Val(txtX)

Точность = Val(txtТочность)

Приращение = x

Do While Abs(Приращение) >= Точность

            Сумма = Сумма + Приращение

            Количество = Количество + 1

            Приращение = x / (Количество + 1)

Loop

5   Осталось только вывести результаты Вашего вычисления в метку:

lblСумма = "Сумма =" + Str$(Сумма) + ", количество =" + Str$(Количество)

6   Запустите и отладьте программу. Для контроля введите данные, приведенные на рис. 33.

7   Продолжим совершенствование интерфейса приложения. Добавьте к текстовым окнам элемент управления UpDown, с помощью которого можно изменять содержимое текстовых окон не с клавиатуры, а с помощью мыши.

8   Добавьте на панель инструментов элементы управления Microsoft Windows Common Controls-2 6.0 (см. занятие № 14).

9   Создайте на форме элемент управления UpDown, причем неважно, какого размера и в каком месте. Теперь задайте свойство BuddyControl (имя элемента управления, к которому будет привязан UpDown) равным txtX. Обратите внимание, что элемент управления UpDown автоматически привязывается к элементу управления, который Вы ему указали.

10   Теперь необходимо задать свойства: BuddyProperty, равное Text (это то свойство, которое задает имя свойства элемента управления, которое будет изменять элемент управления UpDown), Min = 0 (минимальное допустимое значение), Маx = 10 (максимальное допустимое значение), Increment = 0.1 (шаг, на который будет изменяться свойство Text).

Рис. 33

11   Запустите приложение и измените значение x с помощью элемента управления UpDown. He правда ли, очень удобно?!

12   Сохраните проект.

Дополнительное задание

Создайте новый элемент управления UpDown для изменения значения текстового окна Точность.

Контрольные задания

Выполните задание данного занятия при следующих условиях:

1) ;                              2) ;

3) ;                             4) ;

5) ;                            6) ;

7) ;                           8) ;

9) ;                           10) .

Вопросы для самоконтроля

1   Что такое цикл?

2   Какие циклы VB Вы знаете?

3   В каких случаях нецелесообразно применять цикл с параметром?

4   Сколько раз будет выполняться следующий цикл:

            Do ... Loop While True ?

5   Сколько раз будет выполняться следующий цикл:

            Do ... Loop Until True ?

6   Вам необходимо посчитать квадраты всех чисел, кратных 5, из заданного интервала. Каким типом цикла для этого Вы воспользуетесь?

Скачано с www.znanio.ru