extracted_text:
Тема: Оператор перехода  Goto. Цикл. Выход из цикла с помощью  If. Решение
задач.
Учебная:
 научить   работать   с   оператором   перехода  Goto,
 запрограммировать
завершение   работы   цикла  Visual  Basic  6.0.   Решать   задачи,   применяя     способ
выхода из цикла в Visual Basic 6.0.
Воспитательная: Воспитать стремление к аккуратности, ответственности при работе с
техникой.
Развивающая:  развитие   познавательного   интереса,   логического   мышления,   памяти,
творческого подхода к решению задачи.
Обеспечение занятия:
Литература:
1). ПК – ЭВМ
2). Раздаточный материал
–
12 шт.
Н.Г. Волченков «Программирование на Visual Basic 6.0 »
С.Н Лукин «Самоучитель работы на Visual Basic 6.0»
Вид занятия:
комбинированное
–
1ч.
План занятия:
1. Организационный момент
2. Изложение новой темы
3. Закрепление темы
4. Практическая работа
5. Отчет по работе
6. Д/з
Х О Д   У Р О К А .
–
–
–
10
–
–
  2
20
10
2
  1
–
1. Организационный момент
(Приветствие, проверка посещаемости, объявление целей и задач урока)
20
2. Изложение новой темы
–
  2
–
Итак, как нам запрограммировать завершение работы цикла? Для этого нужно применить
оператор GoTo внутри оператора If.
Задача №1: При помощи цикла напечатать:
Начало счета 3 5 7 9 11 13 15 ….. 329 331 333 Конец счета
Для удобства отладки изменим условие задачи  напечатать:
Начало счета 3 5 7 9 Конец счета
Вы уже достаточно опытны в программировании, чтобы догадаться, что программа для
измененного условия будет копией программы для исходного, за исключением одного
числа.
Вот 4 варианта программы. Первый – самый простой, а остальные нам понадобятся в
дальнейшем. Все 4 варианта делают одно и то же, они очень похожи, но чемто и
отличаются. Вот в этом отличии вам и надо разобраться, иначе не будет понятен
дальнейший материал. Создайте проект с 4 кнопками и выполните в пошаговом режиме все 4 варианта (не
обращая пока внимания на непонятные слова в заголовках таблиц, эти слова понадобятся
чуть позже):
1 ВАРИАНТ (Do …. Loop While)
Private Sub Command1_Click()
Debug.Print "Начало счета";
f = 3
m: Debug.Print f;
f = f + 2
If f <= 9 Then GoTo m
Debug.Print "Конец счета"
End Sub
2 ВАРИАНТ (Do …. Loop Until)
Private Sub Command2_Click()
Debug.Print "Начало счета";
f = 3
m1: Debug.Print f;
f = f + 2
If f > 9 Then GoTo m2 Else GoTo m1
m2: Debug.Print "Конец счета"
End Sub
Вот в каком порядке выполняются операторы программы первого варианта:
Debug.Print "Начало счета" f=3 Debug.Print f {печатается 3} f=f+2 {f становится
равным 5} If f<=9 Then GoTo
m Debug.Print f {печ. 5} f=f+2 {f = 7} If f<=9 Then GoTo m Debug.Print f {печ. 7} f=f+2
 {f = 9} If f<=9 Then
GoTo m Debug.Print f {печ. 9} f=f+2 {f = 11} If f<=9 Then GoTo m Debug.Print " Конец
счета"
Здесь оператор GoTo m выполняется три раза. На четвертый раз условие f<=9 оказывается
ложным и поэтому выполняется не GoTo m, а следующий за If оператор Debug.Print "Конец
счета", то есть программа выходит из цикла и завершает свою работу.
3 ВАРИАНТ (Do While …. Loop)
Private Sub Command3_Click()
Debug.Print "Начало счета";
f = 3
m1: If f <= 9 Then GoTo m3 Else GoTo m2
m3: Debug.Print f;
f = f + 2
GoTo m1
m2: Debug.Print "Конец счета"
End Sub
4 ВАРИАНТ (Do Until …. Loop)
Private Sub Command4_Click() Debug.Print "Начало счета";
f = 3
m1: If f > 9 Then GoTo m2 Else GoTo m3
m3: Debug.Print f;
f = f + 2
GoTo m1
m2: Debug.Print "Конец счета"
End Sub
3. Закрепление темы
–
10
Задача №2: Напечатать пары чисел  1 1001 2 1002 3 1003 ………….. 100 1100.
Программа:
Private Sub Command1_Click()
f = 1
m: s = f + 1000
f = f + 1
Debug.Print f; s
If f <= 100 Then GoTo m
End Sub
Задания 37:
3. А. Напечатать 1 2 3 4 . . . 99 100
Private Sub Command1_Click()
Debug.Print "начало счета";
f = 1
m: Debug.Print f;
f = f + 1
If f <= 100 Then GoTo m
Debug.Print "конец счета"
End Sub
Б. Напечатать 100 99 . . . 3 2 1.
Private Sub Command1_Click()
Debug.Print "НАЧАЛО СЧЕТА";
f = 100
m: Debug.Print f;
f = f  1
If f >= 1 Then GoTo m
Debug.Print "КОНЕЦ СЧЕТА"
End Sub
4. Практическая работа
–
10
В. Напечатать 1 2 3 4 . . . 99 100 99 . . . 3 2 1.
Private Sub Command1_Click()  'Печатаем 1 2 3 4 . . . 100:
a = 1
m1: Debug.Print a; a = a + 1
If a <= 100 Then GoTo m1
'Печатаем 99 98 97 96 . . . 1:
a = 99
m2: Debug.Print a;
a = a  1
If a >= 1 Then GoTo m2
End Sub
4."Таблицы Брадиса" или "Таблицы логарифмов" (в те времена, когда не было
калькуляторов, были такие напечатанные в виде брошюрок таблицы для
школьников и студентов, по которым они могли быстро посмотреть численные
значения квадратов, логарифмов и других математических функций).
Вычислить и напечатать с 6 десятичными знаками квадраты чисел 0.000 0.001 0.002 0.003 . .
. 0.999 1.000.
Dim a As Double
Private Sub Command1_Click()
a = 0
m: Debug.Print Format(a, "0.000"), Format(a ^ 2, "0.000000")
a = a + 0.001
If a <= 1.00001 Then GoTo m
End Sub
5. Для х=2700, 900, 300, 100 . . . и т.д. вычислять и печатать y=x/4 + 20 и z=2y+0.23 до тех
пор, пока y * z не станет меньше 1/х.
Private Sub Command1_Click()
x = 2700
m1: y = x / 4 + 20
z = 2 * y + 0.23
If y * z < 1 / x Then GoTo m2
Debug.Print Format(x, "0.000000"), Format(y, "0.000000"), Format(z, "0.000000")
x = x / 3
GoTo m1
m2:
End Sub
6. Пусть движущееся изображение, описанное на прошлом уроке, через некоторое время
остановится.
x = 300
m1: x = x + 0.01
Image1.Left = x
If x <= 2000 Then GoTo m1
7. Изображение, пройдя немного слева направо, поворачивает вниз и, пройдя немного,
через некоторое время останавливается
Private Sub Command2_Click()
'Ставим объект в начальную точку:
x = 300
Image1.Left = x
y = 1000 Image1.Top = y
'Движемся направо:
m1: x = x + 0.01
Image1.Left = x
If x <= 2000 Then GoTo m1
'Движемся вниз:
m2: y = y + 0.01
Image1.Top = y
If y <= 1500 Then GoTo m2
End Sub
5.Отчет по работе
6.Д/з
–
–
2
  1
Примечание: при изучении нового материала учащиеся делают в тетрадь необходимые
записи под руководством учителя

file_name: Оператор Goto. Выход из цикла с помощью If.doc

intro:
1. Организационный момент				–	  2
(Приветствие, проверка посещаемости, объявление целей и задач урока)
2.	Изложение новой темы					–	20
Итак, как нам запрограммировать завершение работы цикла? Для этого нужно применить оператор GoTo внутри оператора If.
Задача №1: При помощи цикла напечатать:
Начало счета 3 5 7 9 11 13 15 ….. 329 331 333 Конец счета
Для удобства отладки изменим условие задачи - напечатать:
Начало счета 3 5 7 9 Конец счета
Вы уже достаточно опытны в программировании, чтобы догадаться, что программа для измененного условия будет копией программы для исходного, за исключением одного числа.
Вот 4 варианта программы. Первый – самый простой, а остальные нам понадобятся в дальнейшем. Все 4 варианта делают одно и то же, они очень похожи, но чем-то и отличаются. Вот в этом отличии вам и надо разобраться, иначе не будет понятен
дальнейший материал.


extracted_text:
Урок №8.
Тема: Оператор выбора. Многострочный If . Решение задач на условие.
Учебная: научить работать с многострочной формой условного оператора Visual Basic
6.0. Решать задачи  на условие, применяя  однострочный If  Visual Basic 6.0.
Воспитательная: Воспитать стремление к аккуратности, ответственности при работе с
техникой.
Развивающая:  развитие   познавательного   интереса,   логического   мышления,   памяти,
творческого подхода к решению задачи.
Обеспечение занятия:
Литература:
1). ПК – ЭВМ
2). Раздаточный материал
–
12 шт.
Н.Г. Волченков «Программирование на Visual Basic 6.0 »
С.Н Лукин «Самоучитель работы на Visual Basic 6.0»
Вид занятия:
комбинированное
–
1ч.
План занятия:
1. Организационный момент
2. Изложение новой темы
3. Закрепление темы
4. Практическая работа
5. Отчет по работе
6. Д/з
Х О Д   У Р О К А .
–
–
–
10
–
–
  2
20
10
2
  1
–
1. Организационный момент
(Приветствие, проверка посещаемости, объявление целей и задач урока)
20
2. Изложение новой темы
–
  2
–
Многострочная  форма синтаксиса условного оператора более сложная.
Вот синтаксис многострочного оператора If:
If условие Then
операторы
операторы
…………….
[ ElseIf условие Then
операторы
операторы
……………. ]
……………………….….
[ Else
операторы
операторы ……………. ]
End If
Частей ElseIf может быть сколько угодно или совсем не быть. Часть Else, если она есть, то
одна и стоит последней.
Имейте в виду, что у вас нет права объединять строки многострочного оператора If,
например, так:
If условие Then операторы ElseIf операторы
Не нужно переносить слова Then, ElseIf и другие например, так:
If условие
Then операторы
ElseIf операторы
Вспомним недавнюю задачу: Если a не равно 10 выполнить операторы b=5 и Print b,
а в противном случае  операторы b=1,a=b+15 и с=0. Вот однострочный оператор If,
решающий эту задачу:
If a <> 10 Then b=5 : Print b Else b=1 : a=b+15 : с=0
Однако, часто количество операторов после Then и Else бывает гораздо большим, да и сами
эти операторы бывают гораздо более сложными и длинными. В этом случае строка
становится неудобочитаемой, да и вообще не умещается на экране. Для таких случаев
создан многострочный (или блочный) оператор If. Вот как решается наша задача с его
помощью:
If a <> 4 Then
b=3
Print b
Else
b=0
a=b+5
с=0
End If
Конструкция End If означает просто, что в этом месте оператор If заканчивается.
Часть Else может и отсутствовать. Например,
If a <> 4 Then
b=3
Print b
End If
Самое замечательное в блочном If то, что здесь можно одно за другим проверять несколько
условий.
Вложенные операторы If
Согласно синтаксической схеме оператора If, после Then и Else может стоять любой
оператор Visual Basic, в том числе и If.
Решим задачу: Попади в цель.
В компьютер вводится число (это будет мишень). Если  оно находится в интервале от 28 до
30, то напечатать текст ПОПАЛ, иначе  НЕ ПОПАЛ.
Сначала составим алгоритм: Введи число. Если оно меньше 28, то печатай  НЕ ПОПАЛ, в
противном случае надо еще подумать. А о чем же думать? А вот о чем: Если число меньше
30, то печатай ПОПАЛ, иначе печатай НЕ ПОПАЛ.
А теперь по составленному алгоритму напишем программу:
Private Sub Command1_Click()
a = InputBox("Введите дальность выстрела") If a < 28 Then
MsgBox ("НЕ ПОПАЛ")
Else
If a < 30 Then MsgBox ("ПОПАЛ") Else MsgBox ("НЕ ПОПАЛ")
End If
End Sub
Здесь оператор If a < 30 входит в состав оператора If a < 28. Говорят, что он вложен в него.
Эту же программу можно записать и без вложенного If:
Private Sub Command1_Click()
a = InputBox("Введите дальность выстрела")
If a < 28 Then
MsgBox ("НЕ ПОПАЛ")
ElseIf a < 30 Then
MsgBox ("ПОПАЛ")
Else
MsgBox ("НЕ ПОПАЛ")
End If
End Sub
3. Закрепление темы
–
10
Задача: В компьютер вводится целое число a.
•  Если a<0, то компьютер должен сказать "Число отрицательно".
•  Если a=0, то компьютер должен сказать "Вы ввели нуль".
•  Если a>100, то компьютер должен сказать "Число большое".
•  В остальных случаях компьютер ничего не должен говорить, а только вычислить и
напечатать его квадрат.
В любом случае после всего этого компьютер должен сказать "Пока".
Вот программа:
Private Sub Command1_Click()
a = InputBox("Введите число")
If a < 0 Then
MsgBox ("Число отрицательно")
ElseIf a = 0 Then
MsgBox ("Вы ввели нуль")
ElseIf a > 100 Then
MsgBox ("Число большое")
Else
Print a ^ 2
End If
MsgBox ("Пока")
End Sub
ElseIf переводят так  "иначе если". Получается вот что: Если a < 0, то ……. иначе если a
= 0, то …… иначе если a > 100, то ……
Блочный If выполняется так: Сначала проверяется первое условие (a < 0). Если оно не
выполняется, то Visual Basic переходит к проверке второго условия(a = 0) и так далее.
Найдя условие, которое выполняется, Visual Basic выполняет операторы, стоящие после
его Then и на этом заканчивает работу, даже если ниже есть условия, которые тоже вы полняются. Если не выполняется ни одно из условий, Visual Basic выполняет операторы,
стоящие за Else.
4.Практическая работа
–
10
Задание1: Компьютер спрашивает пользователя, как его зовут, а затем приветствует его в
соответствии с именем. Затем спрашивает – Ты из какого города?
Если из города «Семей»  отвечает ему – «Привет, зема»
Иначе – «Добро пожаловать в город Семей»
Задание 2: Видоизменить диалог с компьютером, начатый в задании 1. Пусть компьютер,
узнает возраст человека, узнав возраст,  дальнейшую беседу ведет по двум вариантам. Если
возраст больше 17, то компьютер должен задать вопрос: "В каком институте ты
учишься?" и получив ответ, глубокомысленно заметить "Хороший институт". Если же
возраст меньше или равен 17, то соответственно  "В какой школе ты учишься?" и
"Неплохая школа". После этого, каков бы ни был вариант, компьютер должен
попрощаться: "Пока!".
6.  Задание на дом
Поработать   с   конспектом.   Составить     и   решить   задачу   на   условие   (Оператор   выбора.
Многострочный If)
Примечание: при изучении нового материала учащиеся делают в тетрадь необходимые
записи под руководством учителя.
5.6. Ступенчатая запись программы

