vb输入n个数,求最大值和最小值
答案:1 悬赏:20 手机版
解决时间 2021-04-26 22:13
- 提问者网友：沉默的哀伤
- 2021-04-26 02:29
vb输入n个数,求最大值和最小值
最佳答案
- 五星知识达人网友：一袍清酒付
- 2021-04-26 03:17
dim a(),cont as integer,i as integer,max1 as string ,min1 as string
cont = val(inputbox("n=")
if cont>=1 then
redim a(cont-1)
for i=0 to cont-1
a(i)=val(inputbox("请输入第" & i & "个数"))
if max1="" then max1=a(i)
if min1="" then min1=a(i)
if max1<>"" then max1=iif(val(max1) if min1<>"" then min1=iif(val(min1)>a(i),a(i),min1)
next
end if
print "max:" & max1 '最大
print "min:" & min1'最小
'所有的数据存在数组 a() 里面
cont = val(inputbox("n=")
if cont>=1 then
redim a(cont-1)
for i=0 to cont-1
a(i)=val(inputbox("请输入第" & i & "个数"))
if max1="" then max1=a(i)
if min1="" then min1=a(i)
if max1<>"" then max1=iif(val(max1) if min1<>"" then min1=iif(val(min1)>a(i),a(i),min1)
next
end if
print "max:" & max1 '最大
print "min:" & min1'最小
'所有的数据存在数组 a() 里面
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