Question

简单VB设计

一、题目：教师进修培训管理系统
二、功能要求：
对学院教师进修培训情况进行管理，汇报表参照附件。主要功能如下：
教师：
1、每位教师登陆后，可登记自己的进修培训情况，包括个人基本信息、培训基本信息、学习内容、收获和体会等
2、可查看自己每年度的培训息，并可打印
管理人员：
1、可查看每位教师的培训进修情况，并可打印
2、可按教师姓名、系别、职称、性别等查看教师培训信息
3、可按系别、职称、时间等统计教师进修培训情况，并打印报表。
三、要求
1、利用菜单、工具栏和控件完成设计。
2、使用数据库保存教师进修培训等信息
3、界面友好（良好的人机交互），程序加必要的注释。
4、建立一个登录界面，输入用户名和密码。登录后进入系统。密码输入有三次机会，如果三次密码都不正确将直接退出程序。
很简单的，界面不需要精美。做好以后发邮箱214950981@qq.com 100附加分奉上

Answer 1

分太低，不过还是给你做了
Option Base 1
Private Type Stu
StuName As String
StuEnglish As String
StuMath As String
StuChem As String
StuPhys As String
End Type
Dim StuFile() As Stu
Dim Counter As Integer

Private Sub Command1_Click()
Counter = Counter + 1
ReDim Preserve StuFile(Counter)
StuFile(Counter).StuName = InputBox("请输入学生成绩")
StuFile(Counter).StuEnglish = InputBox("请输入英语成绩")
StuFile(Counter).StuMath = InputBox("请输入数学成绩")
StuFile(Counter).StuChem = InputBox("请输入化学成绩")
StuFile(Counter).StuPhys = InputBox("请输入物理成绩")
Beep
MsgBox "成绩存入成功！"
End Sub

Private Sub Command2_Click()
Dim SearchName As String
SearchName = InputBox("请输入要查询的学生姓名")
For i = 1 To Counter
'——————————————————————————————
If StuFile(i).StuName = SearchName Then
Picture1.Print "学生姓名："; StuFile(i).StuName
Picture1.Print "英语成绩："; StuFile(i).StuEnglish
Picture1.Print "数学成绩："; StuFile(i).StuMath
Picture1.Print "化学成绩："; StuFile(i).StuChem
Picture1.Print "物理成绩："; StuFile(i).StuPhys
x = InputBox("是否继续查询？（Y/N）")
If UCase(x) = "Y" Then
Call Command2_Click
Else
Exit Sub
End If
End If
'——————————————————————————————
Next i
End Sub

Private Sub Command3_Click()
Picture1.Cls
End Sub

Private Sub Form_Load()
Command1.Caption = "输入成绩"
Command2.Caption = "查询成绩"
Command3.Caption = "清除"
End Sub

追问

和题意明显不符哦。。。。