file_name: оператор выбора многострочный If.doc

intro:
Учебная: научить работать с многострочной формой условного оператора Visual Basic 6.0. Решать задачи  на условие, применяя  однострочный If  Visual Basic 6.0.
Воспитательная: Воспитать стремление к аккуратности, ответственности при работе с техникой.
Развивающая: развитие познавательного интереса, логического мышления, памяти, творческого подхода к решению задачи.
Обеспечение занятия:
1). ПК – ЭВМ	–	12 шт.
2). Раздаточный материал
Литература:
Н.Г. Волченков «Программирование на Visual Basic 6.0 »
С.Н Лукин «Самоучитель работы на Visual Basic 6.0»

Вид занятия: 	комбинированное	–	1ч.
План занятия:
1.	Организационный момент				–	  2
2.	Изложение новой темы					–	20
3.	Закрепление темы					–	10
4.	Практическая работа				–	10
5.	Отчет по работе						–	2
Д/з

информатика

group: Дисциплины


extracted_text:
Урок №7.
Тема: Оператор выбора Однострочный If. Решение задач.
Цель:
Учебная:  научить с однострочной формой условного оператора  Visual  Basic  6.0. Решать
задачи  на условие, применяя  однострочный If  Visual Basic 6.0.
Воспитательная:  Воспитать   стремление   к   аккуратности,   ответственности   при   работе   с
техникой.
Развивающая:  развитие   познавательного   интереса,   логического   мышления,   памяти,
творческого подхода к решению задачи.
Обеспечение занятия:
Литература:
1). ПК – ЭВМ
2). Раздаточный материал
–
12 шт.
Н.Г. Волченков «Программирование на Visual Basic 6.0 »
С.Н Лукин «Самоучитель работы на Visual Basic 6.0»
Вид занятия:
комбинированное
–
2ч.
План занятия:
1. Организационный момент
2. Опрос по домашнему заданию
3. Изложение новой темы
4. Практическая работа
5. Д/з
Х О Д   У Р О К А .
–
–
–
30
–
  2
20
35
  3
–
  2
–
1. Организационный момент
(Приветствие, проверка посещаемости, объявление целей и задач урока)
2.  Домашнее задание
1.  Как  Вы  думаете,  чем  отличаются  понятие  функции  в   математике   и  понятие  функции  в
информатике?
2.Опишите синтаксис функций MsgBox и InputBox…
3. Создайте приложение –
20
–
Пусть экранная форма Вашего приложения содержит три текстовых поля и командную
кнопку   ПУСК.   После   щелчка   этой   кнопки   должно   появиться   Окно   ввода   фамилии
пользователя. После ввода своей фамилии пользователь должен щелкнуть кнопку Ok   на этом
окне, после чего должно появиться второе окно ввода для ввода имени пользователя. Введя
свое имя и щелкнув кнопку Ok, пользователь увидит новое  Окно ввода – для соего отчества.
После ввода данных все три текстовые поля будут заполнены.
3.Изложение новой темы
–
35
Первым   шагом     освоения   нелинейных   алгоритмов   является   изучение   условного
оператора. В языке Visual Basic есть две формы синтаксиса этого оператора: однострочная
форма и более сложная многострочная  форма. Однострочная форма синтаксиса условного оператора такова:
If условие Then операторы Else операторы
С помощью   условного оператора в определенный момент делается выбор дальнейшего пути
выполнения алгоритма. Переход к выбранному пути называется условным переходом.
Вспомним фрагмент из сказки, где богатырь стоит перед выбором, прямо пойдешь …..
налево пойдешь … вправо пойдешь… команда выбора содержит условие, от которого зависит,
будет ли выполняться какаянибудь команда или группа команд. Это условие может быть
самым разным: нажата или нет любая клавиша, нажата или нет конкретная клавиша, был ли
щелчок мышью над такимто объектом, больше ли одно число другого, правда ли, что с
клавиатуры введено такоето слово и т.д. В нашем случае условие  это  какую сторону
выберет богатырь…
Напишем для примера примитивный алгоритм, позволяющий имитировать ситуацию:
запрашивается имя , потом возраст, если возраст S меньше 18, то он выводит надпись, что
курить еще рановато, иначе автомат продает сигареты, но предупреждает, Минздрав
предупреждает «Курение опасно для здоровья»
При включении компьютера:
1. Покажи на мониторе текст "Здравствуйте, я  компьютер, а вас как зовут?"
2. Жди ответа с клавиатуры.
3. "Рад познакомиться!"
4. Сколько Вам лет?
5. Жди ответа с клавиатуры.
6. Если возраст S меньше 18, то он выводит надпись, что курить еще рановато, иначе автомат
продает сигареты, но предупреждает, Минздрав предупреждает «Курение опасно для здоровья»
Выбор называют ветвлением по аналогии с разветвляющимся деревом (когда мы забираемся на
дерево, мы время от времени делаем выбор, по какой из нескольких веток забираться дальше).
Идею разветвления в программе я изложил. Как видите, команды ветвления довольно просты.
Как же с помощью таких простых команд запрограммировать сложное поведение компьютера? .
2. Условный оператор If или как компьютер делает
выбор
Теперь посмотрим, как писать разветвляющиеся программы на Visual Basic.
Выучим сначала три английских слова:
If читается "иф" переводится "если"
Then читается "зэн" переводится "то"
Else читается "элз" переводится "иначе"
Теперь приведем пример записи нового для вас оператора:
If a=28 Then Print f Else k=44
Переводится он так:
ЕСЛИ a=28 ТО печатай f ИНАЧЕ присвой переменной k значение 44.
Другими словами, мы предлагаем компьютеру сначала подумать, правда ли, что a=28 , и если
правда, то выполнить оператор Print f , в противном случае выполнить оператор k=44 . Таким
образом, мы с вами впервые написали оператор, при выполнении которого компьютер не просто
выполняет, что приказано, а сначала думает и делает выбор (пока одного из двух).
Мы видим, что оператор If включает в себя другие операторы, которые выполняются или не
выполняются в зависимости от какогото условия. Тем не менее, вся эта запись считается
одним оператором If. Чтобы привыкнуть к оператору If, рассмотрим
пару задач. Задача 1. Компьютер должен просуммировать  два числа  15500 и 22500. Если их  сумма
превышает 30000, то компьютер должен напечатать текст число большое, иначе текст число
маленькое. После этого компьютер в любом случае должен напечатать сам результат.
Программа:
Dim a As Integer
Dim b As Integer
Dim y As Integer
Private Sub Form_Load()
a = 15500
b =22500
y = a + b
If y > 30000 Then Debug.Print "число БОЛЬШОЕ" _
Else Debug.Print "число  МАЛЕНЬКОЕ"
Debug.Print y
End Sub
.
Задача 2. В компьютер вводятся два произвольных положительных числа  длины сторон двух
квадратов. Компьютер должен подсчитать площадь  большего по размеру .
Обозначим a1  сторону одного квадрата, a2  сторону другого, bol  сторону большего
квадрата, S – площадь квадрата. Приведем три варианта программы:
ВАРИАНТ 1
 Dim a1 As Double
Dim a2 As Double
Private Sub Command1_Click()
a1 = InputBox("Введите сторону квадрата")
a2 = InputBox("Введите сторону квадрата")
If a1 > a2 Then Debug.Print a1 * a1 Else Debug.Print a2 * a2
End Sub
ВАРИАНТ 2 Dim a1 As Double
Dim a2 As Double
Dim S As Double
Private Sub Command1_Click()
a1 = InputBox("Введите сторону квадрата")
a2 = InputBox("Введите сторону квадрата ")
If a1 > a2 Then S = a1 * a1  Else S = a2 * a2
Debug.Print S
End Sub
ВАРИАНТ 3 Dim a1 As Double
Dim a2 As Double
Dim bol As Double
Private Sub Command1_Click()
a1 = InputBox("Введите сторону одного КВАДРАТА")
a2 = InputBox("Введите сторону квадрата")
If a1 > a2 Then bol = a1 Else bol = a2
Debug.Print bol * bol
End Sub
Каждый из вариантов должен быть вами понят. Если возникают трудности, то используйте
пошаговый режим и следите за значениями переменных. Для каждого варианта пошаговый
режим используйте два раза  когда первый квадрат больше и когда второй квадрат больше. Как
видите, одна задача может решаться разными программами. Задача 3. Какое из двух чисел больше другого.(решаем вместе с учениками)
 Задача 4. В компьютер вводится слово. Компьютер должен просто распечатать его.
Однако, если введенным словом будет "школа", то компьютер должен напечатать вместо него
слово "ученик".
Вот как будет выглядеть наша программа
Dim Slovo As String
Private Sub Command1_Click()
Slovo = InputBox("Введите слово")
If Slovo = "школа" Then Slovo = "ученик"
Debug.Print Slovo
End Sub
До сих пор мы после Then и после Else писали только по одному оператору. А если нужно
больше?
Задача: Если a не равно 4, выполнить операторы b=3 и Print b, а в противном случае
операторы b=0, a=b+5 и с=0.
Вот оператор, решающий эту задачу:
If a <> 4 Then b=3 : Print b Else b=0 : a=b+5 : с=0
Как видите, после Then и Else можно писать по нескольку операторов, разделенных
двоеточиями.
5У Visual Basic есть две формы оператора If: однострочная и многострочная. Пока мы
пользовались только однострочным
If и поэтому приведем правило записи только для него. Приведем это правило в виде
синтаксической схемы:
If условие Then операторы Else операторы
операторы любой оператор Visual Basic или группа операторов, разделенных
двоеточиями
условие пока под условием будем понимать два арифметических или строковых
выражения, соединенных знаком сравнения
знак сравнения
знаков сравнения шесть:
> больше >= больше или равно = равно
< меньше <= меньше или равно <> не равно
Пример: If 5*a+4 <= a*b Then Print b Else a=b+5
Здесь
Print b  один оператор,
a=b+5  другой оператор,
5*a+4 <= a*b  условие,
5*a+4  одно выражение,
a*b  другое выражение,
<=  знак сравнения.
If условие Then операторы [ Else операторы ]
Квадратные скобки здесь означают, что их содержимое можно писать, а можно и не писать в
операторе.
Задания 57:
Определить без компьютера, что будет напечатано при выполнении следующих фрагментов
программ:
5. a=10: a=a+10: If  a+10<>30 Then a=8 Else a=a1
Print k
6. a=5: a=a+10: If a+10 = 30 Then a=8 Else a=a1 Print k
7. a=1: If a>0 Then a=a+5
If a>6 Then a=a+1
Print a
4. Практическая работа                         30
Задания 8:
8. В компьютер вводятся два числа. Если первое больше второго, то напечатать их сумму, иначе
 произведение. После этого компьютер должен напечатать текст «Мы решили задачу»
9. В компьютер вводятся длины трех отрезков. Компьютер должен ответить на вопрос, правда
ли, что первый отрезок достаточно мал, чтобы образовать с другими двумя отрезками
треугольник.
Указание: Для этого его длина должна быть меньше суммы длин двух других отрезков..
7.  Задание на дом
Поработать с конспектом, составить алгоритм вычисления квадратного корня
Примечание: при изучении нового материала учащиеся делают в тетрадь необходимые записи
под руководством учителя.
5.4. Случайные величины

file_name: Оператор выбора Однострочный If. Решение задач..doc

