Программа на языке 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. Алгоритм

Программа на языке Visual Basic for Application - student2.ru (значение числа 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,

Программа на языке Visual Basic for Application - student2.ru (значение числа 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.

Наши рекомендации