Sub prog1()
Dim S, I, n As Integer
n = CInt(InputBox("Значение n="))
S=0
For I = 1 To n Step 1
S=S+I
MsgBox ("Сумма S =" + CStr(S))
Next I
End Sub
Контрольные вопросы
1. Назовите типы циклических структур.
2. Как записывается вычисляемый цикл (или цикл с параметром)?
3. Как он выполняется?
4. Каково значение шага, если начальное значение переменной цикла меньше конечного значения переменной цикла и наоборот.
5. Если отсутствует зарезервированное слово Step и величина шага, то какой размер шага используется?
Составить блок-схему алгоритма и программу на языке Visual Basic for Application
Задача № 2. Составить программу расчета факториала заданного натурального числа n. Факториал числа n равен произведению 1*2*3*4*…*n; например, 5! = 1*2*3*4*5. Алгоритм
(значение числа n вводить с клавиатуры).
Постановка задачи
Вычислить: p! =1*2*3*4*....*n
Связь:
For I = 1 To n Step 1
p=n*I
Next I
Программа на языке Visual Basic for Application
Sub prog2()
Dim p, I, n As Integer
n = CInt(InputBox("Ввести значение n="))
For I = 1 To n Step 1
p = n*I
MsgBox ("Факториал числа p=" + CStr(p))
Next I
End Sub
Составить блок-схему алгоритма и программу на языке Visual Basic for Application
Задача № 3. Составить программу нахождения суммы S=1 + 1/2 + 1/3 +1/4 +...............+1/n,
(значение числа n вводить с клавиатуры).
Постановка задачи
Вычислить: S=1 + 1/2 + 1/3 +1/4 +...........+1/n
Связь:
S =1
For I = 1 To n Step 1
S=S+1/ I
Next I
Программа на языке Visual Basic for Application
Sub prog3()
Dim S, I, n As Single
n = Csng(InputBox("Ввести значение n="))
S=1
For I = 1 To n Step 1
S=S+1/I
MsgBox ("Сумма S =" + CStr(S))
Next I
End Sub
Самостоятельная работа
Задача № 4. С оставить программу вывода на экран натуральных чисел от 1 до n в обратном порядке, (значение n вводить с клавиатуры).
Задача№ 5. составить программу вывода на экран целых чисел от 1 до n, кратных 3, а затем рассчитать сумму квадратов таких чисел, (значение n вводить с клавиатуры).
Задача № 6. Составить программу вывода на экран целых чисел от 1 до n, кратных 3, а затем рассчитать произведение таких чисел, (значение n вводить с клавиатуры).
Задача№ 7. Составить программу вывода на экран целых чисел от 1 до n, кратных 4, а затем рассчитать сумму квадратов таких чисел, (значение n вводить с клавиатуры).
Задача № 8. Составить программу вывода на экран целых чисел от 1 до n, кратных 4, а затем рассчитать произведение таких чисел, (значение n вводить с клавиатуры).
Задача№ 9. Составить программу вывода на экран целых чисел от 1 до n, кратных 5, а затем рассчитать сумму квадратов таких чисел, (значение n вводить с клавиатуры).
Задача № 10. Составить программу вывода на экран целых чисел от 1 до n, кратных 5, а затем рассчитать произведение таких чисел, (значение n вводить с клавиатуры).
Таблица 1. Основные типы данных (переменных) в Visual Basic
| Тип данных | Возможные значения | Размер (байтов) | Прис-тавка к имени | Диапазон | Суффикс |
| Byte | Целые числа | byt | от 0 до 255 | ||
| Integer | Целые числа | int | от -32768 до 32767 | % | |
| Long | Целые числа двойной длины | lng | от -2147483648 до 2147483647 | & | |
| Single | Десятичные числа одинарной точности | sng | от -3.402823E+38 до -1.401298E-45 и от 1.401298E-45 до 3.402823E+38 | ! | |
| Double | Десятичные числа двойной точности | dbl | от -1.79769313486232E+308 до -4.9406564584127E-324 и от 4.9406564584127E-324 до 1.79769313486232E+308 | # | |
| Boolean | Логические числа | bln | True или False | ||
| String | Строка символов | 1+1 на символ | str | от 0 до 65536 символов | $ |
| Currency | Числа в денежном формате | cur | от –9223372036685477.5808 до 9223372036685477.5807 | @ | |
| Date | Дата | dtm | от 01.01.100 до 31.12.9999 | ||
| Object | Ссылки на любой объект | obj | любой определенный объект | ||
| Array | Определяется количеством и размером элементов | ||||
| Variant | Любые значения | Определяется записанными данными | vnt | любой встроенный тип данных |
Литература
1. Н.В. Макарова «Информатика и ИКТ. Учебник 10 класс (Базовый уровень)», ООО «Питер Пресс», ОАО «Московские учебники», 2008 г.
2. Н.В. Макарова «Информатика и ИКТ» Учебник 11 класс (Базовый уровень)», ООО «Питер Пресс»,ОАО «Московские учебники», 2008 г
3. Угринович Н.Д.«Информатика и ИКТ» Учебник для 10 класса (Профильный уровень), 4-е издание, М., БИНОМ, Лаборатория знаний, ОАО «Московские учебники», 2008 г.
4. М.Д. Князева. «Алгоритмика. От алгоритма к программе» Кудиц-Образ. Москва. 2006.
5. ПЭВМ IBM Pentium, Windows XP, Microsoft Offise, Microsoft Excel, встроенный в Microsoft Excel язык программирования Visual Basic for Application.