intro:
Цель:
Учебная: научить с однострочной формой условного оператора Visual Basic 6.0. Решать задачи  на условие, применяя  однострочный If  Visual Basic 6.0.
Воспитательная: Воспитать стремление к аккуратности, ответственности при работе с техникой.
Развивающая: развитие познавательного интереса, логического мышления, памяти, творческого подхода к решению задачи.
Обеспечение занятия:
1). ПК – ЭВМ	–	12 шт.
2). Раздаточный материал
Литература:
Н.Г. Волченков «Программирование на Visual Basic 6.0 »
С.Н Лукин «Самоучитель работы на Visual Basic 6.0»
Вид занятия: 	комбинированное	–	2ч.
План занятия:
1.	Организационный момент				–	  2
2.	Опрос по домашнему заданию				–	20
3.	Изложение новой темы					–	35
4.	Практическая работа				–	30
Д/з


extracted_text:
Тема: Операторы вида Do . Цикл. Решение задач.
Учебная:  научить работать с операторами вида  Do  ,  запрограммировать завершение
работы цикла  Visual  Basic  6.0. Решать задачи, применяя   операторы вида  Do  в
Visual Basic 6.0.
Воспитательная: Воспитать стремление к аккуратности, ответственности при работе с
техникой.
Развивающая:  развитие   познавательного   интереса,   логического   мышления,   памяти,
творческого подхода к решению задачи.
Обеспечение занятия:
Литература:
1). ПК – ЭВМ
2). Раздаточный материал
–
12 шт.
Н.Г. Волченков «Программирование на Visual Basic 6.0 »
С.Н Лукин «Самоучитель работы на Visual Basic 6.0»
Вид занятия:
комбинированное
–
1ч.
План занятия:
1. Организационный момент
2. Изложение новой темы
3. Закрепление темы
4. Практическая работа
5. Отчет по работе
6. Д/з
Х О Д   У Р О К А .
–
–
–
10
–
–
  2
20
10
2
  1
–
1. Организационный момент
(Приветствие, проверка посещаемости, объявление целей и задач урока)
20
2. Изложение новой темы
–
Операторы цикла в Visual Basic делятся на 2 вида: Do и For.
–
  2
Операторы вида Do встречаются в 5 вариантах:
Do …. Loop
Do …. Loop While
Do …. Loop Until
Do While …. Loop
Do Until …. Loop
Операторы вида For встречаются в 2 вариантах.
Оператор Do…. Loop
Попытаемся составить с использованием оператора Do…. Loop  программу решения
задачи о печати чисел 3 5 7 9 из прошлого урока. Для того, чтобы точно определить работу
этого варианта оператора Do, приведем ее параллельно с измененным 1 вариантом
программы решения этой задачи. Объяснением любого оператора в правом столбце является оператор, стоящий в той же
строчке в левом столбце.
ИЗМЕНЕННЫЙ                                            ОПЕРАТОРА Do
Private Sub Command1_Click()                     Private Sub Command0_Click()
Debug.Print "Начало счета";                         Debug.Print "Начало счета";
f = 3                                                                  f = 3
m:                                                                     Do
Debug.Print f;                                              Debug.Print f;
f = f + 2                                                         f = f + 2
GoTo m                                                        Loop
End Sub                                                        End Sub
Do можно перевести, как "Делай", а понимать следует просто как метку.
Loop можно перевести, как  "Возврат назад", а понимать следует так: "Возвращайся к
метке Do ".
Порядок работы обеих программ совершенно одинаков, так что можно считать слово Do
заменой метки m, а слово Loop считать заменой оператора GoTo m. Обе программы
бесконечно печатают 3 5 7 9 11 ….. Прерывается цикл только с клавиатуры. Толку в 0
варианте оператора Do мы видим мало (пока).
Синтаксис оператора Do …. Loop:
Do
операторы
операторы
…………….
Loop
Строки операторов между Do и Loop называются телом цикла.
Оператор Do…. LoopWhile
Добавьте в ваш проект еще 4 кнопки и выполните в пошаговом режиме программы с
вариантами оператора
Составим с использованием 1 варианта оператора Do программу решения задачи о печати
чисел 3 5 7 9 из прошлого урока. Для того, чтобы точно определить работу этого варианта
оператора Do, приведем ее параллельно с 1 вариантом программы решения этой задачи.
Объяснением любого оператора в правом столбце является оператор, стоящий в той же
строчке в левом столбце.
1 ВАРИАНТ                                              1 ВАРИАНТ ОПЕРАТОРА Do
Private Sub Command1_Click()                  Private Sub Command5_Click()
Debug.Print "Начало счета";                      Debug.Print "Начало счета";
f = 3                                                             f = 3
m:                                                                Do
Debug.Print f;                                              Debug.Print f;
f = f + 2                                                        f = f + 2
If f <= 9 Then GoTo m                              Loop While f <= 9
Debug.Print "Конец счета"                        Debug.Print "Конец счета"
End Sub                                                       End Sub
While переводится "Пока".
Значит, LoopWhile f <= 9 понимать следует так: "Возвращайся к метке Do, пока f <= 9".
Порядок работы обеих программ совершенно одинаков, так что можно считать слово Do
заменой метки m, а конструкцию
Loop While f <= 9 считать заменой оператора If f <= 9 Then GoTo m.
Синтаксис оператора Do …. Loop While: Do
операторы
операторы
…………….
Loop While условие продолжения работы цикла
Оператор Do…. Loop Until
2 ВАРИАНТ                                                      2 ВАРИАНТ ОПЕРАТОРА Do
Private Sub Command2_Click()                         Private Sub Command6_Click()
Debug.Print "Начало счета";                                Debug.Print "Начало счета";
f = 3                                                                       f = 3
m1:                                                                        Do
Debug.Print f;                                                        Debug.Print f;
f = f + 2                                                                  f = f + 2
If f > 9 Then GoTo m2 Else GoTo m1               Loop Until f > 9
m2: Debug.Print "Конец счета"                           Debug.Print "Конец счета"
End Sub                                                                  End Sub
Until переводится "До тех пор, пока".
Значит, Loop Until f > 9 понимать следует так: "Возвращайся к метке Do до тех пор, пока
не выполнится условие f > 9".
Синтаксис оператора Do …. Loop Until:
Do
операторы
операторы
…………….
Loop Until условие завершения работы цикла
Оператор DoWhile…. Loop
3 ВАРИАНТ                                                        3 ВАРИАНТ ОПЕРАТОРА Do
Private Sub Command3_Click()                          Private Sub Command7_Click()
Debug.Print "Начало счета";                              Debug.Print "Начало счета";
f = 3                                                                      f = 3
m1: If f <= 9 Then GoTo m3 Else GoTo m2    Do While f <= 9
m3: Debug.Print f;                                               Debug.Print f;
f = f + 2                                                                 f = f + 2
GoTo m1                                                              Loop
m2: Debug.Print "Конец счета"                          Debug.Print "Конец счета"
End Sub                                                                End Sub
Do While f <= 9 понимать следует так: "Пока f <= 9 выполняй нижестоящие операторы
вплоть до Loop".
Синтаксис оператора Do While …. Loop:
Do While условие продолжения работы цикла
операторы
операторы
…………….
Loop
Оператор Do Until…. Loop
4 ВАРИАНТ                                                          4 ВАРИАНТ ОПЕРАТОРА Do
Private Sub Command4_Click()                           Private Sub Command8_Click()
Debug.Print "Начало счета";                               Debug.Print "Начало счета"; f = 3                                                                       f = 3
m1: If f > 9 Then GoTo m2 Else GoTo m3       Do Until f > 9
m3: Debug.Print f;                                                Debug.Print f;
f = f + 2                                                                 f = f + 2
GoTo m1                                                              Loop
m2: Debug.Print "Конец счета"                          Debug.Print "Конец счета"
End Sub                                                                 End Sub
Do Until f > 9 понимать следует так: "Выполняй нижестоящие операторы вплоть до Loop,
до тех пор, пока не выполнится условие f > 9".
Синтаксис оператора Do Until…. Loop:
Do Until условие завершения работы цикла
операторы
операторы
…………….
Loop
3.Закрепление темы
10
–
Задача №1: Компьютер предлагает человеку ввести слово, после чего распечатывает это
слово, снабдив его восклицательным знаком. Затем снова предлагает ввести слово и так до
тех пор, пока человек не введет слово "Хватит". Распечатав его с восклицательным знаком,
компьютер отвечает "Хватит так хватит" и заканчивает работу.
Придумаем строковую переменную, в которую человек будет с клавиатуры вводить слово.
Назовем ее Slovo. Выберем подходящий вариант оператора Do, это будет 2й, и пишем
программу:
Dim Slovo As String
Private Sub Command1_Click()
Do
Slovo = InputBox("Введите слово")
Debug.Print Slovo; "!"
Loop Until Slovo = "Хватит"
Debug.Print "Хватит так хватит"
End Sub
4. Практическая работа
10
–
Задание №2: Усложним эту задачу. Пусть компьютер перед распечаткой каждого слова
ставит его порядковый номер.
Dim Slovo As String
Dim i As Integer
Private Sub Command1_Click()
i = 1
Do
Slovo = InputBox("Введите слово")
Debug.Print i; Slovo; "!"
i = i + 1
Loop Until Slovo = "Хватит"
Debug.Print "Хватит так хватит"
End Sub
Задание №3: Если камень бросить горизонтально со 100метровой башни со скоростью
v=20м/с, то его расстояние от башни по горизонтали s будет выражаться формулой s=vt, где t – время полета камня в секундах. Высота над землей h будет выражаться формулой
h=100 – 9.81t2/2. Вычислять и печатать t, s и h для t = 0, 0.2, 0.4, 0.6 и так далее до тех пор,
пока камень не упадет на землю.
v = 20: t = 0: h = 100: s = 0
Do
s = v * t
h = 100  9.81 * t ^ 2 / 2
Debug.Print Format(t, "0.0"), s, Format(h, "0.000")
t = t + 0.2
Loop Until h < 0
5.  Задание на дом
Примечание: при изучении нового материала учащиеся делают в тетрадь необходимые
записи под руководством учителя

file_name: Операторы вида Do . Цикл. Решение задач.doc

intro:
Учебная: научить работать с операторами вида Do , запрограммировать завершение работы цикла Visual Basic 6.0. Решать задачи, применяя  операторы вида Do в Visual Basic 6.0.
Воспитательная: Воспитать стремление к аккуратности, ответственности при работе с техникой.
Развивающая: развитие познавательного интереса, логического мышления, памяти, творческого подхода к решению задачи.
Обеспечение занятия:
1). ПК – ЭВМ	–	12 шт.
2). Раздаточный материал
Литература:
Н.Г. Волченков «Программирование на Visual Basic 6.0 »
С.Н Лукин «Самоучитель работы на Visual Basic 6.0»

Вид занятия: 	комбинированное	–	1ч.
План занятия:
1.	Организационный момент				–	  2
2.	Изложение новой темы					–	20
3.	Закрепление темы					–	10
4.	Практическая работа				–	10
5.	Отчет по работе						–	2
Д/з


extracted_text:
Урок №2.
Тема: Переменные величины. Оператор присваивания.
Цель:
Учебная:   ввести   определение   понятия   переменной.   Имя   и   значение   переменной.
Объявление типа переменной в программе.
Воспитательная:  Воспитать стремление к аккуратности, ответственности при работе с
техникой.
Развивающая:  Расширить знания учащихся о понятии переменной, связать с предметом
математики.
Основные знания и умения:
Знать:
1. Понятие переменной.
2. Имя переменной.
3. Значение переменной.
Уметь:
1. Присваивать значение переменной.
2. Объявлять тип переменной.
Обеспечение занятия:
Литература:
1). ПК – ЭВМ
2). Раздаточный материал
–
12 шт.
1. Н.Г. Волченков «Программирование на Visual Basic 6.0 »
2. С.Н Лукин «Самоучитель работы на Visual Basic 6.0»
Вид занятия:
комбинированное
–
2ч.
–
–
–
–
35
–
–
  2
10
25
10
5
  3
–
План занятия:
1. Организационный момент
2. Опрос по домашнему заданию
3. Изложение новой темы
4. Закрепление темы
5. Практическая работа
6. Отчет по работе
7. Д/з
Последовательность изложения темы:
1. Понятие переменной.
2. Имя переменной.
3. Значение переменной.
4. Присвоение значения переменной. 5. Объявление типа переменной.
6. Практическое задание Х О Д   У Р О К А .
1. Организационный момент
(Приветствие, проверка посещаемости, объявление целей и задач урока)
2. Опрос по домашнему заданию
Задание «Состав интегрированной среды»
Дайте определение и название под каждой цифрой…
10
  2
–
–
3. Изложение новой темы
1. Понятие переменной.
–
25
Понятие переменной величины вам известно из школьной математики. Пусть несколько
лет назад ваш рост равнялся 130 см. Обозначим этот факт так: r=130. Теперь он равен 160 см,
то есть r=160. Получается, что величина r менилась. Поэтому
она называется переменной величиной. Числа 130 и 160 называются значениями переменной
величины r.
Переменная  эта поименованная ячейка памяти, хранящая какоелибо одно значение (одно
число, один фрагмент текста).
 Переменная имеет имя и значение.
  Переменные служат для хранения исходных данных, используемых в программе, а также
результатов вычислений.
  Используя переменные, можно составить программу "в общем виде", и программа будет
выполняться при любых допустимых исходных данных.
Примечание:   свойства   объектов   по   сути   также   являются   переменными,   т.к.   тоже   хранят
определенные числовые или текстовые значения.
2. Имя переменной.
Имя   переменной      это   строка   символов,   которая   отличает   ее   от   других   переменных   и
объектов программы (элементов управления).
3. Значение переменной. Значение переменной  это данные, которые в ней хранятся.
Тип данных (тип переменной) обуславливает то, как хранятся и обрабатываются данные.
Например: 2 + 3 = 5  числа, а "2" + "3" = "23" – текст
Переменная типа Variant может принимать любой тип в зависимости от хранящегося в ней
значения, однако, занимает больше памяти.
 Если переменная не была объявлена, то она имеет тип Variant.
