vb+ACCESS学生成绩管理系统

vb+ACCESS学生成绩管理系统

Based on your 学生成绩管理系，

联系我们需要提供问题和联系方式,

有别的要求也可以与我们联系,

有机会会帮你,

百度_Hi给我吧,

此回复针对所有来访者和需求者有效,

ES:\\E3B37001A0AF50BADFC6D337151CBF05

lz。代码如下

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