已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数),现需要计算每个学生的总分,某人编写程序如下: Option Base 1 Private Sub Command1_Click() Dim

admin2009-08-15  22

问题 已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数),现需要计算每个学生的总分,某人编写程序如下:    Option Base 1    Private Sub Command1_Click()       Dim sum As Integer       sum=0       For i=1 To 4          For j=1 To 3             sum=sum+score(i,j)          Next j          Print "第" &i& "个学生的总分是:";sum       Next i    End Sub    运行此程序时发现,除第1个人的总分计算正确外,其他人的总分都是错误的,程序需要修改。下列修改方案中正确的是(  )。

选项 A、把外层循环语句For i=1 To 4 改为 For i=1 To 3    内层循环语句For j=1 To 3改为For j=1 To 4
B、把sum=0移到For i=1 To 4和For j=1 To 3之间
C、把sum=sam+score(i,j)改为sum=sum+score(j,i)
D、把sum=sum+score(i,j)改为sam=score(i,j)

答案B

解析 本题考查的考点是有关循环求和和二维数组的。本题要对二维数组的每行进行累加求和,每计算新的一行就应该将累加和变量sum清零,否则上一行的累加计算结果将会在下一行继续累加,造成结果不正确。
转载请注明原文地址:https://jikaoti.com/ti/Ioq0FFFM
0

最新回复(0)