Question

定义一个二维数组，该数组的值利用inputbox函数输入，并在窗体上输出该数组、数组中的最大值

定义一个二维数组，该数组的值利用inputbox函数输入，并在窗体上输出该数组、数组中的最大值及其位置,用vb

Answer 1

private sub form_click()
dim a(3,4) as integer,i as integer,j as integer
dim max(3) as integer
for i=1 to 3
for j=1 to 4
a(i,j)=val(inputbox(“a(”&i&“,”&j&“)=”,“输入”,i))
next
next
max(1)=a(1,1)
max(2)=1
max(3)=1
for i=1 to 3
for j=1 to 4
print a(i,j),
if a(i,j)>max(0) then
max(0)=a(i,j)
max(1)=i
max(2)=j
next
print
next
print “The max is ”;max(0)
print “最大值位于第”& max(1) &“行，第”& max(2) & “列”
end sub