Question

Составить программу в VBA Дано натуральное четырехзначное число. Определить цифры этого числа (К, L, M, N) и выяснить, можно ли построить параллелограмм со сторонами K, L, M, N.

Answer 1

Input KLMN
K=KLMN div 1000
L=(KLMN mod 1000) div 100
M=(KLMN mod 100) div 10
N=RLMN mod 10
IF (K=L AND M=N) OR (K=M AND L=N) OR (K=N AND L=M)
  THEN PRINT " ПРЯМОУГОЛЬНИК"
  ELSE PRINT " НЕ ПРЯМОУГОЛЬНИК"

Answer 2

Для решения данной задачи в VBA можно использовать следующую программу:

vbaCopy code
Sub CheckParallelogram()
    Dim number As Integer
    Dim K As Integer, L As Integer, M As Integer, N As Integer
    
    ' Вводим четырехзначное число
    number = InputBox("Введите натуральное четырехзначное число:")
    
    ' Получаем цифры числа
    K = Int(number / 1000) ' Тысячные
    L = Int((number Mod 1000) / 100) ' Сотые
    M = Int((number Mod 100) / 10) ' Десятые
    N = number Mod 10 ' Единицы
    
    ' Проверяем условие для параллелограмма
    If K = M And L = N Then
        MsgBox "Можно построить параллелограмм со сторонами " & K & ", " & L & ", " & M & ", " & N
    Else
        MsgBox "Нельзя построить параллелограмм со сторонами " & K & ", " & L & ", " & M & ", " & N
    End If
End Sub

При выполнении программы пользователь будет предложен ввести натуральное четырехзначное число. Затем программа определит цифры этого числа (K, L, M, N) и проверит, можно ли построить параллелограмм со сторонами K, L, M, N. Результат будет отображен в сообщении (сообщении msgbox).

Обратите внимание, что в данном примере мы предполагаем, что пользователь будет вводить корректное четырехзначное число. В реальных приложениях рекомендуется добавить дополнительную проверку на корректность ввода.