Question

Даны  три  числа.  Выведите  на экран их значения и определите большее и меньшее из них.
В формате VBS

Answer 1

a = InputBox("Введите a")
min=a
max=a
b = InputBox("Введите b")
if b<min then min=b
if b>max then max=b
c = InputBox("Введите c")
if c<min then min=c
if c>max then max=c
MsgBox "Наибольшее: "+max+"; наименьшее: "+min