Question

.Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в шестнадцатричной системе счисления. В vba

Answer 1

Const heigth = 10
Const width = 10

Sub Ìàêðîñ1()
    Dim Sum(heigth - 1, width - 1)
    Dim Product(heigth - 1, width - 1)
    
    For i = 0 To heigth - 1
        For j = 0 To width - 1
            Sum(i, j) = i + j
            Product(i, j) = i * j
        Next j
    Next i
    
    Call Show(Sum, 0, 0)
    Call Show(Product, 0, 12)
End Sub

Sub Show(ByRef m, dx, dy)
    For i = 0 To heigth - 1
        For j = 0 To width - 1
            ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j))
        Next j
    Next i
End Sub

Answer 2

Вот пример программы на VBA, которая печатает таблицу умножения и сложения натуральных чисел в шестнадцатеричной системе счисления:

Sub PrintHexTable()
    Dim i As Integer, j As Integer
    Dim hexNum As String
    
    ' Печать заголовка таблицы
    Debug.Print "Таблица умножения в шестнадцатеричной системе счисления:"
    Debug.Print "   |";
    For i = 0 To 15
        Debug.Print Format(i, "Hex") & "  ";
    Next i
    Debug.Print
    
    ' Печать разделительной линии
    Debug.Print "----+---------------------------------------------------------------"
    
    ' Печать таблицы умножения
    For i = 0 To 15
        Debug.Print Format(i, "Hex") & "  |";
        For j = 0 To 15
            hexNum = Format(i * j, "Hex")
            Debug.Print hexNum & "  ";
        Next j
        Debug.Print
    Next i
    
    ' Печать разделительной линии
    Debug.Print "----+---------------------------------------------------------------"
    
    ' Печать таблицы сложения
    Debug.Print "Таблица сложения в шестнадцатеричной системе счисления:"
    Debug.Print "   |";
    For i = 0 To 15
        Debug.Print Format(i, "Hex") & "  ";
    Next i
    Debug.Print
    
    ' Печать разделительной линии
    Debug.Print "----+---------------------------------------------------------------"
    
    ' Печать таблицы сложения
    For i = 0 To 15
        Debug.Print Format(i, "Hex") & "  |";
        For j = 0 To 15
            hexNum = Format(i + j, "Hex")
            Debug.Print hexNum & "  ";
        Next j
        Debug.Print
    Next i
End Sub

Программа использует циклы для генерации таблицы умножения и сложения в шестнадцатеричной системе счисления. Она выводит результаты в окно отладки (Immediate Window) в среде разработки VBA, такой как Microsoft Excel или Microsoft Access.

Чтобы запустить программу, вставьте код в модуль VBA в выбранной среде разработки и выполните процедуру `PrintHexTable`. Результаты будут отображены в окне отладки.

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

Надеюсь, это поможет вам составить программу, которая печатает таблицу умножения и сложения натуральных чисел в шестнадцатеричной системе счисления с использованием VBA! Если у вас возникнут еще вопросы, не стесняйтесь задавать.