Преподавание Visual Basic 6.0 в школе

Работы соответствуют уровню обязательных требований к подготовке учащихся и являются ориентиром удовлетворительного усвоения темы. Эти работы доступны большинству учеников.

Пособие может служить самоучителем для изучения данной темы. Так - как сопровождается диском с учебными фильмами по всем практическим работам сборника.

Общие методические рекомендации

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

К работе прилагается диск с видеофильмами по выполнению данных работ.

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

Первый проект на Visual Basic

Как только вы вошли в Visual Basic, вы очутились в интегрированной среде разработки Visual Basic (Integrated Development Environment) - Visual Basic IDE.

В центре Visual Basic IDE расположено окно дизайнера форм. Форма - это основной элемент проекта в Visual Basic и основной объект, с которым вы начинаете работать. В этом окне вы будете производить основные действия по созданию проекта.

Слева от окна дизайнера форм расположена панель, содержащая графические элементы. С помощью них будет строиться ваш проект. Пиктограммы панели элементов представляют элементы управления. Помещая элементы управления на форму, вы конструируете графическую часть своей программы. Графическая часть программы называется графическим интерфейсом пользователя (Graphical User Interface - GUI).

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

Первый ваш проект будет построен с использованием двух элементов управления: командной кнопки (command button) и метки (label), которые вы разместите на форме.

Дважды щелкните на пиктограмме Command Button на панели элементов, и этот элемент очутится у вас на форме.

Дважды щелкните на пиктограмме Label, метка тоже окажется на вашей форме.

Сделайте активной метку на форме, щелкнув по ней мышкой. Теперь окно свойств показывает свойства, соответствующие метке. Выберите свойство Caption и присвойте ему значение “Первый проект на Visual Basic!”, выберите размер шрифта с помощью свойства Font Size. Подгоните размеры метки так, чтобы текст свободно располагался на ней.

Сделайте активной командную кнопку и задайте свойство Caption в окне ее свойств: “выход”. Вот какой вид приблизительно должна принять ваша форма после всех описанных с ней действий:

Содержание вашего первого проекта заключается лишь в том, что после запуска проекта перед пользователем на экране возникает форма с надписью «Мой первый проект». Кроме этого на форме есть командная кнопка с надписью «Выход». Щелкнув по ней, пользователь завершает работу проекта. Чтобы последнее стало возможным, составим для командной кнопки простенький код.

Два раза щелкните на командной кнопке и вы попадете в окно кодов.

В этом окне вам нужно написать один единственный оператор END между строкой Private Sub Command1_Click и строкой End Sub.

Теперь, если пользователь щелкнет на командной кнопке (объект Command1, событие Click) во время работы проекта, то прокт завершит свое выполнение.

Запустите свой проект, нажав клавишу F5, и вы увидите свой первый проект в работе. Щелкните мышкой на командной кнопке, и ваш проект завершит свою работу.

Модификация первого проекта

Изменим немного ваш первый проект. Пусть теперь после запуска проекта на экране появляется форма, на которой видны две командные кнопки: одна с надписью «Пуск», другая с надписью «Выход». После щелчка мышкой по первой кнопке, на форме становится видна метка с надписью «Мой первый проект». После щелчка по второй кнопке, проект завершает свою работу.

Чтобы модифицировать проект таким образом, необходимо сделать следующее. У метки на стадии создания проекта задать свойство Visible (видимость) значением False (ложь). Для этого необходимо сделать активной метку, щелкнув по ней мышкой один раз. В окне свойств отразятся ее свойства. Найдите в нем свойство Visible и задайте соответствующее значение (поменяйте значение True на False). Кроме этого необходимо поместить на форму еще одну кнопку. Дважды щелкните на пиктограмме Command Button в панели элементов, и этот элемент очутится у вас на форме. Сделайте ее активной и задайте свойство Caption значением «Пуск». После таких изменений наша форма будет выглядеть приблизительно так:

Если запустить проект, то на экране перед нами предстанет форма с двумя кнопками с надписями «Пуск» и «Выход». Метка с надписью не видна (свойство Visible имеет значение False). Нам нужно, чтобы после щелчка пользователем по кнопке «Пуск», стала видна надпись «Мой первый проект». Для этого нам необходимо будет составить небольшой код. Щелкните двойным щелчком по кнопке и откройте окно кодов. Первую и последнюю строку кода сформирует Visual Basic, а между ними напечатайте строку: Label1.Visible = True.

