[填空题] 下列程序的功能是，单击命令按钮时随机生成15个100以内的正整数，放到3×5的数组中，找出该数组中最大的元素，并指出该元素的行标和列标。请填空。Option Base 1Priva

[填空题] 下列程序的功能是，单击命令按钮时随机生成15个100以内的正整数，放到3×5的数组中，找出该数组中最大的元素，并指出该元素的行标和列标。请填空。 Option Base 1 Priva

[填空题] 下列程序的功能是，单击命令按钮时随机生成15个100以内的正整数，放到3×5的数组中，找出该数组中最大的元素，并指出该元素的行标和列标。请填空。

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

参考解析：

首先通过一个双循环结构，生成15个随机正整数，要求正整数在100以内。因此第一个空应该填Int(100*Rnd)。第二个双循环结构用来寻找数组中的最大元素。从第一个元素a(1，1)开始， 如果有元素比先前的元素值大，则把该元素的值赋给maximum变量，并用m，n记录其下标。因第二个空的条件表达式应该填a(i,j)＞maximum。