作业帮 > 综合 > 作业

用VB编写一个求3个数中最大值MAX和最小值MIN的过程,然后用这个过程分别求3个数5个数7个数中的最大值最小值

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/10 12:03:20
用VB编写一个求3个数中最大值MAX和最小值MIN的过程,然后用这个过程分别求3个数5个数7个数中的最大值最小值
要2个不一样的程序,完整具体点的.
用VB编写一个求3个数中最大值MAX和最小值MIN的过程,然后用这个过程分别求3个数5个数7个数中的最大值最小值
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)