Question

Даны два действительных числа a и b Получить их сумму,разность и произведение. Сделать в программе VBA

Answer 1

Ответ:

Option Explicit

Private Sub Command1_Click()

Dim A As Integer, B As Integer, C As Integer, D As Integer, E As Single

A = InputBox("A= ")

B = InputBox("B= ")

C = A + B

D = A - B

E = Abs(A) / Abs(B)

MsgBox C

MsgBox D

MsgBox E

Debug.Print C

Debug.Print D

Debug.Print E

End Sub

 

'A = 5

'B = -8

'C = -3

'D = 13

'E = 0.625

Объяснение:

Надеюсь подойдет давно не писал на нем

Answer 2

Вы можете создать простую программу VBA в Microsoft Excel для выполнения операций сложения, вычитания и умножения двух действительных чисел a и b. Вот пример кода:

vbaCopy code
Sub ВычислитьСуммуРазностьПроизведение()
    ' Объявляем переменные для хранения чисел a и b
    Dim a As Double
    Dim b As Double
    
    ' Запрашиваем у пользователя значения a и b
    a = InputBox("Введите значение a:")
    b = InputBox("Введите значение b:")
    
    ' Вычисляем сумму
    Dim сумма As Double
    сумма = a + b
    
    ' Вычисляем разность
    Dim разность As Double
    разность = a - b
    
    ' Вычисляем произведение
    Dim произведение As Double
    произведение = a * b
    
    ' Выводим результаты на экран
    MsgBox "Сумма: " & сумма & vbCrLf & "Разность: " & разность & vbCrLf & "Произведение: " & произведение
End Sub

Чтобы использовать этот код:

1. Откройте Microsoft Excel.
2. Нажмите ALT + F11 для открытия редактора VBA.
3. Вставьте код в модуль VBA.
4. Закройте редактор VBA.
5. Запустите макрос, выбрав его в меню "Макросы".

Программа запросит у вас значения a и b, а затем выведет на экран сумму, разность и произведение этих чисел.