Sub CommandButton1_Click()

8 9 10 11 12 13 14

K=Val (TextBox1.Text)

S!=0: N=1

L1: S!=S!+N/(N^2+1)

N=N+1

IF N<=K THEN GoTo L1

Label1.Caption=CStr(S!)

End Sub

Варианты заданий

вариант		k
1.		10;15;20
2.		5;10;20
3.		5;10;15
4.		5;15;20
5.		5;10;15
6.		5;10;20
7.		5;15;20
8.		5;10;15
9.		5;15;20
10.		5;10;15
11.		5;10;15
12.		5;10;20
13.		5;10;15
14.		5;10;15
15.		5;15;20

Практическая работа №7

Тема Одномерные массивы

Справка

Диалоговые окна

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

Создание окна выдачи сообщений

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

Пользователь не имеет доступа к другим окнам текущего приложения, пока не завершит работу с данным.

Можно получить доступ к окнам других запущенных приложений.

Функция MsgBox

Наиболее естественный путь создания диалогового окна – использовать специальную функцию MsgBox (окно сообщений). Существуют специальные опции для задания текста сообщения и описания появляющихся в окне кнопок:

Result = MsgBox (текст, опции, заголовок)

где – Result − значение, возвращаемое функцией;

текст − текст сообщения;

опции − целое число, значение которого определяет кнопки и другие атрибуты окна;

заголовок − текст заголовка окна.

Пример:

Response=MsgBox («Готов выйти и сохранить все данные?») (Рисунок 7.1).