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 Command1_Click() //直方图 zbx
w = max / 2 / 5 X1 = w
For i = 1 To 5 X2 = X1 + w Y2 = b(i)
Line (X1, 0)-(X2, Y2), QBColor(9), BF CurrentX = X1
CurrentY = Y2 + max * 0.1 Print a(i) X1 = X2 + w 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
- - 15 - - - 15 -
End Sub
Private Sub Command3_Click() //散点图 zbx
w = max / 2 / 5 X1 = 3 / 2 * w For i = 1 To 5 DrawWidth = 7
PSet (X1, b(i)), QBColor(9) X1 = X1 + 2 * w Next i End Sub
Private Sub Command4_Click() //折线图 Zbx
w = max / 2 / 5 X1 = 3 / 2 * w For i = 2 To 5
DrawWidth = 1.5 X2 = X1 + 2 * w
Line (X1, b(i - 1))-(X2, b(i)), QBColor(9) X1 = X1 + 2 * w Next i End Sub
Private Sub Command5_Click() //返回主系统 Form4.Hide Form2.Show End Sub
Private Sub Form_Load()
Form2.Adodc1.CommandType = 8
Form2.Adodc1.RecordSource = 学生成绩情况Form2.Adodc1.Refresh End Sub
六、总结与体会
- - 16 - - - 16 -
本次实习要求是制作一个学生成绩管理系统，技术要求不太高的应用程序，但要求对课本知识的牢固掌握，并加以熟练运用。在实习过程中遇到过一些问题，像删除时直接删除操作正确，但经过查找后若查找结果对象只有一个就会被提示error，若有多个则删除至最后一个时出现error提示，后来注销了第二个if删除中的语句后能够正确操作。在绘图时，只能够显示静态的，也经过了修改，但不太稳定，只能够在查看全部学生的基础上进行查找才能够显示查找结果的处理图像。本次实习发现了大量以往所不注意的错误，经过不懈努力，解决了部分，但仍有的现在不能解决，在接下来的时间了会查找资料，争取解决这些问题。在进行编程时，严格的按照课本要求的基本步骤，编写程序代码。在编写之前，做整体规划和详细设计很重要。只有思路清晰，设计合理可行，编码才有可能有的放矢，才能更加有效的完成任务。
刚刚开始看到实习题目时，感觉做下来并不困难，这些我们在平时的实验训练中都遇到过，只不过是把这些串起来就行了，但真正做起来才发现想得过于简单了，大错小错都接踵而至，刚修改了这边，那边运行时就也出现了问题，就这样直到时间快结束才完成了本次实习的任务。本次实习最重要的是发现了课本的重要性，对以往对课本不重视感到汗颜，知道了基础的不牢固，本次实习就是对课本进行了一次回归复习，熟练VB中一些控件的一些基本属性，如：Name属性，创建对象的名称；Caption属性，控件上文本显示的内容；Hight、Width、Top、Left属性，决定控件的大小和位置；Font属性，改变文本的外观；Enable属性，决定控件的可用性；Visiable决定控件的可见性；这都是一些最常见的基本属性，应该牢固掌握，还有在实习中遇见的一些其他属性也要熟练操作，如；Picture，BackStyle等属性。，熟练掌握一些事件如GotFocus、Change、keydown、keypress、click、dblclick、load和命令如circle、line、shell、print等的用法，而且，对窗体、文本框、标签、命令按钮、图形框、图相框、工具、图像列表、通用对话框控件、daragrid、data、报表(datareport)等的熟悉程度又有了更深一步的了解。总的来说，本次实习掌握了常用控件的使用，学会了使用通用对话框控件进行编程，掌握了创建多重窗体程序的有关技术，了解鼠标和键盘事件及事件过程的编写，综合应用了所学知识，加深对VB的理解。
本次集中实习，对我来说可以算是一次挑战，因为在理论学习中没有好好的掌握，现在要独立完成一个较复杂的程序编写，确实有一点困难。但对我来说这是一次很好的机会，同时我也很好的把握了这次机会，认真的完成了此次上机学习的任务，对自己今后在程序编写方面以及文档撰写方面相信会有很大的帮助，最后希望自己在数据结构以及计算机的其他学习方面能够得到很好的提高。巩固和加深了对数据结构的理解，提高综合运用本课程所学知识的能力。培养了我选用参考书，查阅手册及文献资料的能力。培养独立思考，深入研究，分析问题、解决问题的能力。通过实际编译系统的分析设计、编程调试，掌握应用软件的分析方法和工程设计方法。
根据我在实习中遇到得问题，我将在以后的学习过程中注意以下几点： 认真上好专业实验课，多在实践中锻炼自己； 写程序的过程中要考虑周到，严密；
在做设计的时候要有信心，有耐心，切勿浮躁；
认真的学习课本知识，掌握课本中的知识点，并在此基础上学会灵活运用； 在课余时间里多写程序，熟练掌握在调试程序的过程中所遇到的常见错误，以便能节省调试程序的时间。
七、参考文献
- - 17 - - - 17 -
1.《Visual C++实用教程》 张荣梅、梁晓林编著 中国铁道出版社 2008年9月 2.《visual basic程序设计教程》 龚沛曾、杨志强编 高等教育出版社 2007年3月 3.《Visual Basic程序设计实用教程》王卫东 主编 中国电力出版社 2008.年1月 4.《Visual Basic程序设计教程》胡声艳 李为华编 人民邮电出版社 2009年3月
- - 18 - - - 18 -