Программа на языке Visual Basic for Application

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.