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,没办法调试,可能会有些小小的错误,还望楼主自己调试一下,