dim i as integer ,max as integer ,min as integer,pm as integer,pn as integer，arr(9) as integerfor i=0 to 9arr(i)=int(rnd()*100)//这里生成的是100以内的整数max=iif(arr(i)>max,arr(i),max)pm=iff(max=arr(i),i,pm)min=iif(arr(i)<min,arr(i),min) pn=iif(min=arr(i),i,pn)nextmsgbox "最大的数是：" & max & "，是第" & pm & "个数；" & vbcrlf & "最小的数是...
|
