[填空題] 下列程序的功能是，單擊命令按鈕時隨機生成15個100以內的正整數(shù)，放到3×5的數(shù)組中，找出該數(shù)組中最大的元素，并指出該元素的行標和列標。請?zhí)羁铡?/p>

Option Base 1

Private Sub Command1_Click()

Dim a(1 To 3, 1 To 5) As Integer, n As Integer, m As Integer

Dim maximum As Integer, max n As Integer, max_m As Integer

Randomize

For m=1 To 3

For n = 1 To 5

a(m, n)= 【3】

Next n

Next m

maximum＝a(1, 1)

max n=1 : max m=1

For i = 1 To 3

For j=1 To 5

If 【4】 Then

maximum=a(i, j)

max m=i

max_n=j

End If

Next j

Next i

Print maximum, max m, max n

End Sub

Int(100*Rnd) a(i，0＞maximum

首先通過一個雙循環(huán)結構，生成15個隨機正整數(shù)，要求正整數(shù)在100以內。因此第一個空應該填Int(100*Rnd)。第二個雙循環(huán)結構用來尋找數(shù)組中的最大元素。從第一個元素a(1，1)開始， 如果有元素比先前的元素值大，則把該元素的值賦給maximum變量，并用m，n記錄其下標。因第二個空的條件表達式應該填a(i,j)＞maximum。