Sub？測試()
暗淡？arrNum(4，4)?作為？整數？定義壹個5*5的數組
暗淡？麥克斯。定義最大值
暗淡？sum1，？“Sum2”定義了正負傾斜角度的總和。
生成壹個5*5的二維數組
為了什麽？我？=?0?去哪？四
為了什麽？j？=?0?去哪？四
arrNum(我，j)？=?Rnd()？*?' 100 '生成壹個1~100的隨機數。
下壹個？j
下壹個？我
求數組的最大值
麥克斯。=?arrNum(0，0)
為了什麽？我？=?0?去哪？四
為了什麽？j？=?0?去哪？四
如果？arrNum(我，j)？& gt？麥克斯。然後呢？麥克斯。=?arrNum(我，j)？只要當前元素大於max，就將其保存在max中。
下壹個？j
下壹個？我
求對角線的和
為了什麽？我？=?0?去哪？四
sum1？=?sum1？+?arrNum(我，我)
sum2？=?sum2？+?arrNum(我，4?-?我)
下壹個？我
輸出結果
暗淡？arrStr？maxStr，？sum1Str，？sum2Str？作為？線
arrStr？=?數組元素如下？& amp？Chr(10)？& amp？人權中心(13)
為了什麽？我？=?0?去哪？四
為了什麽？j？=?0?去哪？四
arrStr？=?arrStr？& amp？arrNum(我，j)？& amp？"?"
下壹個？j
arrStr？=?arrStr？& amp？Chr(10)？& amp？人權中心(13)
下壹個？我
maxStr？=?"數組的最大值是:？"？& amp？麥克斯。& amp？Chr(10)？& amp？人權中心(13)
sum1Str？=?"對角線元素的和是:？"？& amp？sum1？& amp？Chr(10)？& amp？人權中心(13)
sum2Str？=?"反斜面元素的總和是:？"？& amp？sum2？& amp？Chr(10)？& amp？人權中心(13)
MsgBox？arrStr？& amp？maxStr？& amp？sum1Str？& amp？sum2Str
結束？潛水艇