Теперь на стадии выполнения проекта, если пользователь щелкнет по командной кнопке с надписью «Пуск», то свойство Visible (видимость) метки примет значение True (Истина), т.е. надпись «Мой первый проект» станет видна.

Запустите проект на выполнение и проверьте, как он работает.

Сохраненный на диске проект состоит из нескольких файлов, поэтому прежде чем сохранять ваш первый поект, создайте для него отдельную папку. Все файлы проекта сохраняйте в ней. Чтобы сохранить проект воспользуйтесь меню Файл. Отдельным файлом сохраняется форма (Файл / Сохранить форму как…). Воспользуемся именем, предлагаемым Visual Basic: Form1.frm. Еще один файл - файл проекта (меню Файл / Сохранить проект как…). Для первого проекта воспользуемся именем, предлагаемым Visual Basic: Project1.vbp.



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

Свойства формы Font, Print.

Рассмотрим еще несколько свойств формы:

Font Bold - полужирный шрифт;

Font Italic - курсивный шрифт;

Font Underline - подчеркнутый.

Эти свойства принимают только булевы значения (True и False). Если вам нужно, чтобы текст выводился шрифтом полужирного или курсивного начертания, зачеркивался или подчеркивался (допускается любая комбинация атрибутов), присвойте соответствующему свойству значение True. Например, курсивный шрифт можно задать так:

frmMain.FontItalic = True

Если вы хотите еще, чтобы буквы и подчеркивались, то следующую строку кода можно сделать такую:

frmMain.FontUnderLine = True

Модификация одного из перечисленных свойств влияет лишь на вновь выводимый текст.

Font Name - шрифт. Этому свойству присваивается имя шрифта, который будет использоваться при выводе текста на форму. Смена шрифта действует лишь на новый текст, не влияя на уже имеющийся. Например, если ваша программа выполнит код, показанный ниже, буква ”В” будет напечатана шрифтом Courier New Cyr, а остальные символы - шрифтом Times New Roman Cyr.

Font Name = “Times New Roman Cyr”

Print “А Б”

Font Name = “Courier New Cyr”

Print “В”

Font Name = “Times New Roman Cyr”

Print “Г Д”

Font Size - размер шрифта. Это свойство определяет размер шрифта (в пунктах), которым текст изображается на форме. Пункт (point) - стандартная типографская единица измерения, применяемая при описании размера шрифта; 1пт равен 1/72 дюйма или примерно 0,035см. Состояние этого свойства не влияет на текст, уже выведенный на форму.

Метод Cls позволяет очистить форму от всех изображений и текста. Полный синтаксис метода Cls выглядит так:

[Имя формы].Cls

С методом Print удобно использовать функцию Tab. Она имеет следующий синтаксис:

Tab [(n)]

С помощью функции Tab можно отодвинуть курсор вправо на n символов.

Если нужно напечатать на форме, например, слово “Стихотворение” не с левого края строки, а правее на 10 символов, то можно дать в коде инструкцию:

Print Tab(10); “Стихотворение” Второй проект, печатающий стихотворение

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

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

Форму назовите F, командные кнопки: C и C1. Код, распечатывающий стихотворение, будет размещен в процедуре cmdPoem_Click. Запишите проект под названием 2.



Практическая работа 3 (3.1)

Свойства формы Top, Left, Hight, Width.

(Свойства кнопок Top, Left, Hight, Width.)

Пусть на форме проекта расположены пять командных кнопок. Одна кнопка - для выхода из проекта, вторая для сдвига формы вниз по экрану (для отработки свойства Top формы), третья - для сдвига формы вправо по экрану (для отработки Left), четвертая для увеличения высоты формы (для отработки свойства Hight) и пятая - для увеличения ширины формы (для отработки свойства Width).

Свойству Name (имя) формы присвоим значение F , свойству Caption - значение Свойства формы. Сделаем фон формы белым (свойству BackColor присвоим значение Button HightLight). На этапе проектирования проверим значения свойств Hight и Width формы. Пусть они будут такие, как предлагает нам Visual basic по умолчанию: 3600 и 4800 твипов соответственно. Значения свойств Top и Left нулевые.

На форме разместим пять командных кнопок. Первую кнопку, которая должна служить для завершения проекта, назовем C5. Свойству Caption присвоим значение Выход. Код для этой кнопки составьте самостоятельно.

