用VB编写一个求3个数中最大值MAX和最小值MIN的过程,然后用这个过程分别求3个数5个数7个数中的最大值最小值
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/10 12:03:20
用VB编写一个求3个数中最大值MAX和最小值MIN的过程,然后用这个过程分别求3个数5个数7个数中的最大值最小值
要2个不一样的程序,完整具体点的.
要2个不一样的程序,完整具体点的.
1、冒泡法排序后输出最大值和最小值
dim ss
num=val(inputbox ("输入要求的数的个数"))
dim a(1 to num)
for i=1 to num
a(i)=texti.text
next
for m=num to 2
for n=1 to m-1
if a(n)>=a(n+1) then
ss=a(n+1)
a(n+1)=a(n)
a(n)=ss
end if
next
next
print "MAX:" & a(num)
print "MIN:" & a(1)
2、直接求最大值和最小值
dim ss
num=val(inputbox ("输入要求的数的个数"))
dim a(1 to num)
for i=1 to num
a(i)=texti.text
next
for i=1 to num-1
if a(i)>=a(i+1) then
ss=a(i+1)
a(i+1)=a(i)
a(i)=ss
end if
next
print "MIN:" & a(1)
for i=1 to num-1
if a(i)
dim ss
num=val(inputbox ("输入要求的数的个数"))
dim a(1 to num)
for i=1 to num
a(i)=texti.text
next
for m=num to 2
for n=1 to m-1
if a(n)>=a(n+1) then
ss=a(n+1)
a(n+1)=a(n)
a(n)=ss
end if
next
next
print "MAX:" & a(num)
print "MIN:" & a(1)
2、直接求最大值和最小值
dim ss
num=val(inputbox ("输入要求的数的个数"))
dim a(1 to num)
for i=1 to num
a(i)=texti.text
next
for i=1 to num-1
if a(i)>=a(i+1) then
ss=a(i+1)
a(i+1)=a(i)
a(i)=ss
end if
next
print "MIN:" & a(1)
for i=1 to num-1
if a(i)
用VB编写一个求3个数中最大值MAX和最小值MIN的过程,然后用这个过程分别求3个数5个数7个数中的最大值最小值
编写一个求3个数中最大值和最小值的VB程序,然后用这个过程分别求5个数和7个数的最大最小值.
编写一个求2个数中最大值Max的函数,然后用这个函数求4个数的最大值
求n个数的最大值和最小值用Pascal
matlab中输入20个数,求最大值和最小值,用循环语句和调用MAX函数和MIN函数来实现
vfp中求N个数的最大值和最小值
用数组求10个数中的最大值、最小值和平均值.
(很急的)编写一个三个数中最大值max和最小值min的过程
求c语言程序:用一个函数求N个数的最大值和最小值.
编程求3个数的最大值与最小值,并求最大值与最小值之差
用C语言编写:求元素个数为 10 的一维数组元素中的最大值、最小值和平均值.
求n个数的最大值和最小值(pascal)