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

8 查阅

[填空题] 下列程序的功能是，单击命令按钮时随机生成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 3For 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 3For j=1 To 5 If 【4】 Then maximum=a(i, j) max m=i max_n=j End IfNext 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。

计算机考试