Еще одна кнопка с именем C1 будет предназначена для сдвига формы вниз по экрану компьютера. Пусть каждый раз после щелчка по этой кнопке форма перемещается на определенной расстояние вниз. Свойству Capton этой кнопки присвоим значение Сдвиг формы вниз. Пусть после щелчка по этой кнопке форма сдвигается на 40 твипов вниз по экрану. Тогда в процедуре, относящейся к объекту cmdDown, реакцией на событие щелчок мыши к текущему значению свойства Top формы нужно прибавить 40 твипов. Нетрудно составить соответствующий код:

Private Sub C1_Click( )

F.Top = F.Top + 40

End Sub

Третья кнопка. Она предназначена для сдвига формы вправо. Сделайте ее самостоятельно аналогично предыдущей кнопке, но используйте соответственно свойство Left формы.

Теперь сделаем четвертую кнопку. Она будет служить для увеличения высоты формы. Здесь нам придется иметь дело со свойством Height формы. Назовем кнопку C2, свойству Caption присвоим значение Увеличение высоты формы. Пусть после щелчка высота формы увеличивается на 40 твипов. Тогда в процедуре, относящейся к объекту C2, реакцией на событие щелчок мыши к текущему значению свойства Height формы нужно прибавить 40 твипов. Нетрудно составить соответствующий код.

Private Sub C2_Click()

F.Height = F.Height + 40

End Sub

Пятая кнопка должна служить для увеличения ширины формы. Сделайте ее самостоятельно.

Сохраните проект в отдельной папке под именем 3.

Аналогично можно сделать данную работу с кнопками управления. Можно сохранить данную работу под именем Pr3.1

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

Свойства Load, Screen. Событие GotFocus.

Попробуем менять местоположение формы в процессе выполнения проекта (т.е. в коде).

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

Форму назовите F, свойству Caption формы присвойте значение Перемещение формы по экрану. Метку назовите (свойство name) V , значение свойства Caption метки пустая строка. Первой сделайте кнопку для завершения проекта. Назовите ее C, свойству Caption присвойте значение Выход.

Программный код кнопки будет:

Private Sub C_Click()

End

End Sub

Кнопки назовите следующим образом (свойству name присвойте значения):

C1 - левую верхнюю;

C3 - левую нижнюю;

C2 - правую верхнюю;

C4 - правую нижнюю,

Значения свойства Caption кнопок тоже не задавайте.

В итоге форма на этапе проектирования должна выглядеть приблизительно следующим образом:

Как только форма загружается в память компьютера, перед тем, как она появится на экране, всегда вызывается событие Load. Ответ на событие Load можно запрограммировать с помощью процедуры F_Load( ). Процедура F_Load( ) является своего рода попыткой Visual Basic спросить: “Не нужно ли при загрузке формы выполнить что-нибудь еще?” В нашем проекте в этой процедуре мы установим значения свойств Caption для кнопок команд, что поможет пользователю понять назначение каждой из этих кнопок. Для того, чтобы в коде менять значение свойства некоего объекта, нужно назвать его, называя сначала имя объекта, потом через точку его свойство и присвоить ему значение.

Тогда процедура F_Load( ) будет выглядеть следующим образом:

Private Sub Form_Load()

C1.Caption = "ВлевоВверх"

C2.Caption = "ВправоВверх"

C3.Caption = "ВлевоВниз"

C4.Caption = "ВправоВниз"

L.Caption = ""

End Sub

Запустите проект на выполнение. Теперь форма выглядит следующим образом:

Нужно создать код для перемещения формы на экране. Этот код будет добавлен в процедуры обработки событий Click для всех кнопок команд.

Для кнопки C3 при щелчке по ней необходимо, чтобы нижний край формы совпадал с нижним краем экрана. Тогда свойство Top формы будет равно высоте экрана минус высота формы, т.е.

F.Top = Screen.Height - F.Height

Свойство Left формы должно соответствовать левому краю экрана, т.е.

F.Left = 0

Тогда код для кнопки C3 обработки события Click будет выглядеть следующим образом:

Private Sub C3_Click()

F.Top = Screen.Height - F.Height

F.Left = 0

End Sub

Коды для остальных кнопок будут выглядеть так:

Private Sub C1_Click()

F.Left = 0

F.Top = 0

End Sub

Private Sub C2_Click()

F.Left = Screen.Width - F.Width

F.Top = 0

End Sub

Private Sub C4_Click()

F.Top = Screen.Height - F.Height

F.Left = 10500

End Sub

