aya2030
幼苗
共回答了14个问题采纳率:100% 举报
dim array() ,i as integer,j as integer
dim min_i as integer,max_j as integer '用来标注数组中最小值和最大值的下标
redim array(10)=[1,2,5,12,32,56,4,54,45,58] '任意输入的十个数字
i=0
j=0
do
if array(i)8) '此循环在于取得数组中最小值的下标
print "十个数中最小的数为:" & array(min_i) '输出最小数
do
if array(j)>array(j+1) then
max_j=j
else
max_j=j+1
end
j=j+1
loop until (j>8) '此循环在于取得数组中最大值的下标
print "十个数中最大的数为:" & array(max_j) '输出最大数
因为我电脑上没有vb,没办法调试,可能会有些小小的错误,还望楼主自己调试一下,
1年前
2