已知在4行3列的全局数组score(4，3)中存放了4个学生3门课程的考

问题单项选择题

已知在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清零，否则上一行的累加计算结果将会在下一行继续累加，造成结果不正确。