2.2 Условие задачи на организацию циклических процессов.
При выполнении второй части требуется создать в прикладном программном продукте Word макрос, который определяет в целом положительном числе шестую цифру слева. Если в числе меньше шести цифр, то требуется выдать сообщение.
2.3 Распечатка программного кода.
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
2.4 Распечатка результатов выполнения.
Введите число:13041995
Результат:9
3. Постановка задачи на обработку информации с использованием разветвления алгоритма и циклических процессов.
3.1 Описание условия задачи.
Ввести целое положительное число, которое делится на 100
3.2 Распечатка программного кода
Sub PR13()
Dim A As Integer
A=InputBox(“Введите число”,”Ввод числа”)
IF A Mod 100=0 Then
MsgBox “Делится”, ,”Результат”
Else
MsgBox “ Не делится”, ,”Результат”
End If
End Sub
3.3 Распечатка результатов выполнения.
Введите
число:1000
Результат:
Делится
4. Литература и Internet-ресурсы.
http://www.taurion.ru
http://vba-help.ru
http://www.belsut.gomel.by
Комлева Н.В., Смирнов А.А., Хрипков Д.В., Информатика и программирование, - М, центр ЕОАИ, 2008
А. Гарнаев - Самоучитель VBA
Гарбер Геннадий- Основы программирования на Visual Basic и VBA в Excel 2007