题目

求矩阵列和的最大值，算法如下：数字矩阵有n * n(n不大于10)个数组元素，数组元素为随机生成任意的两位正整数，按n行n列进行排列，其中第一行的数据依次为a(1)~a(n)，第二行的数据依次为a(n+1)~a(2* n……。例如当n=5时，随机生成25个数组元素，并排列成5 *5的矩阵，第一行的数据为a(1)~a(5)，第二行的数据依a(6)~a(10) …….。现要求按列进行求和，并找出最大值的列。小江编写了一个VB程序，功能如下：在文本框Text1中输入n的值，单击“计算”按钮Command1后，在列表框List1中显示随机生成的n *n的数字矩阵，同时在列表框List2中显示每一列数据的求和结果、最大值及对应的列号，程序运行界面如图所示。 实现上述功能的VB程序如下，请回答下列问题： （1） 语句List1．AddItem s中的“AddItem"属于(单选， 填字母：A .对象名/B .属性名/C .方法名/D .过程名)。 （2） 请在划线处填写合适的代码。 Private Sub Command1_ Click( )     Const Maxn= 100     Dim i As Integer, j As Integer, c As Integer     Dim max As Integer, sum As Integer, n As Integer     Dim a(1 To Maxn) As Integer, s As String     n= Val(Text1. Text)     Randomize     For i=1 To n* n         a(i)=         s=s+Str(a(i))         If i Mod n=0 Then             List1. AddItem s             s=“”         End If     Next i     For i=1 To n         sum= 0         For j=             sum=sum+a(j)         Next j         List2. AddItem "第" + Str(i) +"列的和是："+Str(sum)         If sum > max Then max=sum ：       '改错     Next i     List2. AddItem "其中第" + Str(c)+ "列和最大,值为："+Str(max) End Sub （3） 程序中加框处代码有错，请改正。 答案： 【1】C 【1】Int(Rnd * 90)+10【2】i Ton * nStep n或i Toi+(n-1) * n Step n c=i

查看本题答案和解析