某校的学生综合成绩按如下计算：（1）学生的综合成绩包括两部分：学习成绩与德育成绩，学习成绩占65%，德育成绩占35%。
（2）学习成绩按期末成绩的平均分计算。
（3）德育成绩分三项：早操与晚自习20分，卫生与语言40分，参加活动20分，其他20分。
（4）例如：张三期末平均成绩80分，早操与晚自习满分，卫生与语言38分，参加活动15分，其他的综合成绩是80*65%+（20+38+15+20）*35%=85.95分
先编写程序如下：
（1）在本程序中输入学生的各项成绩，能计算出学生的综合成绩。并存储。
（2）可以按姓名或身份证号，调出某一学生的各项成绩与综合成绩。
（3）可以调出一个班级按综合成绩的排序结果。
（4）程序中除了成绩内容，还要有学生的姓名、性别、身份证号、联系电话、家庭住址、生日、爱好、身高、体重、特长。等信息。
要求：
（1）界面简单，操作方便。
（2）要使用自定义函数或子过程。
（3）创建一个班的数据。不少与15人。
追问：帮忙弄一个现成的谢谢了答案：Public cn As ADODB.ConnectionPublic rs As ADODB.RecordsetPrivate Sub Form_Load() Call sub_Show End SubPrivate Sub sub_Show() Dim SQL As String SQL = "select [学员记录].[编号],[学员记录].[学号],[学员记录].[姓名],[学员记录].[性别],[学员记录].[年龄],[学员记录].[易做图面貌],[系记录].[系号],[系记录].[系别]," & _ "[学员记录].[班级],[学员记录].[状态],[学员记录].[入学时间],[学员记录].[学制时间],[学员记录].[身份证号],[学员记录].[民族],[学员记录].[出生日期],[学员记录].[电子邮箱]," & _ "[学员记录].[联系电话],[学员记录].[籍贯],[学员记录].[备注] from [学员记录],[系记录]" & _ " where [学员记录].[系号]=[系记录].[系号] order by [学号]" Set rs = New ADODB.Recordset rs.Open SQL, cn, adOpenStatic, adLockOptimistic Set dtGStuInf.DataSource = rs dtGStuInf.Columns("编号").Visible = False dtGStuInf.Refresh If Not (rs.BOF And rs.EOF) Then rs.MoveFirst Showing End If End SubPrivate Sub cmdAdd_Click() Dim SQL As String SQL = "insert into [学员记录]([学号],[姓名],[性别],[年龄],[易做图面貌],[系号],[班级],[状态],[入学时间],[学制时间],[身份证号],[民族],[出生日期],[电子邮箱]," & _ "[联系电话],[籍贯],[备注]) values('" & txtNub.Text & "','" & txtName.Text & "','" & cboSex.Text & "'," & Val(txtAge.Text) & ",'" & cboFaction.Text & _ "','" & cboDepartm.Text & "','" & txtClass.Text & "','" & cboStatus.Text & "','" & dtpEnter.Value & "'," & Val(txtSchsyst.Text) & ",'" & txtId.Text & "','" & _ cboPeople.Text & "','" & dtpBirth.Value & "','" & txtEmail.Text & "','" & txtPhone.Text & "','" & txtHometown.Text & "','" & txtRemark.Text & "') ;" cn.Execute SQL cmdAdd.Caption = "添加" Call sub_ShowEnd Sub
上一个：VB编程~大虾帮帮忙急需
下一个：VB的内部参数都有什么???
