Задача 2.

В прикладном программном продукте Word разработать макрос с именем “PR2”, обеспечивающий преобразование вводимого числа из шестнадцатеричной системы счисления в десятичную систему счисления.

Для выполнения данной задачи требуется:

Во-первых, описать переменную S с типом String.

Во-вторых, описать переменную N с типом Long.

В-третьих, обеспечить ввод шестнадцатеричного числа, представленного в виде строки числовых шестнадцатеричных символов в переменную S с помощью функции InputBox. При вводе строки числовых шестнадцатеричных символов, перед символами шестнадцатеричного числа задаются символы “&H”.

В-четвертых, для преобразования шестнадцатеричного числа, представленного в виде строки числовых шестнадцатеричных символов, в десятичное представление использовать функцию Val.

В-пятых, для выдачи полученного десятичного числа на экран используется функция MsgBox.

В-шестых, для проверки правильности работы программы ввести тестовое значение строки числовых шестнадцатеричных символов «ABC» с префиксом «&H». Полученные ответ «2748» сравнить с результатом решения задачи, выполненной на первом занятии.

Программный код, обеспечивающий выполнение данной задачи, имеет следующий вид:

Sub PR2()

Dim S As String

Dim N As Long

S = InputBox("Введите число с префиксом &H", _

"Ввод шестнадцатеричного числа")

N = Val(S)

MsgBox N, , "Результат"

End Sub

Задача 3.

В прикладном программном продукте Word разработать макрос с именем “PR3”, обеспечивающий преобразование вводимого числа из восьмеричной системы счисления в десятичную систему счисления.

Для выполнения данной задачи требуется:

Во-первых, перенести имеющийся программный код из макроса PR2 в макрос PR3.

Во-вторых, модифицировать команду InputBox следующим образом

S = InputBox("Введите число с префиксом &O", _

"Ввод восьмеричного числа")

В-третьих, для проверки правильности работы программы ввести тестовое значение строки числовых восьмеричных символов «1010» с префиксом «&O».

Задача 4.

В прикладном программном продукте Word разработать макрос с именем “PR4”, обеспечивающий преобразование числа из десятичной системы счисления в строку числовых шестнадцатеричных символов.

Для выполнения данной задачи требуется:

Во-первых, описать переменную S с типом String.

Во-вторых, описать переменную N с типом Long.

В-третьих, обеспечить ввод десятичного числа в переменную N с помощью функции InputBox.

В-четвертых, для преобразования десятичного числа в строку шестнадцатеричных числовых символов использовать функцию Hex.

В-пятых, для выдачи полученной строки шестнадцатеричных символов на экран используется функция MsgBox.

В-шестых, для проверки правильности работы программы ввести тестовое значение десятичного числа «43962». Результатом должно явиться шестнадцатеричное число «АВВА».

Программный код, обеспечивающий выполнение данной задачи, имеет следующий вид:

Sub PR4()

Dim S As String

Dim N As Long

N = InputBox("Введите число", "Ввод десятичного числа")

S = Hex(N)

MsgBox S, , "Результат"

End Sub