Составить программу, которая определяет максимальное из всех чисел, вводимых с клавиатуры - VB
Формулировка задачи:
Помогите, пожалуйста, написать программу через "Do...While"
Составить программу, которая определяет максимальное из всех чисел, вводимых с клавиатуры. Признаком завершения ввода чисел является введенное число 0.
Заранее спасибо
Решение задачи: «Составить программу, которая определяет максимальное из всех чисел, вводимых с клавиатуры»
textual
Листинг программы
sub main
dim n&,max&
Do
n=inputbox("N=")
if n>max then max=n
loop While n>0
msgbox "Max=" & max
end sub