Question

Ребятки, снова прошу помощи!))) Условие: Составьте блок-схему и программу на языке VBA, которая вычисляет частное от деления двух чисел. Программа должна проверять правильность введенных пользователем данных и, если они неверные (делитель равен нулю), выдавать сообщение об ошибке.Я совсем не дружу с бейсиком(( Помогите пожалуйста! :)

Answer 1

Sub z()
x = InputBox("Введите делимое")
Do
  y = InputBox("y")
  If y = 0 Then MsgBox ("Делить на 0 нельзя")
  Loop Until y <> 0
MsgBox ("s" & x / y)
End Sub

Answer 2

Uses crt;
var a,b,n:integer;
begin
clrscr;
writeln('Введите делимое:'); readln(a);
writeln('Введите делитель <>0'); readln(b);
n:=a div b;
if b <> 0 then  begin n:=a div b; writeln('Ответь ',n); end else writeln('error 0');
readkey;
end.

Если что паскаль

Answer 3

Решение

Для решения данной задачи, составим блок-схему и напишем программу на языке VBA.

Блок-схема


Программа на языке VBA

Sub CalculateQuotient()
    Dim dividend As Double
    Dim divisor As Double
    Dim quotient As Double
    
    ' Ввод данных пользователем
    dividend = InputBox("Введите делимое:")
    divisor = InputBox("Введите делитель:")
    
    ' Проверка делителя на равенство нулю
    If divisor = 0 Then
        MsgBox "Ошибка: делитель не может быть равен нулю."
        Exit Sub
    End If
    
    ' Вычисление частного
    quotient = dividend / divisor
    
    ' Вывод результата
    MsgBox "Частное от деления " & dividend & " на " & divisor & " равно " & quotient & "."
End Sub

Объяснение решения

1. Программа начинается с объявления переменных `dividend`, `divisor` и `quotient`, которые будут использоваться для хранения введенных пользователем данных и результата вычислений. 2. Пользователю предлагается ввести делимое и делитель с помощью функции `InputBox`. 3. Далее, программа проверяет, является ли делитель равным нулю. Если делитель равен нулю, программа выводит сообщение об ошибке и завершает свою работу с помощью оператора `Exit Sub`. 4. Если делитель не равен нулю, программа вычисляет частное от деления делимого на делитель и сохраняет результат в переменную `quotient`. 5. Наконец, программа выводит сообщение с результатом вычислений с помощью функции `MsgBox`.

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

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