[填空題] 下列程序的功能是，單擊命令按鈕時(shí)隨機(jī)生成15個(gè)100以內(nèi)的正整數(shù)，放到3×5的數(shù)組中，找出該數(shù)組中最大的元素，并指出該元素的行標(biāo)和列標(biāo)。請(qǐng)?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

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