4. Присвоение значения переменной
Что же мы можем делать с переменными величинами, программируя на Visual Basic? Прежде
всего, мы можем задавать компьютеру значение той или иной переменной величины. Это мы
можем сделать при помощи оператора, который называется оператором присваивания.
Так, если мы хотим сказать, что а имеет значение 2, то должны просто записать а=2. Запись
а=2 и называется оператором присваивания. Говорят, что величине а присваивается значение
2.   С   момента   выполнения   оператора   а=2   компьютер   будет   помнить,   что   а   равно   двум.
Например на первых уроках
Form1.BackColor = vbRed мы присваивали свойству "цвет" нашей формы значение "красный".
Пока, чтобы не рассеивалось внимание, мы в операторе
присваивания   не   часто   будем   касаться   объектов,   их   свойств   и   значений.   Ограничимся
переменными, имеющими численные значения.
После выполнения следующего фрагмента программы
a=2*3+4
b=a
y=a+b+1
компьютер будет знать, что a равно 10, b равно 10, y равно 21. Итак, при помощи оператора
присваивания   вы   можете   и   вычислять   тоже.   Мы  видим,   что  справа   от   знака   равенства   в
операторе   присваивания   можно   писать   не   только   числа,   но   и   переменные   величины,   и
выражения.   Выражения   в   Visual   Basic   могут   быть   разных   типов,   но   об   этом   мы   будем
говорить позже. Пока под выражением будем понимать арифметическое выражение, то есть такое, к которому вы привыкли в школьной математике. Здесь это были  2*3+4,  a,  a+b+1.
Любое арифметическое выражение имеет численное значение.
Не надо пока проверять это на компьютере. Пока только читайте.
Теперь   чутьчуть   о   свойствах   объектов.   Выражение   может   включать   в   себя   не   только
переменные величины, но и свойства объектов, имеющие подходящее значение. Например,
Y = a + b + Form1.Width.
В   левой   части   оператора   присваивания   также   может   стоять   не   только   переменная,   но   и
свойство объекта. Например,
Form1.Width = a + b + y
Задание   1:  Определите   устно,   какое   значение   будет   присвоено   переменной   t   после
выполнения фрагмента:
k=1+2 : s=2*k : t=6s ?
Необходимо помнить, что если слева от знака равенства стоит переменная величина, то Visual
Basic   выполняет   оператор   присваивания   "в   уме".   Имеется   в   виду,   что   результат   его
выполнения не отображается на экране, а только запоминается.
5. Объявление типа переменной.
Поскольку Visual Basic может сам определить тип переменной по ее значению (см. Variant), то
тип   переменной   можно   не   объявлять   (не   указывать).   Однако,   объявление   переменных
является правилом хорошего тона программирования а так же позволяет избежать некоторых
ошибок в программе, таких как неодинаковое написание имени переменной в разных местах
программы, несоблюдения типов данных в вычислениях.
Переменную объявляют в начале окна кода или в начале процедуры с помощью оператора
Dim такой записью:
Dim Имя_переменной As Тип_переменной
 Например:
Dim a As Byte
 Объявлена переменная а типа Byte. В такую переменную можно поместить число от 0 до 255.
При попытке присвоения переменной большего числа возникнет ошибка, а число, имеющее
дробную часть будет округлено.
Dim b As String
  Объявлена переменная b типа String. Эта переменная будет содержать текст (хотя текст
может состоять и из цифр, но 2 плюс 3 будет 23).
 При объявлении нескольких переменных можно перечислять их через запятую:
Dim a As Byte, b As String
6. Практическое задание
Построим следующее  Windows  –приложение. На его экранной форме два текстовых
поля – слева и справа, а также две командные кнопки с надписями ПУСК1 и ПУСК2. на
левом текстовом поле – строка из
букв черного цвета на белом фоне;
на правом текстовом поле – строка
из   букв   белого   цвета   на   черном
фоне.
Щелчок   кнопки   ПУСК1   «должен
привести   в   порядок»   содержимое
полей   –   перенести   левую   строку
направо,   а   правую   налево.   Цвет букв и цвет фона каждого поля при этом меняться не должны – экранная форма приобрести
вид

Решение: Определим две переменные типа String, назовем их строка1 и строка2, после щелчка
командной   кнопки   этим   переменным     будут   присвоены   значения:   содержимое   текстовых
полей с именами Text1 и Text2. После чего значению свойства поля Text1 будет присвоено
значение   переменной   строка2,   а   значению   свойства   поля   Text2   –   значению   переменной
строка1.
Код программы:
Private Sub Command1_Click()
Dim строка1 As String, строка2 As String
строка1 = Text1.Text
строка2 = Text2.Text
Text1.Text = строка2
Text2.Text = строка1
End Sub
Самостоятельная работа.
Составить   алгоритм   и   написать   программу   для   объекта  Command2   (Пуск2).   При
нажатии кнопки ПУСК2 перенести левую строку направо, а правую налево. Цвет букв и цвет
фона каждого поля должны поменяться. Подсказка: Определите три переменные: одну типа
String и две типа Long. (BackColor – цвет фона, ForeColor цвет букв).
7.  Задание на дом
Поработать с конспектом, с таблицей «Типы данных»
Примечание:   при   изучении   нового   материала   учащиеся   делают   в   тетрадь   необходимые
записи под руководством учителя.

file_name: Переменные величины. Оператор присваивания.doc

intro:
Цель:
Учебная: ввести определение понятия переменной. Имя и значение переменной. Объявление типа переменной в программе.
Воспитательная: Воспитать стремление к аккуратности, ответственности при работе с техникой.
Развивающая: Расширить знания учащихся о понятии переменной, связать с предметом математики.
Основные знания и умения:
Знать:
1.	Понятие переменной.
2.	Имя переменной.
3.	Значение переменной.
Уметь:
1.	Присваивать значение переменной.
2.	Объявлять тип переменной.

Обеспечение занятия:
1). ПК – ЭВМ	–	12 шт.
2). Раздаточный материал
Литература:
Н.Г. Волченков «Программирование на Visual Basic 6.0 »
С.Н Лукин «Самоучитель работы на Visual Basic 6.0»


extracted_text:
Урок №6.
Тема: Строковые переменные. Решение задач со строковыми переменными.
Цель:
Учебная: Научить, как использовать тип данных String для представления слов и текста.
 Visual Basic 6.0.
Воспитательная: Воспитать стремление к аккуратности, ответственности при работе с
техникой.
Развивающая:  развитие   познавательного   интереса,   логического   мышления,   памяти,
творческого подхода к решению задачи.
Обеспечение занятия:
Литература:
1). ПК – ЭВМ
2). Раздаточный материал
–
12 шт.
Н.Г. Волченков «Программирование на Visual Basic 6.0 »
С.Н Лукин «Самоучитель работы на Visual Basic 6.0»
Вид занятия:
комбинированное
–
1ч.
План занятия:
1. Организационный момент
2. Опрос по домашнему заданию
3. Изложение новой темы
4. Практическая работа
5. Д/з
Х О Д   У Р О К А .
–
–
–
15
–
  2
10
15
  3
–
  2
–
–
1. Организационный момент
(Приветствие, проверка посещаемости, объявление целей и задач урока)
2. Опрос по домашнему заданию
1. Как Вы думаете, чем отличается смысл знака равенства в математике от смысла этого
знака в языке Бейсик?
2. Допустим, переменная Х   объявлена как переменная типа  Integer, а программный код
содержит запись: Х=Х+34000. Как Вы думаете, не ошибочна ли эта запись?
3.   Как   Вы   думаете,   почему   объявление   типа   переменной   может   сэкономить   память
компьютера?
4. перечислите, пожалуйста, в каких пределах могут меняться значения типов переменных:
10
 Byte:…..

Integer….
 Long:…..
 Single…..
 Double….
3.Изложение новой темы
–
15 На этом занятии вы узнаете, как использовать тип данных String для представления
слов и текста. Как использовать переменные для хранения данных в программе мы с вами
рассмотрели , и разобрали, что каждая переменная должна быть соответствующего типа в
зависимости от данных, которые в ней будут храниться. На этом занятии будет рассказано
более подробно о типе данных String , который используется для хранения текста.
Что такое тип данных String?
String (строка) представляет собой любой набор символов текста, таких как буквы, цифры,
специальные знаки и пробелы. Строки могут быть легко читаемыми пользователем фразами
или предложениями, такими как "Программирование – это наиболее важный раздел курса
«Информатика», изучение которого в настоящее время тесно связывают с работой на
персональном компьютере", или совершенно нечитаемыми сочетаниями, такими как
"UIYIHJKH 35223@@34".
 Переменные String создаются также, как и другие переменные: путем первого объявления
переменной и присвоения ей значения, как показано ниже.
im Str As String = "This is a string"
При назначении фактического текста (также называемого строка литералов) переменной
типа String текст должен быть заключен в кавычки (""). Можно также использовать символ
= при присвоении одной переменной типа String другой переменной типа String, как
показано в этом примере.
Dim Str As String = "This is a string"
Dim Str1 As String = ""
Str1 = Str
Предыдущий код присваивает переменной Str1 такое же значение, как у переменной Str
(This is a string).
Можно использовать знак амперсанда (&) для последовательного объединения двух или
более строк в новую строку, как показано ниже. Эта процедура также называется
объединение.
Dim Str As String = "using string"
Dim Str1 As String = "variables"
Dim Str2 As String = ""
Str = Str1 & bStr2
Практическое задание №1
Объединение строк
В процедуре обработки события Form1.Load объявите четыре строковых переменных и
присвойте им строковые значения, как показано ниже:
Dim a As String = "Concatenating"
Dim b As String = "Without"
Dim c As String = "With"
Dim d As String = "Spaces"
Добавьте следующий код для соединения строк и отображения результатов:
Displays "ConcatenatingWithoutSpaces".
MsgBox(a & b & d) ' Displays "Concatenating With Spaces".
MsgBox(a & " " & c & " " & d)
Нажмите клавишу F5 для запуска приложения.
Строковые переменные очень важны. Значительная часть информации, с которой работает
компьютер, текстовая (то есть строковая).
Создайте двухкнопочный проект с такой программой:
Dim a As Integer
Dim b As String
_____________________________
Private Sub Command1_Click()
a = 45
Debug.Print a
End Sub
_____________________________
Private Sub Command2_Click()
b = "Привет всем!"
Debug.Print b
End Sub
Сравним две процедуры.
Объявление Dim a As Integer говорит о том, что переменная a обязана иметь
числовое значение, и поэтому в первой процедуре оператор a=45 записывает в ячейку a
число 45.
Объявление Dim b As String говорит о том, что переменная b обязана иметь строковое
(текстовое) значение, то есть ее значением будет не число, а произвольная цепочка
символов,
Обратите внимание, что в программе текст должен браться в двойные кавычки, а в
памяти он хранится без кавычек и на экран выводится без кавычек.
Информация в ячейке памяти под строковую переменную может в процессе выполнения
программы меняться точно так же, как и в ячейке для числовой переменной. Например,
при выполнении фрагмента
a="Привет!" : Debug.Print a : a="Здравствуйте!" : a="До свидания!" : Debug.Print a
в ячейке a будут по очереди появляться строки
Привет! Здравствуйте! До свидания!
а на экран будут выведены строки:
Привет!Минуточку!До свидания!
Еще пример:
a="Цикл" : Debug.Print a : a=a+a : Debug.Print a+a+a +"Конец цикла"
Поскольку знак + по отношению к строкам есть знак соединения, то a+a будет равняться
"ЦиклЦикл" и это же  новое значение a. Поэтому здесь на экран будут выведены строки:
ЦиклЦиклЦиклЦиклЦиклЦиклКонец цикла
Выражения a+a и a+a+a +"Конец цикла" в последнем примере являются ни чем иным, как
строковыми выражениями, по той простой причине, что в них производятся действия,
результатом которых является строка.
Строковую переменную можно задавать не только оператором присваивания, но и
функцией InputBox. При вводе ставить кавычки тоже не надо. Пример:
Dim a As String
Private Sub Command1_Click() a = InputBox("Введите какоенибудь слово")
Debug.Print "Вы ввели слово "; a
End Sub
Обратите внимание на пробел перед второй кавычкой в операторе Debug.Print. Он нужен
для того, чтобы слова при выводе не сливались.
Прежде, чем идти дальше, нужно, конечно, разобраться с хитросплетениями запятых, точек
с запятыми, кавычек и пробелов в операторе Print: Коператором Print
Будем пробовать, вы тоже пробуйте:
Фрагмент программы Результат на экране
Print  Печатается пустая строка
Print 10    10
Print 10; 77  10  77
Оператор распечатывает список элементов, разделенных точками с запятой или запятыми.
Если перед элементом стоит точка с запятой, он печатается почти вплотную к
предыдущему, а если запятая, то подальше, выравниваясь по столбцам.
Элемент может быть и строкой:
Print "Дом" Кошка
Print "Дом", "Здание"   Дом Здание
Как видите, строку мы обязаны брать в двойные кавычки.
Print "Дом"; "Здание" ДомЗдание
15
–
4.Практическая работа
4.9. Диалог с компьютером
Практическая работа№2: Напишем программу, которая осуществляла бы такой диалог
человека с компьютером:
КОМПЬЮТЕР ВЫВОДИТ НА ЭКРАН: Здравствуй, я компьютер, а тебя как зовут?
ЧЕЛОВЕК ВВОДИТ С КЛАВИАТУРЫ: ….
КОМПЬЮТЕР ВЫВОДИТ НА ЭКРАН: Очень приятно, Коля. Сколько тебе лет?
ЧЕЛОВЕК ВВОДИТ С КЛАВИАТУРЫ: …
КОМПЬЮТЕР ВЫВОДИТ НА ЭКРАН: Ого! ….лет! Ты уже совсем взрослый!
Пусть человек вводит свои реплики при помощи InputBox, а компьютер печатает свои с
помощью Print. Для хранения в памяти имени человека выдумаем переменную imya, а для
возраста  vozrast.
Вот программа:
Dim imya As String
Dim vozrast As Integer
Private Sub Command1_Click()
Print "Здравствуй, я компьютер, а тебя как зовут?"
imya = InputBox("Жду ответа")
Print "Очень приятно, "; imya; ". Сколько тебе лет?"
vozrast = InputBox("Жду ответа")
Print "Ого! Целых"; vozrast; "лет! Ты уже совсем взрослый!"
End Sub
4.10. Как выводить информацию в текстовое поле
Практическое задание №3: Напишите программу для следующей задачи: Компьютер
запрашивает названия двух планет, радиусы их орбит (в миллионах километров) и скорости
движения по орбите (в миллионах километров в сутки). После этого он вычисляет
продолжительность года на планетах и выдает результат в таком виде: Продолжительность года на планете Земля – 365 суток, а на планете Аэлита – 12 суток. Результат  в двух
вариантах: печать на форме оператором Print и вывод в текстовое поле.
Указание для тех, кто не знает физики и геометрии: Год равен времени одного оборота по
орбите, а оно равно длине орбиты, деленной на скорость движения по орбите. Длина
орбиты равна 2*R, где R  радиус орбиты.
5. Д/з
–
  3
