VB编程里面连接数据库以后怎么求平均成绩和不及格学生成绩统计?求代码

Question

如题所述

Answer 1

代码如下

Option Explicit

Dim rs As Integer

Dim cj As Long

Dim zcj As Integer

Dim pjz As Integer

Dim bjg As Integer

Dim jg As Integer

Private Sub Command1_Click()

Dim i As Integer

rs = InputBox("请问你要输入几个人的成绩?", "输入人数")

For i = 1 To rs

cj = InputBox("输入成绩")

If cj >= 60 Then jg = jg + 1

If cj < 60 Then bjg = bjg + 1

zcj = zcj + cj

Next i

Label1.Caption = "及格人数为：" & jg

Label2.Caption = "不及格人数为：" & bjg

Label3.Caption = "平均分" & zcj / rs

End Sub