Условие задачи на организацию циклических процессов.

При выполнении второй части требуется создать в прикладном программном продукте Word макрос, который определяет в целом положительном числе шестую цифру слева. Если в числе меньше шести цифр, то требуется выдать сообщение.

Распечатка программного кода.

Sub PR12()

Dim A As Long

Dim A As Long

A=Val(InputBox(“Введите число”,”Ввод Исходных значений”))

B=A

Q1=0

Do While B>0

Q1=Q1+1

B=B\10

Loop If Q1<6 Then

MsgBox “Меньше шести цифр”,, “Результат”

Else

Q1=Q1-6+1

Q=0

DoWhile A>0

Q=Q+1

If Q=Q1 Then P=A Mod 10

A=A\10

Loop

MsgBox P,, “Результат”

End If

End Sub

Распечатка результатов выполнения.

Введите число:13041995

Результат:9

Постановка задачи на обработку информации с использованием разветвления алгоритма и циклических процессов.

Описание условия задачи.

Ввести целое положительное число, которое делится на 100

Распечатка программного кода

Sub PR13()

Dim A As Integer

A=InputBox(“Введите число”,”Ввод числа”)

IF A Mod 100=0 Then

MsgBox “Делится”,,”Результат”

Else

MsgBox “ Не делится”,,”Результат”

End If

End Sub

Распечатка результатов выполнения.

Введите число:1000

Результат: Делится

Литература и Internet-ресурсы.

1. http://www.taurion.ru

2. http://vba-help.ru

3. http://www.belsut.gomel.by

4. Комлева Н.В., Смирнов А.А., Хрипков Д.В., Информатика и программирование, - М, центр ЕОАИ, 2008

5. А. Гарнаев - Самоучитель VBA

6. Гарбер Геннадий- Основы программирования на Visual Basic и VBA в Excel 2007

Дата добавления: 2015-10-24