Поработать с конспектом
Примечание: при изучении нового материала учащиеся делают в тетрадь необходимые
записи под руководством учителя.

file_name: строковые переменные.doc

intro:
Цель:
Учебная: Научить, как использовать тип данных String для представления слов и текста.
 Visual Basic 6.0.
Воспитательная: Воспитать стремление к аккуратности, ответственности при работе с техникой.
Развивающая: развитие познавательного интереса, логического мышления, памяти, творческого подхода к решению задачи.
Обеспечение занятия:
1). ПК – ЭВМ	–	12 шт.
2). Раздаточный материал
Литература:
Н.Г. Волченков «Программирование на Visual Basic 6.0 »
С.Н Лукин «Самоучитель работы на Visual Basic 6.0»
Вид занятия: 	комбинированное	–	1ч.
План занятия:
1.	Организационный момент				–	  2
2.	Опрос по домашнему заданию				–	10
3.	Изложение новой темы					–	15
4.	Практическая работа				–	15
5.	Д/з								–	  3

ХОД УРОКА.

1. Организационный момент				–	  2
(Приветствие, проверка посещаемости, объявление целей и задач урока)
2. Опрос по домашнему заданию


extracted_text:
Урок №8.
Тема: Оператор перехода Goto. Цикл. Метки. Решение задач.
Учебная: научить работать с оператором перехода Goto Visual Basic 6.0. Решать задачи
, применяя  оператор перехода Goto Visual Basic 6.0.
Воспитательная: Воспитать стремление к аккуратности, ответственности при работе с
техникой.
Развивающая:  развитие   познавательного   интереса,   логического   мышления,   памяти,
творческого подхода к решению задачи.
Обеспечение занятия:
Литература:
1). ПК – ЭВМ
2). Раздаточный материал
–
12 шт.
Н.Г. Волченков «Программирование на Visual Basic 6.0 »
С.Н Лукин «Самоучитель работы на Visual Basic 6.0»
Вид занятия:
комбинированное
–
1ч.
План занятия:
1. Организационный момент
2. Изложение новой темы
3. Закрепление темы
4. Практическая работа
5. Отчет по работе
6. Д/з
Х О Д   У Р О К А .
–
–
–
10
–
–
  2
20
10
2
  1
–
1. Организационный момент
(Приветствие, проверка посещаемости, объявление целей и задач урока)
20
2. Изложение новой темы
–
  2
–
Посмотрим, как осуществить цикл в Visual Basic. Предположим, мы хотим, чтобы
компьютер бесконечно повторял выполнение следующего фрагмента:
Debug.Print "Это ";
Debug.Print "тело ";
Debug.Print "цикла";
Debug.Print " ";
в результате чего в окне Immediate мы бы увидели:
Это тело цикла Это тело цикла Это тело цикла Это тело цикла . . . .
Если бы операторы Visual Basic можно было писать порусски, то для достижения нашей
цели было бы естественно воспользоваться такой конструкцией:
метка m1: Debug.Print "Это " ;
Debug.Print "тело " ;
Debug.Print "цикла" ;
Debug.Print " " ;
иди к оператору, помеченному меткой m1 Здесь мы видим новый для нас "оператор" ИДИ, который выполняется после Debug.Print "
"   и   единственная   работа   которого   заключается   в   том,   чтобы   заставить   компьютер
перескочить к выполнению оператора Debug.Print "Это " , помеченного
меткой m1.
А вот как этот фрагмент выглядит реально на Visual Basic:
Private Sub Command1_Click()
m1: Debug.Print "Это ";
Debug.Print "тело ";
Debug.Print "цикла";
Debug.Print " ";
GoTo m1
End Sub
Здесь GoTo  оператор безусловного перехода, переводится "иди к", m1  метка.
Метка     это   произвольное   имя   или   произвольное   не   слишком   большое   целое
положительное число. Оператор GoTo можно писать в любых местах процедуры и метку
можно ставить перед любым оператором процедуры, заставляя компьютер таким
образом перескакивать внутри процедуры откуда угодно куда угодно. Правда, в сложных
процедурах   и   внутри   сложных   операторов   эта   свобода   перескакивания   существенно
ограничивается,   так   что   я   не   советую   вам   врываться   снаружи   внутрь   вложенных
операторов, а вот изнутри наружу  пожалуйста. Метка должна заканчиваться двоеточием
(хотя, в случае меткичисла это не обязательно).
А терерь запустите эту программу в пошаговом режиме. Посмотрите, как заполняется окно
Immediate. Чтобы оно заполнялось быстрее, нажмите клавишу F8 и не отпускайте.
Зацикливание. Если вы уже запустили эту программу обычным образом (не в пошаговом
режиме), то через некоторое время перед вами должен встать жизненно важный вопрос –
как же ее остановить? Вы обнаружите, что кнопки не отзываются на нажатие мыши, и
вообще,   программа   никак   не   реагирует   ни   на   мышку,   ни   на   клавиши   клавиатуры.
Любопытно, что так поступает любая нормальная программа, выполняя операторы кода.
Разница в том, что в нормальной программе исключены ситуации, когда код выполняется
бесконечно или на протяжении слишком долгого времени. Если же вы допустили ошибку и
в программе выполняется бесконечный цикл, то возникает как раз такая ситуация. Вы
вечно будете смотреть на экран, по которому бесконечно бегут непонятные числа или
слова   или   рисуются   графические   объекты,   а   возможно  и   ничего   не  происходит,   экран
пустой – все зависит от характера ошибки.
Для прерывания работы программы, в том числе и зациклившейся, существует комбинация
клавиш   CtrlBreak.   Имеется   в  виду,   что,   удерживая   нажатой   клавишу   Ctrl,   вы   должны
щелкнуть по клавише Break. Программа прерывает свою работу, но не заканчивает. Visual
Basic переходит в режим прерывания. Оператор программы, на котором она была прервана,
выделяется полосой желтого цвета. Если вы снова запустите программу, она продолжит
работу с прерванного места. Кстати, продолжить можно и в пошаговом режиме. Чтобы
начать сначала, необходимо завершить работу программы обычным образом.
Группа операторов, выполняющихся многократно, называется телом цикла. У нас это все
операторы, начиная с Debug.
Print "Это " и кончая GoTo m1.
Пример программы:
k = 6
a = 100
GoTo 8
a = a + k
k = 2 * k Print a
8: a = a + 1
k = k + 10
Print k, a
Эта программа напечатает 16 101. Операторы выполняются в такой последовательности:
k=6
a=100
GoTo 8
a=a+1
k=k+10
Print k, a
А операторы a=a+k, k=2*k, Print a выполнены не будут вообще, несмотря на то, что
написаны. Цикла здесь нет.
Задание 1: Определить без компьютера, что будет печатать программа:
n = 10
k = 0
Debug.Print "Считаем зайцев"
met5: Debug.Print n;
n = n + k
GoTo m1
n = n + 1
m1: Debug.Print "зайцев"
k = k + 1
GoTo met5
Debug.Print "Посчитали зайцев"
Не можете определить  посмотрите в пошаговом режиме (F8).
Задача: Бесконечно печатать 200 205 210 215 220 225 …
Программа:
Private Sub Command1_Click()
n = 200
m1: Debug.Print n
n = n + 5
GoTo m1
End Sub
3. Закрепление темы
10
–
Задания 24:
Написать программы для выполнения следующих заданий:
2. Бесконечно печатать букву А: ААААААААААА.....
3. Бесконечно печатать 10000 9999 9998 9997 9996 ......
4. Бесконечно печатать 100 50 25 12.5.... с 8 десятичными знаками.
4.Практическая работа
10
–
Движение объектов по экрану
Вам уже приходилось заставлять кнопки прыгать по экрану. Попробуем добиться плавного
движения объекта. Создайте проект с большой формой и добавьте в него маленький
элемент управления Image (изображение). Поместите его в левой части формы. Придайте
ему картинку (свойство Picture). Лучше всего, пока вы еще не умеете работать с изображениями, в качестве картинки взять один из файлов значков, находящихся по адресу
c:\Program Files\папка,посвященная VisualBasic\Graphics\Icons.
Напишем программу, которая двигала бы изображение плавно направо:
Dim x As Double
Private Sub Command1_Click()
x = Image1.Left 'Компьютер узнает, откуда начинать движение
m1: x = x + 1 'Компьютер увеличивает в уме горизонтальную координату на 1
Image1.Left = x 'Изображение встает на место, указанное гор. координатой
GoTo m1
End Sub
Если движение получилось слишком медленным, то прибавьте шаг  x = x + 2. Если
слишком быстрым, то уменьшите  x =x + 0.3.
Не удивляйтесь, что вам не пришлось в цикле рисовать и стирать объект. Когда дело
касается объекта, заботы о перерисовке берет на себя Visual Basic. А вот когда вы сами
будете рисовать различные фигуры на форме и попытаетесь их двигать,
тогда вам придется их и рисовать и стирать.
Задание 5: Заставьте изображение двигаться налево, вниз, вверх.
Пока мы никак не можем влиять на полученное движение. Только можем останавливать
компьютер с клавиатуры.
5.  Задание на дом
Примечание: при изучении нового материала учащиеся делают в тетрадь необходимые
записи под руководством учителя

file_name: урок  оператор перехода goto цикл метки.doc

intro:
2.	Изложение новой темы					–	20

Посмотрим, как осуществить цикл в Visual Basic. Предположим, мы хотим, чтобы компьютер бесконечно повторял выполнение следующего фрагмента:
Debug.Print "Это ";
Debug.Print "тело ";
Debug.Print "цикла";
Debug.Print " ";
в результате чего в окне Immediate мы бы увидели:
Это тело цикла Это тело цикла Это тело цикла Это тело цикла . . . .
Если бы операторы Visual Basic можно было писать по-русски, то для достижения нашей цели было бы естественно воспользоваться такой конструкцией:
метка m1: Debug.Print "Это " ;
Debug.Print "тело " ;
Debug.Print "цикла" ;
Debug.Print " " ;
иди к оператору, помеченному меткой m1
Здесь мы видим новый для нас "оператор" ИДИ, который выполняется после Debug.Print " " и единственная работа которого заключается в том, чтобы заставить компьютер перескочить к выполнению оператора Debug.Print "Это " , помеченного


extracted_text:
Урок № 7.
Тема: Оператор Select Case.
Цель:
Цели урока:
Образовательная:
Познакомить учащихся с применением логических операций AND (И) и OR (ИЛИ) в Visual
Basic. Научить учащихся составлять программы с использованием этих операций.
Развивающая:
Развивать у учащихся навыки работы с ПЭВМ, память, внимание, мышление, речь,
кругозор.
Воспитательная :
Воспитывать у учащихся интерес к предмету, бережное отношение к учебной технике.
Обеспечение занятия:
1). ПК – ЭВМ
2). Раздаточный материал
–
12 шт.
Литература:
Н.Г. Волченков «Программирование на Visual Basic 6.0 »
С.Н Лукин «Самоучитель работы на Visual Basic 6.0»
Вид занятия:
комбинированное
–
1ч.
План занятия:
1. Организационный момент
2. Опрос по домашнему заданию
3. Изложение новой темы
4. Практическая работа
5. Д/з
Х О Д   У Р О К А .
–
–
–
15
–
  2
10
15
  3
–
1. Организационный момент
(Приветствие, проверка посещаемости, объявление целей и задач урока)
2. Опрос по домашнему заданию
10
–
–
  2
