Question

vbs实现n*n二维数组大小值位置

Answer 1

dim a（2，2）
dim i，j
dim maxi,maxj,mini,minj
dim max,min
randomize
for i=0 to ubound(2) step 1
for j=0 to ubound(2) step 1
if max<= a(i,j) then max=a(i,j) and maxj=j and maxi=i
if min >=a(i,j) then min=a(i,j) and mini=i and miinj=j
next j

next i
================
输出的部分我就省略了