Кроме событий, инициируемых непосредственно пользователем, есть и другие события, являющиеся прямыми или опосредованными следствиями действий пользователя. Когда пользователь щелкает на командной кнопке, вместе с событием Click вызываются и еще несколько. Одно из них - событие GotFocus для данной кнопки. При этом какой-то другой элемент управления теряет фокус. Это означает вызов события LostFocus для соответствующего элемента управления. Точно так же, как и событие Click, события GotFocus и LostFocus инициированы действием пользователя.

Мы в нашем проекте обработаем события GotFocus для командных кнопок: будем с помощью свойства Caption метки V, сообщать, какая командная кнопка в фокусе.

Процедура события GotFocus для кнопки C1 будет иметь вид:

Private Sub C1_GotFocus()

L.Caption = "Нажата кнопка ВлевоВверх"

End Sub

Теперь по время выполнения проекта, если пользователь щелкнет по правой верхней кнопке, форма будет иметь следующий вид:

Для остальных кнопок программный код будет выглядеть так:

Private Sub C2_GotFocus()

L.Caption = "Нажата кнопка ВправоВверх"

End Sub

Private Sub C3_GotFocus()

L.Caption = "Нажата кнопка ВлевоВниз"

End Sub

Private Sub C4_GotFocus()

L.Caption = "Нажата кнопка ВправоВниз"

End Sub

Проект сохраните под именем F3.2, запишите проект на диск под именем 3.2

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

Изменение цвета формы (Цвет 1)

Задать данные для формы:

Name F

Coption Цвет формы

На форме создать 4 командные кнопки

Для 1 кнопки

Name C1

Coption Красный цвет

Для 2 кнопки

Name C2

Coption Зелёный цвет

Для 3 кнопки

Name C3

Coption Синий цвет

Для 4 кнопки

Name C4

Coption Выход

Создать текстовое поле

Name T

Text Ничего не указывать

Необходимо прописать программный код для первой кнопки

Private Sub C1_Click()

F.BackColor = RGB(255, 0, 0)

T.Text = "Цвет формы красный"

End Sub

Необходимо прописать программный код для второй кнопки

Private Sub C2_Click()

F.BackColor = RGB(0, 255, 0)

T.Text = "Цвет формы зелёный"

End Sub

Необходимо прописать программный код для третьей кнопки

Private Sub C3_Click()

F.BackColor = RGB(0, 0, 255)

T.Text = "Цвет формы синий"

End Sub

Необходимо прописать программный код для четвертой кнопки

Private Sub C4_Click()

End

End Sub

Далее рассмотреть как выполняется данная программа и сохранить её по именем

Цвет 1

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

Расположение Image на форме.

Задаем данные для программы 4.1

Задать данные для формы:

Name F

Coption Рисунок

Создаем на форме две командные кнопки

Для 1 кнопки

Name C1

Coption Загрузка рисунка

Для 2 кнопки

Name C2

Coption Выход

Создаём объект Image

Name I

Picture указываем путь к рис 1

Visible False

Указываем программный код для кнопок:

Для первой кнопки

Private Sub C1_Click()

I.Visible = True

End Sub

Для второй кнопки

Private Sub C2_Click()

End

End Sub

Необходимо сохранить под именем 4.1

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

Загадка

Задаем данные для проекта Загадка

Задать данные для формы:

Name F

Coption Загадка

Создаём объект Image

Name I

Picture указываем путь к рис img001

Visible False

На форме создаем три командные кнопки

Для 1 кнопки

Name C1

Coption Загадка

Для 2 кнопки

Name C2

Coption Отгадка

Для 3 кнопки

Name C3

Coption Выход

Указываем программный код для кнопок

Для первой кнопки

Private Sub C1_Click()

Print ""

Print ""

Print ""

Print Tab(10); ""

Print Tab(5); "Два кольца, два конца"

Print Tab(5); "По середине гвоздик."

End Sub

Для второй кнопки

Private Sub C2_Click()

F.Cls

I.Visible = True

End Sub

Для третьей кнопки

Private Sub C3_Click()

End

End Sub

Сохранить проект по именем Загадка

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

Калькулятор

На форме (Name (F), Coption (Калькулятор)) создаются четыре объекта Label, три объекта TextBox, шесть объектов CommandButton.

Объекты Label

Name L1

Coption Калькулятор

Name L2

Coption Первое число

Name L3

Coption Второе число

Name L4

Coption Результат

Объекты TextBox

Name T1

Text Нет

Name T2

Text Нет

Name T3

Text Нет

Объекты CommandButton

Name C1

Coption +

Name C2

Coption -

Name C3

Coption *

Name C4