Задача №1: Компьютер спрашивает школьника, какую он получил отметку по
физике, и реагирует на нее подходящим текстом. Заполните пропуски в коде процедуры.
Dim Otmetka As Integer
Private Sub Command1_Click()
Otmetka = InputBox("Какую отметку ты получил по физике?")
If Otmetka = 1 …. Otmetka = 2 ….
….."Кошмар!"
……Otmetka = 3 …..
…… "Неважно"
…….Otmetka = 4 ….
……."Неплохо"
……Otmetka = 5 ….
……"Молодец!"
……
……"Таких отметок не бывает"
End Задача №2:
После старта программы цвет фона у формы серый, объясните, что произойдет при
нажатии кнопки Command1…
 Private Sub Command1_Click()
If Form1.BackColor = vbRed Then
Form1.BackColor = vbBlue
Else
Form1.BackColor = vbRed
End If
End Sub
3.Изложение новой темы
–
15
На предыдущем занятии было показано, как использовать инструкцию If...Then для
выполнения различных блоков кода при различных условиях. Хотя в операторе If...Then
при помощи ключевого слова ElseIf возможно проверить более двух условий, оператор
Select Case обеспечивает гораздо более хороший способ проверки нескольких условий.
Оператор Select Case позволяет использовать столько условий (или случаев), сколько
требуется, делая удобным написание кода для ситуаций, в которых имеется множество
вариантов.
Вот синтаксис оператора Select Case:
Select Case проверяемое выражение
[Case значение, значение……
[операторы
операторы
……………...]]
[Case значение, значение……
[операторы
операторы
……………...]]
…………………….……………….
[Case Else
[операторы
операторы
……………...]]
End Select
Здесь значение  это:
 выражение
 выражение To выражение
 Is знак сравнения выражение
Например, предположим, что программа использует переменную String для хранения
выбора цвета и требуется получить значение цвета. Код оператора Select Case может
выглядеть следующим образом:
VB
Select Case Color
  Case "red"
      MsgBox("КРАСНЫЙ  red")
  Case "blue"
      MsgBox("ГОЛУБОЙ  blue")
  Case "green"
      MsgBox("ЗЕЛЕНЫЙ  green")
End Select Возьмем, например, такую задачу: Компьютер спрашивает школьника, какую он
получил отметку по физике, и реагирует на нее подходящим текстом. Вот программа без
нововведений, использующая If:
Dim Otmetka As Integer
Private Sub Command1_Click()
Otmetka = InputBox("Какую отметку ты получил по физике?")
If Otmetka = 1 Or Otmetka = 2 Then
Print "Кошмар!"
ElseIf Otmetka = 3 Then
Print "Неважно"
ElseIf Otmetka = 4 Then
Print "Неплохо"
ElseIf Otmetka = 5 Then
Print "Молодец!"
Else
Print "Таких отметок не бывает"
End If
End Sub
Здесь может вызвать раздражение слишком часто встречающееся имя Otmetka, а также то,
что и в такой простой задаче не обошлось без логических операций. Хорошо бы программу
можно было писать попроще, например, так (порусски):
Выбери вариант отметки
Вариант 1, 2
печатай "Кошмар!"
Вариант 3
печатай "Неважно"
Вариант 4
печатай "Неплохо"
Вариант 5
печатай "Молодец!"
Вариант остальное
печатай "Таких отметок не бывает"
Конец выбора
И такой оператор варианта был придуман и назван Select Case, что и означает в переводе
ВЫБЕРИ ВАРИАНТ. Русский вариант программы поанглийски:
Dim Otmetka As Integer
Private Sub Command1_Click()
Otmetka = InputBox("Какую отметку ты получил по физике?")
Select Case Otmetka
Case 1, 2
Print "Кошмар!"
Case 3
Print "Неважно"
Case 4
Print "Неплохо"
Case 5
Print "Молодец!"
Case Else
Print "Таких отметок не бывает"
End Select
End Sub Логика работы Select Case абсолютно такая же, как и у блочного If. В процессе исполнения
оператора компьютер сравнивает значение переменной Otmetka по очереди со всеми
значениями, перечисленными в вариантах. Наткнувшись на совпадающее значение, он
выполняет операторы, стоящие в этом варианте. На этом исполнение оператора Select Case
завершается. Если же совпадающего значения так и не нашлось, то выполняются
операторы, стоящие в варианте Else (в нашей программе он полезен на тот случай, если
ученик болен манией величия и вводит число 6).
Оператор Select Case предоставляет более широкие возможности, чем в только что
рассмотренном примере. Проиллюстрируем их на другом примере: Private Sub Command1_Click()
a = 3
Select Case a * a + 1
Case 8, 4 * a, 26
k = 0
Print k
Print a
Case 7, 10, 84 To 90
k = 1
Print k
Case Is < 0, 2, 4, 12 To 18 + a, 44, 68, Is > 100 + a
k = 3
End Select
End Sub Эта программа напечатает 1. Здесь мы видим несколько новых для нас элементов:
Вопервых, после слов Select Case стоит не переменная, а выражение, поэтому с
перечисленными в вариантах значениями будет сравниваться число 10, полученное как
3*3+1. В качестве значений вариантов тоже могут быть выражения, как, например, у нас  4
* a.
Вовторых, здесь у нас в двух вариантах не по одному, а по нескольку выполняющихся
операторов.
Втретьих  конструкция 84 To 90. Она обозначает то же, что и 84,85,86,87,88,89,90, и
служит в нашем случае для сокращения записи.
Вчетвертых  конструкция Is < 0. Слово Is служит заменителем выражения a*a+1 и тоже
используется для сокращения. Таким образом, Select Case не только сравнивает значения
на равенство, но и проверяет неравенства.
Впятых, здесь отсутствует вариант Else. Это значит, что если бы в нашей программе мы
вместо a=3 написали a=0, то оператор Select Case, не найдя совпадения, не выбрал бы ни
один из своих вариантов и, не найдя также Else, завершил бы свою работу, так ничего и не
сделав.
Чем платим за удобство Select Case по сравнению с If? Что может If такого, чего не может
Select Case? Самое главное  условия в If могут быть совершенно произвольны, а в Select
Case мы привязаны к a*a+1.
Выражения могут быть не только числовые, но и строковые. Пример:
Private Sub Command1_Click()
a = "Дом"
Select Case a
Case "Домик"
k = 3
Print a
Case "Дом"
k = 0
Print k
End Select
End Sub
Здесь будет напечатан 0.
4. Практическая работа
 Задание 1: Ученик вводит с клавиатуры букву русского алфавита. Компьютер должен
сказать, какой звук обозначает это буква  гласный, согласный звонкий, согласный глухой
или какойнибудь другой (можно и НЕ ЗНАЮ).
6.  Задание на дом
Задание 2: Запрограммируйте приложение, с помощью которого можно определить день
недели по известной дате.
Примечание: при изучении нового материала учащиеся делают в тетрадь необходимые
записи под руководством учителя.
15
–

file_name: Урок Select case.doc

intro:
Цели урока:
Образовательная:
Познакомить учащихся с применением логических операций AND (И) и OR (ИЛИ) в Visual Basic. Научить учащихся составлять программы с использованием этих операций.
Развивающая:
Развивать у учащихся навыки работы с ПЭВМ, память, внимание, мышление, речь, кругозор.
Воспитательная :
Воспитывать у учащихся интерес к предмету, бережное отношение к учебной технике.
Обеспечение занятия:
1). ПК – ЭВМ	–	12 шт.
2). Раздаточный материал
Литература:
Н.Г. Волченков «Программирование на Visual Basic 6.0 »
С.Н Лукин «Самоучитель работы на Visual Basic 6.0»
Вид занятия: 	комбинированное	–	1ч.

title: Тема: Оператор Select Case.


extracted_text:
Урок №
Тема: Форма
Цель:
Учебная:  Ввести   понятие   формы.   Рассмотреть   виды,   свойства     формы,   Добавлять
элементы управления на форму.
Воспитательная: Воспитать стремление к аккуратности, ответственности при работе с
техникой.
Развивающая: Развить у учащихся алгоритмическое и логическое мышление.
Основные знания и умения:
Знать:
 Что такое форма;
 В чем состоят основные свойства формы;
 Способы добавления элементов управления на форму;
 Виды форм;
Уметь:
 Добавлять элементы управления на форму;
 Устанавливать свойства формы;
 Составлять несложные приложения с установкой свойств формы на панели свойств
и в программном коде:
Обеспечение занятия:
Литература:
1). ПК – ЭВМ
2). Раздаточный материал
–
12 шт.
Н.Г. Волченков «Программирование на Visual Basic 6.0 »
С.Н Лукин «Самоучитель работы на Visual Basic 6.0»
Вид занятия:
комбинированное
–
1ч.
План занятия:
1. Организационный момент
2. Изложение новой темы
3. Закрепление темы
4. Практическая работа
5. Отчет по работе
6. Д/з
–
–
–
10
–
–
  2
20
10
2
  1
–
Последовательность изложения темы:
1. Общие сведения.
2. Свойства формы.
3. Рисование элементов управления на форме. Х О Д   У Р О К А .
1. Организационный момент
(Приветствие, проверка посещаемости, объявление целей и задач урока)
2. Изложение новой темы
20
–
–
  2
1. Общие сведения.
Форма  это эскиз окна будущей программы (приложения).
Форма является объектом, поэтому имеет свои свойства, методы, события. Форма
является контейнером для других объектов, т.е. она может содержать кнопки, списки,
текстовые поля и т.п.
 В проекте может содержаться несколько форм. При запуске программы появляется
стартовая форма. Для выбора стартовой формы выполните: Проект
→
 Форма сохраняется в отдельном файле (точнее в 2х файлах с разными расширениями).
 Объект запуска.
 Свойства
→
→
 Главное
Формы бывают:
Форма (Form)  обычная форма, используемая в несложных программах.
Основная форма (MDI Form)  это форма, которая может содержать дочерние
(вложенные) формы. В приложении может быть только одна такая форма.
Дочерняя форма (Child)  содержится только внутри основной формы. Таких форм в
приложении может быть несколько.
Форма диалога (Dialog) появляется на экране на короткое время, служит для ввода или
вывода информации, не изменяется в размерах и находится поверх других окон.
2. Свойства формы
ActiveControl  ссылка, на элемент управления, имеющий фокус. Во время выполнения
только чтение.
Appearance  объемный вид.
AutoRedraw  автоперерисовка объекта, необходимо устанавливать, если будете работать с
графикой.
BackColor  цвет фона формы.
Например:
Form1.BackColor = vbBlue
Form1.BackColor = 16711680
Form1.BackColor = &HFF0000
BorderStyle  тип границы, обрамляющей форму.
А вот и пример,
Private Sub Command1_Click()
Form1.BorderStyle = 0
Form1.Caption = ""
End Sub Private Sub Command2_Click()
Form1.BorderStyle = 2
Form1.Caption = "Вернули заголовок форме"
Form1.Height = Form1.Height  100
Form1.Width = Form1.Width  100
End Sub
Private Sub Command3_Click()
Form1.BorderStyle = 3
Form1.Caption = "Заголовок изменился"
Form1.Height = Form1.Height + 100
Form1.Width = Form1.Width + 100
End Sub
Caption  заголовок формы. Т.е. текст, который отображается в заголовке формы.
ControlBox  отвечает, за присутствие на форме, оконного меню, на Рис 1. вы видите его
иконку. Вы должны знать, что оконное меню и кнопки закрыть, развернуть/восстановить и
свернуть взаимосвязаны. Т.е. если свойства MinButton и MaxButton установите в False, то в
оконном меню исчезнуть соответствующие пункты. Во время выполнения только чтение.
FillColor  цвет заливки.
FillStyle  тип заливки.
Font  тип шрифта. Выбирается из списка.
FontBold  полужирный шрифт.
FontItalic  курсив.
FontName  название шрифта.
FontSize  размер шрифта в пунктах. Максимальное значение 2160.
FontStrikethru  перечеркнутый текст.
FontTransparent  прозрачный текст, т.е. сквозь текст виден фон объекта.
FontUnderline  подчеркнутый текст.
ForeColor  определяет цвет выводимого на форму текста или др.
Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.ForeColor = vbRed
Print "Цвет текста на форме КРАСНЫЙ"
End Sub
Height  высота формы, в твипах  специальная единица измерения.
Для организации интерфейса (интерфейс  способ общения, взаимодействия) между
пользователем и программой служат элементы управления.
 Именно с помощью кнопки пользователь может дать команду программе, которая выведет
результат своей работы в виде надписи.
3. Рисование элементов управления на форме.
 Создание формы с элементами управления является ответственным этапом, т.к. здесь
определяется не только насколько удобна будет программа для пользователя, но и создаются объекты, которые впоследствии будут "оживать" в процессе программирования,
являясь "каркасом" приложения.
Элементы управления добавляются с помощью Панели Инструментов (Вид
Инструментов):
Создать элемент управления: выберите нужный элемент в панели инструментов (щелкнув
по кнопке элемента) и удерживая левую кнопку переместите мышь по диагонали на форме:
 Панель
→
Выделить элемент управления: щелкните по нужному элементу мышью.
 После выделения элемента управления или формы в окне свойств можно изменить его
свойства.
Примечание: Перед выделением должна быть нажата кнопка  на панели инструментов.
Если нажата другая кнопка, то будет нарисован новый элемент управления.
Удалить элемент управления: выделите элемент управления и нажмите клавишу Delete.
4. Практическое задание
1) Создайте новый проект.
Создайте форму "Калькулятор"
 Установите свойства формы "Калькулятор":
