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

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.

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

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