怎么在窗体算综合成绩

Private Sub Command1_Click()

Dim score(3, 2) As Single

Dim i As Integer, j As Integer

Dim avg(2) As Single

For i = 0 To 3

For j = 0 To 2

score(i, j) = 80

Next

Next

For j = 0 To 2

For i = 0 To 3

avg(j) = avg(j) + score(i, j)

Next

avg(j) = avg(j) / 4

Debug.Print avg(j)

Next

End Sub

比较忙，只给你个思路吧，有不明白的联系我我给你写代码，请谅解~

select * from 表名 成绩大于等于 60

输出 判断及格！

总成绩是查询学号111 有个函数成绩累加 !

有问题站内短信联系我就可以！