Caption = Калькулятор
Border Style = Fixed Single
Добавьте элементы управления: (строку меню добавлять не нужно)
Отрегулируйте размеры формы по содержимому с помощью мыши или свойств Height
(высота) и Width (ширина).
2) Создайте проект
Private Sub Command1_Click()
Form1.CurrentX = 1000 Form1.CurrentY = 3000
Print 99
Число 99 будет напечатано на 1000 твипов правее и на 3000
твипов ниже левого верхнего угла формы.
Form1.CurrentX = 1000
Print 99
Form1.CurrentX = 1000
Print 44
Числа 99 и 44 будут напечатаны в одном месте. Получится маз
ня.
Form1.FontSize = 20 Размер шрифта
Form1.FontName = "Arial" Название (начертание) шрифта
Form1.FontBold = True Полужирный шрифт (True  назначить, False  отменить)
Form1.FontItalic = True Курсив (наклонный шрифт)
Form1.ForeColor = vbBlue Цвет шрифта
Form1.FontUnderline = True Подчеркнутый шрифт
Form1.FontStrikethru = True Перечеркнутый шрифт
Если вы установите в окне свойств формы свойство FontTransparent равным
End Sub
Сохраните проект и форму в файлах с именами Калькулятор.
7.  Задание на дом
Поработать с конспектом.
Примечание: при изучении нового материала учащиеся делают в тетрадь необходимые
записи под руководством учителя

intro:
Цель:
Учебная: 	Ввести понятие формы. Рассмотреть виды, свойства  формы, Добавлять элементы управления на форму.
Воспитательная: Воспитать стремление к аккуратности, ответственности при работе с техникой.
Развивающая: Развить у учащихся алгоритмическое и логическое мышление.
Основные знания и умения:
Знать:
•	Что такое форма;
•	В чем состоят основные свойства формы;
•	Способы добавления элементов управления на форму;
•	Виды форм;
Уметь:
•	Добавлять элементы управления на форму;
•	Устанавливать свойства формы;
•	Составлять несложные приложения с установкой свойств формы на панели свойств и в программном коде:

title: Тема: Форма


extracted_text:
Урок1
Тема урока: Язык программирования Visual Basic. Загрузка программы Microsoft Visual
Basic 6.0. Знакомство с составляющими элементами среды программирования. Первый
проект в Microsoft Visual Basic 6.0.
Образовательные задачи:
   1. Знакомство с составляющими элементами среды программирования.
   2. Познакомить со структурой интегрированной среды
Развивающие задачи:
1. Развивать у учащихся способность к алгоритмическому мышлению.
2. Расширить знания учащихся в области алгоритмизации..
Основные знания и умения:
Знать: Состав интегрированной среды,
Уметь:
1. Запускать программу Microsoft Visual Basic 6.0.
2. Сохранять, открывать приложения.
3. устанавливать значения свойств объектов с помощью окна свойств проекта
4. Размещать объекты на форму и запускать на выполнение готовый проект.
Обеспечение занятия:
Литература:
1). ПК – ЭВМ
2). Раздаточный материал "Моя первая программа".
12 шт.
–
1. Н.Г. Волченков «Программирование на Visual Basic 6.0 »
2. С.Н Лукин «Самоучитель работы на Visual Basic 6.0»
Методы: словесные, практические, проектные.
Формы работы: лекция, практическая  работа, фронтальный опрос.
Ход урока
Организационный момент ( 3мин.)
I.
   Сообщение учащимся темы, задач ( образовательных ) и плана
   проведения урока.
II.
Изучение   нового   материала   (лекция   учителя   с   демонстрацией   элементов
среды программирования Visual Basic). .   В   результате   запуска   на   экране
появляется главное окно Visual Basic, в
центре которого вы видите другое окно
приглашение   начать   создавать   новый
проект
(см. рисунок).
Если   приглашение   не   появилось,   то
щелкните   по   пункту   меню   File,   а   затем
выберите   в   выпавшем   меню   пункт   Add
Project – и оно появится.
Вам   предлагается   выбрать   тип   проекта,
который вы хотите создавать.  Пока нам
достаточно стандартного типа. Щелкните
в  окне   приглашения   в   закладке   New   по
значку Standard EXE, а затем по кнопке
Open.   Перед   вами   возникает   следующая   картинка,   говорящая   о   том,   что   вы   можете
приступать к проектированию (внешний вид картинки у вас может быть немножко другой):
Вид рабочего экрана – Интегрированная среда Visual Basic
1. Интегрированная среда Visual Basic
Состав интегрированной среды:
1) заголовок программы (Имя приложения, Имя документа, Управляющие кнопки);
2) строка меню (стандартные и специфичные группы команд); 3)   панель   инструментов   (Standard     предполагает   ряд   наиболее   часто   используемых
возможностей, которые можно найти в меню File, Project, Debug, Run; Edit  используется при
работе   с   программным   кодом;  Debug     используется   для   тестирования   программы   и
исправления   ошибок;  Form  Editor     используется   для   изменения   размеров,
перемещение и выравнивания элементов управления в форме);
4) окно дизайнера форм (рабочая область для конструирования макета формы и
расположенных на ней элементов;
5)   окно  Project  Explorer  (представляет   собой
отражение структуры проекта);
6) панель элементов управления ToolBox (обзор
основных   элементов   управления   приводится
ниже);
7) окно свойств проекта (Properties);
isual B
2. Размещаем объекты на форме, например форма или
Ну что ж, начнем сборку. Возьмем  кнопку  (CommandButton) и поместим на форму.
Для   этого   щелкнем   по   кнопке,   а   затем   проведем   мышкой   внутри   формы   небольшую
"рамочку". Что значит провести "рамочку"? Это значит поместить мышиный курсор куда
нибудь внутрь формы, нажать на левую клавишу мыши и, не отпуская клавишу, "протащить"
мышь немного наискосок. При этом за курсором будет тянуться "рамочка". Отпустите мышь.
На месте рамочки возникнет кнопка с надписью Command1.
По краям кнопки вы увидите 8 черных квадратиков   маркеров  изменения размеров. Если
щелкнуть по форме мимо кнопки, они пропадут, если снова щелкнуть по кнопке  появятся.
Только не надо пока двойных щелчков. Перетащите мышкой любой из маркеров  размеры
кнопки изменятся. Можно таскать кнопку по форме, если ухватиться мышью не за маркер, а
за любое место внутри кнопки. Чтобы уничтожить кнопку, щелкните по ней правой клавишей
мыши и в выскочившем контекстном меню выберите опцию Delete. Проделайте все это. А
теперь, если вы ее уничтожили, то снова создайте.
Аналогичным образом поместим на форму объект текстовое поле (TextBox). Теперь у
нас на форме два объекта.
3. Пишем программу
Давайте придумаем себе задачу для нашего проекта. Пусть на экране при нажатии
кнопки   чтонибудь   произойдет.   Давайте,   прикажем   компьютеру   при   нажатии   кнопки
поменять цвет формы на красный. Команда (оператор) для этого пишется так:
Form1.BackColor = vbRed
Разберемся, что здесь написано.
Form1  это имя нашей формы (его дал Visual Basic и мы пока не будем его менять) BackColor  переводится "цвет фона", то есть это цвет, которым покрашена форма (пока он
серый)
vbRed  это красный цвет (Red  красный, vb  Visual Basic)
Таким образом, наш оператор можно перевести так:
Form1.цвет = красный
Слева от точки мы записываем имя объекта, справа от точки  его войство, а справа от знака
равенства значение этого свойства. Точку писать обязательно.
Visual Basic воспримет наш оператор как приказ поменять цвет формы на красный. Теперь
как нам сделать, чтобы компьютер выполнил этот оператор именно при нажатии на кнопку, а
не в какойлибо другой момент? Садитесь за компьютер. Про
верьте, находимся ли мы в режиме проектирования [design]. Сделайте двойной щелчок по
кнопке Command1. Перед вами возникнет новое окно  окно программного кода или просто
окно кода. Чтобы мы не спутались, в заголовке окна присутствует
слово (Code).
Теперь окно кода должно иметь такой вид:
Щелкните кнопку Start.
На экране опять появляется знакомый вид формы с кнопкой и текстовым полем. Щелкните
по кнопке  форма стала красной.
Поздравляю! Ваш первый проект заработал.
Если вы хотите начать новый проект, то выполните File  New Project.
III. Самостоятельная работа
1. Выделяя по отдельности каждый элемент управления на форме вашего первого проекта,
ознакомиться с их основными свойствами ( в окне Properties – слева ).
2. Перемещая каждый элемент указателем мыши, измените положения элементов на форме,
3. Добавить элемент управления Label и установить для него свойство Caption – “Моя первая
программа”.
V.   Итог урока
На уроке получены первые представления о среде программирования на языке Visual Basic.
Чтобы   создать   проект,   необходимо   выбрать   форму   и   установить   на   ней   необходимые
элементы  управления,  действия  которых  описываются   программным  кодом. Формы  –  это
основы   графического   интерфейса   приложения.   В   формах   размещаются   объекты,   дающие
пользователю возможность манипулировать данными и управлять приложением VI.  Задание на дом
1. Подготовить   презентацию   по   подгруппам   на   тему:   ”Интеграционная   среда  Visual
Basic”
Примечание:   при   изучении   нового   материала   учащиеся   делают   в   тетрадь   необходимые
записи под руководством учителя.

file_name: Язык программирования Visual Basic. Загрузка программы Microsoft Visual Basic 6.0. .doc

intro:
Образовательные задачи:
   1. Знакомство с составляющими элементами среды программирования.
   2. Познакомить со структурой интегрированной среды
Развивающие задачи:
1.	Развивать у учащихся способность к алгоритмическому мышлению.
2.	Расширить знания учащихся в области алгоритмизации..

Основные знания и умения:
Знать: Состав интегрированной среды,
Уметь:
1.	Запускать программу Microsoft Visual Basic 6.0.
2.	Сохранять, открывать приложения.
3.	устанавливать значения свойств объектов с помощью окна свойств проекта
4.	Размещать объекты на форму и запускать на выполнение готовый проект.

Обеспечение занятия:
1). ПК – ЭВМ	–	12 шт.
2). Раздаточный материал "Моя первая программа".
Литература:
1.	Н.Г. Волченков «Программирование на Visual Basic 6.0 »
2.	С.Н Лукин «Самоучитель работы на Visual Basic 6.0»

Методы: словесные, практические, проектные.
Формы работы: лекция, практическая  работа, фронтальный опрос.
Ход урока


extracted_text:
Праздник,  посвященный международному женскому дню в разновозрастной группе
детского сада « Лучше мамы не найти!»
Дети под музыку входят в зал и встают полукругом
Ведущий.
И снова к нам пришла весна.
Ее мы чувствуем дыханье.
Проснулись реки ото сна,
И птиц уж слышно щебетанье.
С весной приходит в гости к нам
Наш праздник, самыйсамый светлый.
Мы поздравляем наших мам,
Им шлем горячие приветы!
Дети читают стихи
1.Здравствуйте, мамочки!   ( ВЛАДА)
Здравствуйте, бабушки!
Вам говорим не тая,
Вы – наши лучшие, самые добрые,
Самые близкие в мире друзья!
2.Сегодня праздник наш весёлый, (ВЕРА)
Мы поздравляем наших мам.
Здоровья, счастья и удачи
Мы от души желаем вам.
3.Мы поздравляем мам, сестрёнок,  (КОСТЯ)
Любимых бабушек своих,
Ну и, конечно же, девчонок –
Подружек наших дорогих!
Ведущий: Дорогие наши мамы и бабушки примите в подарок  песню «Сегодня мамин
праздник»
Песня «Сегодня мамин праздник»
4.Весенним солнышком согреты,   (ЛИЗА)
Бегут весенние ручьи.
От молодой весны приветы Передают всем нам они.
5.Уже морозы отступают    (ПОЛЯ)
Зиме конец уже пришёл.
И там, в лесу, где снег растаял,
Подснежник маленький расцвёл.
6.Мы нашим мамам дорогим     (УЛЯ)
Концерт наш подарить хотим,
Чтоб все весёлыми вы были,
И чтобы нас всегда любили.
7. Пусть каждый день ваш будет ясным.   (ДИМА)
Будьте здоровы и прекрасны.
Поздравить рады мы всех мам
И эту песню дарим вам.
Песня « Песенка капель»
Ведущий: А  сейчас пока наши артисты готовятся к следующему номеру, мы  проведем
розыгрыш  лотерейных билетов.  (Билеты розданы до начала праздника)
1. Чтобы быть всегда красивой, получите это мыло.
2. Чтоб записывать дела, ручка будет вам нужна.
3. Чтобы деньги приманить, изволь копейку получить.
4. Вам выпали скрепки, чтоб объятия мужа были крепки.
5. Лучше выигрыша нет! Целлофановый пакет.
6. Чтоб смотреть на себя было легко, подарю вам, пожалуй, вот это трюмо. (зеркало)
7.Чтоб узнать смогли доход, будет кстати Вам блокнот.
8.В жизни на лучшее надо надеяться, клея возьми, если в жизни не клеится. (Клей)
9.Чтоб всегда была прическа, Вам вручается  расческа. (Расческа)
10.Да, билет счастливый Ваш, так держите карандаш. (Карандаш)
11.Хотели выиграть фонарик, но Вам достался только шарик. (Воздушный шарик)
12.Не сердись на нас, дружок, пригодится коробок. (Коробок спичек)
13.Вы выиграли не копейку, а настоящую (Линейку). 14. Чтоб была полна кубышка, вам необходима (Крышка).
Ведущий:
В этот солнечный день
Песни петь нам не лень
И для мам танцевать в этом зале.
Мы, родные, для вас
Приготовили танец
Посмотрите же, как мы старались!
Танец «Варись кашка»
Ведущая.
Дорогие ребятки, а теперь
Отгадайте загадку:
Кто читает книжки вам,
Отводит в детский сад,
Кто печет оладушки
Для родных внучат?
Ласковая, добрая,
Милая такая.
Все вместе: Это наша бабушка, бабушка родная!
Дети читают стихи о бабушке
1.С праздником веселым,  (ЛИЗА)
С праздником весны
Всех на свете бабушек
Поздравляем мы!
2.Я бабулю поздравляю,             (ДИМА)
С женским праздником весны!
Я бабулю обожаю,
Людям бабушки нужны!
Сказку добрую расскажет, Колыбельную споет,
Теплый зимний шарфик свяжет
И гулять со мной пойдет!
3.Мы для бабушек любимых       (ПОЛЯ)
Песню ласково споём,
Поцелуем, приласкаем
И поздравим с женским днём!
Исполняется песня «Про бабушку».
Ведущий: а сейчас  мы с мамами и бабушками поиграем в игру  «Кто самаясамая»
Самая ветреная дама на свете (Погода)
Самая капризная дама на свете (Мода)
Самая лучшая дама на свете! (Мама)
Самая большая рёва на свете (Царевна Несмеяна)
Самая чувствительная дама на свете (Принцесса на горошине)
Самая новогодняя дама на свете (Снегурочка)
Самая крохотная дама на свете, супруга эльфа (Дюймовочка)
Самая квакающая дама на свете (Царевналягушка)








