Вызов программы Visual Basic

Чтобы вызвать программу необходимо проделать следующие операции. Загрузить программу MS Excel, используя кнопку ПУСК или пиктограмму MS Excel на Рабочем столе.

Навести мышку на ярлык Лист1, щелкнуть правой кнопкой мыши и выбрать команду Исходный текст.

Алгоритм вызова программы Visual Basic:

MS Excel / ярлык Лист1 / правая кнопка мыши / выбрать команду Исходный текст.

Выполнение программы Visual Basic: RUN или F5

Пример решения задачи

Составить блок-схему алгоритма и программу на языке Visual Basic for Application

Задача № 1. Составить программу расчета суммы чисел S от 1 до n с приращением 1,

(значение числа n вводить с клавиатуры).

Алгоритм

Постановка задачи

Вычислить: S=1+2+3+4+....+n

Связь:

S =0

For I = 1 To n Step 1

S=S+I

Next I

Программа на языке 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	Целые числа	1	byt	от 0 до 255
Integer	Целые числа	2	int	от -32768 до 32767	%
Long	Целые числа двойной длины	4	lng	от -2147483648 до 2147483647	&
Single	Десятичные числа одинарной точности	4	sng	от -3.402823E+38 до -1.401298E-45 и от 1.401298E-45 до 3.402823E+38	!
Double	Десятичные числа двойной точности	8	dbl	от -1.79769313486232E+308 до -4.9406564584127E-324 и от 4.9406564584127E-324 до 1.79769313486232E+308	#
Boolean	Логические числа	2	bln	True или False
String	Строка символов	1+1 на символ	str	от 0 до 65536 символов	$
Currency	Числа в денежном формате	8	cur	от –9223372036685477.5808 до 9223372036685477.5807	@
Date	Дата		dtm	от 01.01.100 до 31.12.9999
Object	Ссылки на любой объект	4	obj	любой определенный объект
Array		Определяется количеством и размером элементов
Variant	Любые значения	Определяется записанными данными	vnt	любой встроенный тип данных