Question

vb+ACCESS学生成绩管理系统

本人没有学过VB 但是老师要求作业时这样的，自学了写的结果错误百出，还请大虾帮帮忙只要实现简单的查询，写入和删除等功能。最好是以前自己的毕业设计或者作业，我的邮箱867289282@qq.com 谢谢各位了

Answer 1

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

Answer 2

Based on your 学生成绩管理系，
联系我们需要提供问题和联系方式,
有别的要求也可以与我们联系,
有机会会帮你,
百度_Hi给我吧,
此回复针对所有来访者和需求者有效,
ES:\\E3B37001A0AF50BADFC6D337151CBF05