杭州交通信息网linux禁用usb存储设备:vb代码问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/27 22:53:19
Dim a(5, 3) As Integer
Dim r As Integer, c As Integer, s As Integer
'输入课程名
k = Array("数学", "英语", "计算机")
'输入学生成绩
a(1, 1) = 69: a(1, 2) = 89: a(1, 3) = 74
a(2, 1) = 94: a(2, 2) = 80: a(2, 3) = 90
a(3, 1) = 57: a(3, 2) = 62: a(3, 3) = 73
a(4, 1) = 98: a(4, 2) = 94: a(4, 3) = 90
a(5, 1) = 73: a(5, 2) = 76: a(5, 3) = 63
Show
Print "学生", "平均分"
Print String(20, "-") '输出20个减号“-”
For r = 1 To 5
s = 0 '累加前清0
For c = 1 To 3
s = s + a(r, c) '累加同一行数据
Next c
这段代码中的 s＝s＋a（r，c）怎么解释
Dim r As Integer, c As Integer, s As Integer
'输入课程名
k = Array("数学", "英语", "计算机")
'输入学生成绩
a(1, 1) = 69: a(1, 2) = 89: a(1, 3) = 74
a(2, 1) = 94: a(2, 2) = 80: a(2, 3) = 90
a(3, 1) = 57: a(3, 2) = 62: a(3, 3) = 73
a(4, 1) = 98: a(4, 2) = 94: a(4, 3) = 90
a(5, 1) = 73: a(5, 2) = 76: a(5, 3) = 63
Show
Print "学生", "平均分"
Print String(20, "-") '输出20个减号“-”
For r = 1 To 5
s = 0 '累加前清0
For c = 1 To 3
s = s + a(r, c) '累加同一行数据
Next c
这段代码中的 s＝s＋a（r，c）怎么解释
s是累加的值。
a(r,c)是取二维数组的第r行第c列的值。
For c = 1 To 3
s = s + a(r, c) '累加同一行数据
Next c
'就是历遍同一行的值，将之累加到s中。
s=所有A的和
s是累加成绩的，
a(r,c)是访问各科成绩。
还有，这代码不完整。