Самая многодетная мама из русской народной сказки (Коза из сказки «Волк и семеро
козлят»)
Ведущий: А сейчас вашему вниманию предоставляется сценка «Семья»
Сценка «Семья»
Ведущая: Произошла история
Недавно иль давно.
История занятная,
Каких полнымполно.
Это шутка, в ней намек,
Если вдуматься — урок!
Вы на нас не обижайтесь,
Вникнуть в тему постарайтесь!
Начинается сценка. Папа сидит в кресле с газетой, мама у телефона на стульчике.
Ребенок играет один на полу с кубиками. Телефонный звонок.
Мама (берет трубку).
Здравствуй, Любочка, подружка!
Ты давно мне не звонишь!
Может быть, сегодня в гости
На минутку забежишь?
Много дела? Да, немало
Ждет домашних нас хлопот,
Надо ужин приготовить,
Постирать, сварить компот.
Ребенок  (подходит с книжкой).
Надоело мне играть,
Сказку можешь почитать? Мама.
Подожди ты, не гуди,
Лучше к папе подойди.
(Ребенок охает, пытается взять и посмотреть косметику, но мама легко бьет его по
руке).
Что ты? Кофточку купила?
Говоришь, красивый цвет?
Рюшки, бантики, оборки —
Замечательно, слов нет!
Да? Каблук такой высокий?
Сможешь ты такой носить?
Ах, как хочется мне тоже
Эти туфельки купить! (Кладет трубку).
Ребенок
Мама, скучно мне стоять.
Может нам с тобою вместе
В паровозики сыграть?
Мама.
Ах, мне некогда, дочурка,
Побежала я стирать,
Вон сидит на кресле папа,
Попроси его сыграть! (Убегает).
Ребенок (подходит к папе и дергает его за рукав).
Папа, папа, не читай,
Лучше в мячик поиграй!
Я тебя прошу давно,
Отведи меня в кино!
Папа.
Это все потом,
Ты сходи да погуляй.
Мне же надо очень срочно
Всю рекламу дочитать.
И футбол сегодня будет!  (Гордо).
Я — болельщик «Спартака»!
Мы в куклы поиграем
Завтра вечером. Пока!
А гулять… Об этом, кстати,
Попроси сестренку Катю.
Катя смотрит в зеркало и красит ресницы.
Ребенок
Катя, ты сегодня сможешь
белку мне дорисовать,
Или катер будем в ванной
Мы с тобою запускать.
Катя.
Скажешь тоже! Мне сегодня
В институте надо быть,
Скоро лекция начнется,
Мне пора уж выходить. А вчера знакомый Славка
Пригласил меня в кино.
Ни минуточки свободной,
Все расписано давно.
Убегает из зала. Ребенок  остается один, он в недоумении пожимает плечами
Ребенок
Что же делать мне одной?
Ведущая.
Не сидится, не лежится, не гуляется ему!
Мама, папа и сестренка, (Выходят все по одному и встают рядом с ребенком)
Пожалейте вы ребенка.
Порисуйте, почитайте,
С нею в куклы поиграйте.
Знайте: бедному ему
Скучно в доме одному.
Подрастет малыш, быть может,
Вам когданибудь поможет.
Ведущий: а как помогают,  вам ваши дети,  мы сейчас это узнаем…
Песня «Сегодня в праздник мамы»
Ведущая.
Нам надо праздник продолжать.
Будем петь, плясать, играть.
Кто из вас, ребята, хочет
Со своей мамой поиграть?
Игры с мамами:  «Наряди маму, бабушку». Кто быстрее наденет  шарфик, очки, шляпу
Игра «Помоги маме»  На столе перемешаны: стиральный порошок, прищепки, верёвка,
платочки, нитки, сантиметр, ножницы, зеркало, помада, расческа, тушь – необходимо
разобрать по виду деятельности все предметы. Одни – для стирки, другие для шитья,
третьи – туалетные принадлежности.
Игра «К маме по тропиночке» Участвуют семейные пары 56. Мамы встают напротив
детей на расстоянии, а дети двигают к ним по нарезанным из картона «следам»
Игра: «Бобовая гонка» Количество игроков: любое
На столе перед мамами стоят чашки с блюдцами, возле каждой чашки  по 2 китайских
палочки. Мамы должны с помощью палочек перенести бобы из блюдца в чашку.
Игра «Моя любимая мама,  бабушка». Бабушки сидят на стульчиках с корзинками в руках. На столе в стороне от них стол и
тарелка с конфетами (маленькие карамельки). Играют 2 или 3 ребенка, они должны
принести по одной конфете и за каждую конфетку поцеловать бабушку в щечку. Кто
принесет больше, тот и победил!
Игра «Узнай мамину (бабушкину) вещь.
Воспитатель заранее, в тайне от детей собирает бусы, часы, платочек и т. д. Во время игры
спрашивает: Чья это вещь?
Игра «Найди ребенка» Вызываются  две:  пары мама  и  ребенок
Мамы  и  дети  стоят  в  противоположных  концах  зала. Маме  завязывают  глаза.
Дети  кричат  «Мама  я  здесь». Мамы  по  голосу  должны  найти  своего  ребенка.
Ведущий:
Много о мамочке песенок спето,
Мы добротою, как солнцем  согреты.
Только нам хочется снова и снова,
Маме сказать наше добро слово.
Дети читают стихи
1.Мы сегодня поздравляем   (ВЛАДА)
Наших милых, добрых мам.
И от всей души желаем
Мы большого счастья вам!
2. Мы, конечно, знаем сами,      (ВЕРА)
Что измучаешься с нами.
Не всегда мы хороши,
И терпенья каждой маме
Мы желаем от души.
3.Мы будем все внимательно      (КОСТЯ)
Советы ваши слушать
И супу обязательно
По две тарелки кушать.
4.У мамы немало забот и хлопот,     (УЛЯ)
Мы знаем, как часто она устает.
И маме любимой мы слово даем
Что слушаться будем всегда и во всем! ( дети говорят все вместе)
Ведущий:
Мам  и бабушек дорогих В этот день поздравляем.
И подарки чудесные  мы вам вручаем.
Примите букеты от ваших ребят,
Мы  их сделали  сами своими руками.    Дети дарят подарки мамам и бабушкам.
Ведущий:
Мы наших мам и бабушек
Поздравим с женским днем
И на прощанье песенку
Веселую споем.
Песня «Вкусные оладушки»
Ведущий:
Вот и кончилось веселье,
Наступил прощанья час.
Вы скажите откровенно,
Вам понравилось у нас?
Наши детки постарались,
Чтоб понравиться всем вам.
До свиданья! До свиданья!
Приходите в гости к нам!

file_name: 8 марта 2017г.docx

intro: Праздник "Лучше мамы не найти!" разработан для детей разновозрастной группы детского сада, посвящен международному женскому дню 8 Марта.   В сценарии  использованы различные стихи, песни о весне, маме, бабушке. А также  другие номера исполняемые детьми, например: веселый танец "Варись кашка", сценка "Семья"Праздник "Лучше мамы не найти!"

title: Праздник "Лучше мамы не найти!"


extracted_text:
Задание к графику функции:
1. Изменить цвет рисования графика на красный
2. В этой же системе координат нарисовать график функции y = sin 2x, выделив его синим
цветом.
3. В этой же системе координат нарисовать график функции y = sin 0,5x, выделив его
зелёным  цветом.
4. Сравнить полученные результаты.
5. Сделать так, чтобы каждый график рисовался при нажатии своей кнопки.
Задание к графику функции:
1. Изменить цвет рисования графика на красный
2. В этой же системе координат нарисовать график функции y = sin 2x, выделив его синим
цветом.
3. В этой же системе координат нарисовать график функции y = sin 0,5x, выделив его
зелёным  цветом.
4. Сравнить полученные результаты.
5. Сделать так, чтобы каждый график рисовался при нажатии своей кнопки.
Задание к графику функции:
1. Изменить цвет рисования графика на красный
2. В этой же системе координат нарисовать график функции y = sin 2x, выделив его синим
цветом.
3. В этой же системе координат нарисовать график функции y = sin 0,5x, выделив его
зелёным  цветом.
4. Сравнить полученные результаты.
5. Сделать так, чтобы каждый график рисовался при нажатии своей кнопки.
Задание к графику функции:
1. Изменить цвет рисования графика на красный
2. В этой же системе координат нарисовать график функции y = sin 2x, выделив его синим
цветом.
3. В этой же системе координат нарисовать график функции y = sin 0,5x, выделив его
зелёным  цветом.
4. Сравнить полученные результаты.
5. Сделать так, чтобы каждый график рисовался при нажатии своей кнопки.
Задание к графику функции:
1. Изменить цвет рисования графика на красный
2. В этой же системе координат нарисовать график функции y = sin 2x, выделив его синим
цветом.
3. В этой же системе координат нарисовать график функции y = sin 0,5x, выделив его
зелёным  цветом.
4. Сравнить полученные результаты.
5. Сделать так, чтобы каждый график рисовался при нажатии своей кнопки.

file_name: Задание к графику функции.doc

title: Задание к графику функции:


extracted_text:
ЗАДАНИЯ:
1. Создать графики функций y = cos x,    y = cos 2x,   y = cos(2x+2),    y =
2cos(2x+2)
2. Задать каждому графику отдельный цвет, используя функцию vbcolor
(vbRed – красный, vbgreen – зелёный, vbblue – синий,  vbCyan – голубой, vbMagenta
– сиреневый, vbyellow – жёлтый)
3. Сравнить между собой графики и сделать вывод.
ЗАДАНИЯ:
1. Создать графики функций y = cos x,    y = cos 2x,   y = cos(2x+2),    y =
2cos(2x+2)
2. Задать каждому графику отдельный цвет, используя функцию vbcolor
(vbRed – красный, vbgreen – зелёный, vbblue – синий,  vbCyan – голубой, vbMagenta
– сиреневый, vbyellow – жёлтый)
3. Сравнить между собой графики и сделать вывод.
ЗАДАНИЯ:
1. Создать графики функций y = cos x,    y = cos 2x,   y = cos(2x+2),    y =
2cos(2x+2)
2. Задать каждому графику отдельный цвет, используя функцию vbcolor
(vbRed – красный, vbgreen – зелёный, vbblue – синий,  vbCyan – голубой, vbMagenta
– сиреневый, vbyellow – жёлтый)
3. Сравнить между собой графики и сделать вывод.
ЗАДАНИЯ:
1. Создать графики функций y = cos x,    y = cos 2x,   y = cos(2x+2),    y =
2cos(2x+2)
2. Задать каждому графику отдельный цвет, используя функцию vbcolor
(vbRed – красный, vbgreen – зелёный, vbblue – синий,  vbCyan – голубой, vbMagenta
– сиреневый, vbyellow – жёлтый)
3. Сравнить между собой графики и сделать вывод.
ЗАДАНИЯ:
1. Создать графики функций y = cos x,    y = cos 2x,   y = cos(2x+2),    y =
2cos(2x+2)
2. Задать каждому графику отдельный цвет, используя функцию vbcolor
(vbRed – красный, vbgreen – зелёный, vbblue – синий,  vbCyan – голубой, vbMagenta
– сиреневый, vbyellow – жёлтый)
3. Сравнить между собой графики и сделать вывод.
ЗАДАНИЯ:
1. Создать графики функций y = cos x,    y = cos 2x,   y = cos(2x+2),    y =
2cos(2x+2)
2. Задать каждому графику отдельный цвет, используя функцию vbcolor
(vbRed – красный, vbgreen – зелёный, vbblue – синий,  vbCyan – голубой, vbMagenta
– сиреневый, vbyellow – жёлтый)
3. Сравнить между собой графики и сделать вывод. ЗАДАНИЯ:
1. Создать графики функций y = cos x,    y = cos 2x,   y = cos(2x+2),    y =
2cos(2x+2)
2. Задать каждому графику отдельный цвет, используя функцию vbcolor
(vbRed – красный, vbgreen – зелёный, vbblue – синий,  vbCyan – голубой, vbMagenta
– сиреневый, vbyellow – жёлтый)
3. Сравнить между собой графики и сделать вывод.

title: Создать графики функций