Нахождение максимальной и минимальной цифр данного четырехзначного числа - VB

Узнай цену своей работы

Формулировка задачи:

Написать программу нахождения максимальной и минимальной цифр данного четырехзначного числа

Решение задачи: «Нахождение максимальной и минимальной цифр данного четырехзначного числа»

textual
Листинг программы
dim a,c,e, b(4) as integer
dim min,max as integer
a=inputbox("Введите число")
 
for c=1 to 4
b(c)=mid(a,c,1)
b(c)=val(b(c))
next c
min = b(1)
max =b(1)
for c=1 to 4
if min>b(c) then
min = b(c)
end if
 
if max<b(c) then
max = b(c)
end if
next c
print "Данное число";a
print "Максимальное";max
print "Минимальное";min

Оцени полезность:

6   голосов , оценка 3.5 из 5
Похожие ответы