Coption /

Name C5

Coption Очистка

Name C6

Coption Выход

Программный код для C1

Private Sub C1_Click()

T3.Text = Val(T1.Text) + Val(T2.Text)

End Sub

Программный код для C2

Private Sub C2_Click()

T3.Text = Val(T1.Text) - Val(T2.Text)

End Sub

Программный код для C3

Private Sub C3_Click()

T3.Text = Val(T1.Text) * Val(T2.Text)

End Sub

Программный код для C4

Private Sub C4_Click()

T3.Text = Val(T1.Text) / Val(T2.Text)

End Sub

Программный код для C5

Private Sub C5_Click()

T1.Text = ""

T2.Text = ""

T3.Text = ""

End Sub

Программный код для C6

Private Sub C6_Click()

End

End Sub

Практическую работу сохранить под именем 5,



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

Состав двухзначного числа

На форме (Name (F), Coption (Состав двухзначного числа)) создаются два объекта Label, три объекта TextBox, четыре объекта CommandButton.

Объекты Label

Name L1

Coption Состав двухзначного числа

Name L2

Coption Введите двхзначное число

Объекты TextBox

Name T1

Text нет

Name T2

Text нет

Name T3

Text нет

Объекты CommandButton

Name C1

Coption Число десятков

Name C2

Coption Число единиц

Name C3

Coption Очистка

Name C4

Coption Выход

Программный код для C1

Private Sub C1_Click()

T2.Text = Val(T1.Text \ 10)

End Sub

Программный код для C2

Private Sub C2_Click()

T3.Text = Val(T1.Text) - Val(T2.Text * 10)

End Sub

Программный код для C3

Private Sub C3_Click()

T1.Text = ""

T2.Text = ""

T3.Text = ""

End Sub

Программный код для C4

Private Sub C4_Click()

End

End Sub

Практическую работу сохранить под именем 5.1

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

Условие, полное ветвление

Создаем форму

Name F

Caption Условие

На форме создается две текстовые метки, два текстовых поля и три командные кнопки

Для текстовых меток:

Name L1

Caption Полное ветвление

Name L2

Caption Введите x

Для текстовых полей:

Name T1

Text

Name T2

TextДля командных кнопок:

Name C1

Caption Пуск

Name C2

Caption Очистить

Name C3

Caption Выход

Указываем программный код для C1

Private Sub C1_Click()

Dim x, y As Double

x = Val(T1.Text)

If x >= 0 Then y = Sqr(x) Else y = x * x

T2.Text = y

End Sub

Указываем программный код для C2

Private Sub C2_Click()

T1.Text = ""

T2.Text = ""

End Sub

Указываем программный код для C3

Private Sub C3_Click()

End

End Sub

Сохраняем работу под именем 6



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

Условие, логическая связка (and)

Находится ли произвольно введенная точка с координатами x, y в первой четверти координатной плоскости?

Создаем форму

Name F1

Caption Логическая связка

На форме создается три текстовые метки, три текстовых поля и две командные кнопки

Для текстовых меток:

Name L1

Caption Введите X=

Name L2

Caption Введите Y=

Name L2

Caption Ответ

Для текстовых полей:

Name T1

Text

Name T2

Text

Name T3

Text

Для командных кнопок:

Name C1

Caption Пуск

Name C2

Caption Выход

Указываем программный код для C1

Private Sub C1_Click()

Dim x, y As Single

x = Val(T1.Text)

y = Val(T2.Text)

If x > 0 And y > 0 Then T3.Text = "Внутри" Else T3.Text = "За приделами"

End Sub

Указываем программный код для C2

Private Sub C2_Click()

End

End Sub

Сохраняем работу под именем 6.1

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

Не полное ветвление

Создаем форму

Name F1

Caption Не полное ветвление

На форме создается одна текстовая метка, два текстовых поля и три командные кнопки

Используя загрузку формы Load прописываем первоначальную загрузку для элементов управления:

Private Sub Form_Load()

L1.Caption = "Введите x"

T1.Text = ""

T2.Text = ""

C1.Caption = "Запуск"

C2.Caption = "Очистка"

C3.Caption = "Выход"

End Sub

После запуска форма будет иметь вид:

Указываем программный код для C1

Private Sub C1_Click()

Dim x, y As Single

x = Val(T1.Text)

y = Val(T2.Text)

If x >= 0 Then y = Sqr(x)

T2.Text = y

End Sub

Указываем программный код для C2

Private Sub C2_Click()

