If b(i) > max Then max = b(i) Next i
Scale (-0.1, max * 1.2)-(max * 1.2, -max * 0.1)
Line (0, 0)-(max * 1.2, 0): Line (0, max * 1.2)-(0, 0) CurrentX = -0.2: CurrentY = -0.1 Print 成绩分数段：For i = 1 To 5
Print 人数：Next i End Sub
饼图
Private Sub Command2_Click() zbx
X = Abs(Me.ScaleHeight / 2) r = max / 4 Sum = 0
For i = 1 To 5
Sum = Sum + b(i) Next i
Form4.FillStyle = 0 a1 = 0
For i = 1 To 5
a2 = a1 + 2 * 3.14159 * b(i) / Sum Randomize
FillColor = QBColor(Rnd * 15) Circle (X, X), r, , -a1, -a2
CurrentX = X + r * Cos((a2 + a1) / 3) CurrentY = X + r * Sin((a2 - a1) / 3)
Print Format(b(i) / Sum * 100, a1 = a2 Next i End Sub
查看全部
Private Sub search_all() Adodc1.CommandType = 2
Adodc1.RecordSource = 学生成绩情况Adodc1.Refresh
DataGrid1.Visible = True End Sub
- - 5 - - - 5 -
四、调试、排错、测试、试运行过程
1 登录界面 只有三次机会，若输入的数据与设定的相同（密码账号均为
090556）点击登录后进入主界面。
图一
2主界面 通过菜单栏和工具条进行操作
- - 6 - - - 6 -
图二
查找 按课程名查找及查找结果。
图三
- - 7 - - - 7 -
图四
程序运行后，发现删除与查找之间存在错误，查找后得到的信息竟不能够删除，只能在主界面上直接删除，最后修改了删除代码中的if语句，运行正确。
直方图
图五
报表图
- - 8 - - - 8 -
图六
查找时输入信息有误时显示界面：
图七
点击确定后，回到主界面。
五、 源程序完整或主要代码
- - 9 - - - 9 -