設(shè)有一個5×5的方陣,其中的元素是隨機產(chǎn)生的10~99兩位整數(shù).求出主對角線上元素之和、方陣中最大的元素.
Option Explicit :Option Base 1
Dim a(5,5) As Integer
Private Sub Form_Load()
Dim i As Integer,j As Integer
Dim s As Integer,max As Integer,p As Integer,q As Integer
Show
Randomize
For i = 1 To 5
For j = 1 To 5
a(i,j) = _____【3】_____
Next j
Next i
_____【4】______ ' 假設(shè)第一個元素就是最大的
p = 1:q = 1
For i = 1 To 5
For j = 1 To 5
If ____【5】_____ Then max = a(i,j):p = i:q = j
If i = j Then s = ____【6】_____ ' 主對角線上的元素相加
Next j
Next i
Print “主對角線元素之和是：” ; s
Print “方陣中最大的元素是” & "a(" & p & "," & q & ")=" & a(p,q)
End Sub