vb求最大值、最小值的行号和列号

《vb求最大值、最小值的行号和列号》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、VB求最大值、最小值的行号和列号代码：PrivateSubForm_Load()Dima()AsInteger,xAsInteger,yAsInteger,bAsInteger,cAsIntegerDimmaxAsInteger,minAsIntegerm=InputBox("请输入行数：")n=InputBox("请输入列数：")ReDima(1Tom,1Ton)AsIntegerFori=1TomForj=1Tona(i,j)=InputBox("请输入数据：")Printa(i,j)NextjPrintNextimax=a(1,1):min=a(1,1)Fo

2、ri=1TomForj=1TonIfmaxa(i,j)Thenmin=a(i,j)b=ic=jEndIfNextjNextiText1.Text=maxText2.Text=xText3.Text=yText4.Text=minText5.Text=bText6.Text=cEndSub