T1.Text = ""

T2.Text = ""

End Sub

Указываем программный код для C3

Private Sub C3_Click()

End

End Sub

Сохраняем работу под именем 6.2

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

Цикл с фиксированном числом повторений

Найдите суммы первых натуральных b чисел

Создаем форму

Name F

Caption Цикл сумма от a до b

На форме создаются три текстовые метки, три текстовых поля и три командные кнопки

Для текстовых меток

Name L1

Caption Введите a=

Name L2

Caption Введите c=

Name L3

Caption Ответ

Для текстовых полей

Name T1

Text

Name T2

Text

Name T3

Text

Для командных кнопок

Name C1

Caption Вычислить сумму

Name C2

Caption Очистить

Name C3

Caption Выход

Программный код для кнопок

Для C1

Private Sub C1_Click()

Dim i, s, a, b As Single

s = 0

a = Val(T1.Text)

b = Val(T2.Text)

c = Val(T3.Text)

For i = a To b

s = s + i

Next i

T3.Text = s

End Sub

Для C2

Private Sub C2_Click()

T1.Text = ""

T2.Text = ""

T3.Text = ""

End Sub

Для C3

Private Sub C3_Click()

End

End Sub

Работу сохранить под именем 7

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

Цикл с фиксированном числом повторений и шагом h

Сумма первых четных (не четных) b чисел

Создаем форму

Name F

Caption Цикл сумма от a до b

На форме создаются три текстовые метки, три текстовых поля и три командные кнопки

Для текстовых меток

Name L1

Caption Введите a=

Name L2

Caption Введите c=

Name L3

Caption Ответ

Для текстовых полей

Name T1

Text

Name T2

Text

Name T3

Text

Для командных кнопок

Name C1

Caption Вычислить сумму

Name C2

Caption Очистить

Name C3

Caption Выход

Программный код для кнопок

Для C1

Private Sub C1_Click()

Dim i, s, a, b As Single

s = 0

a = Val(T1.Text)

b = Val(T2.Text)

c = Val(T3.Text)

For i = a To b step 2

s = s + i

Next i

T3.Text = s

End Sub

Для C2

Private Sub C2_Click()

T1.Text = ""

T2.Text = ""

T3.Text = ""

End Sub

Для C3

Private Sub C3_Click()

End

End Sub

Работу сохранить под именем 7.1

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

Цикл с предусловием

Найти произведение первых b натуральных чисел.

Создаем форму

Name F

Caption Цикл с предусловием

На форме создаются три текстовые метки, три текстовых поля и три командные кнопки

Для текстовых меток

Name L1

Caption Введите a=

Name L2

Caption Введите c=

Name L3

Caption Ответ

Для текстовых полей

Name T1

Text

Name T2

Text

Name T3

Text

Для командных кнопок

Name C

Caption Пуск

Name C2

Caption Очистить

Name C3

Caption Выход

Программный код для кнопок

Для C

Private Sub C_Click()

Dim a, b, p As Single

a = Val(T1.Text)

b = Val(T2.Text)

p = Val(T3.Text)

p = 1

While a <= b

p = p * a

a = a + 1

T3.Text = p

Wend

End Sub

Для C2

Private Sub C2_Click()

T1.Text = ""

T2.Text = ""

T3.Text = ""

End Sub

Для C3

Private Sub C3_Click()

EndEnd Sub

Работу сохранить под именем 7.2

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

Цикл с постусловием

Найти произведение b натуральных четных (не четных) чисел.

Создаем форму

Name F

Caption Цикл с постусловием

На форме создаются три текстовые метки, три текстовых поля и три командные кнопки

Для текстовых меток

Name L1

Caption Введите a=

Name L2

Caption Введите b=

Name L3

Caption Ответ p=

Для текстовых полей

Name T1

Text

Name T2

Text

Name T3

Text

Для командных кнопок

Name C

Caption Пуск

Name C2

Caption Очистить

Name C3

Caption Выход

Программный код для кнопок

Для C

Private Sub C_Click()

Dim a, b, p As Single

a = Val(T1.Text)

b = Val(T2.Text)

p = Val(T3.Text)

p = 1

Do Until a > b

p = p * a

a = a + 2

T3.Text = p

Loop

End Sub

Для C2

Private Sub C2_Click()

T1.Text = ""

T2.Text = ""

T3.Text = ""

End Sub

Для C3

Private Sub C3_Click()

End

End Sub

Работу сохранить под именем 7.3

Размещено на Allbest.ru

...