Написать программу в VBA, сравнивающую два числа, вводимые с клавиатуры.

Знания

Информатика

1 ответ:

Рузана19894 года назад

0 0

Sub car()
Dim s1, s2 As Double
s1 = CDbl(InputBox("Введи первое число", "Ввод данных", 88))
s2 = CDbl(InputBox("Введи второе число", "Ввод данных", 46))
If s1 > s2 Then MsgBox (CStr(s1) + ">" + CStr(s2)) Else MsgBox (CStr(s1) + "<" + CStr(s2))
End Sub

Читайте также

Допишите листинг программы, с выводом текста на экран

domino313 [2]

{

cout << "Текст" << endl;

system("pause");

}

0 0

4 года назад

Составить алгоритм и программу для нахождения значения функции: у=(в корне кадратном)2х-3 , если х-произвольное число

Aleks150 [9]

Var x,y:real;
begin
writeln ('Введите x: ');
read (x);
if x>=1.5 then
begin
y:=SQRT(2*x-3);
writeln('y = ', y);
end else
writeln ('Под корнем отрицательное число!');
end.

0 0

4 года назад

После выполнения команды присваивания с:=с*d значение переменной равно 7, а значение переменной d равно 2. Сёму были равны значе

Iulia Dimova

C:=3,5;
d:=2;
c:=c*d
c:=3,5*2=7

0 0

4 года назад

В электронном телефонном справочнике имеется пронумерованный список из 2500 клиентов.Клиентов с 120 по 560 номера включительно,у

Saint Stas

1) 560-120=440 номеров удалили. 2) 2500-440=2060 номеров осталось Вроде так.

0 0

4 года назад

В следующих примерах укажите информационный носитель и форму представления информации:а) табличка с номером домаб) почтовая откр

Юрий Козаченко

А) металл ;цифровая
б) бумага (картон); цифровая (индекс), текстовая, графическая
в) бумага; текстовая, цифровая
г) бумага; цифровая, текстовая, графическая
д)оптический или цифровой диск; видео, аудио.
насчет диска точно не знаю, извини))

0 0

4 года назад