计算机上机实习（vb）班级：地化10902学号：200905568姓名：叶国强班级序号：33指导老师：周老师/任老师完成日期：2010-12-312目录一、实习题目----------------------------------------------------------------------03二、实习内容----------------------------------------------------------------------03三、系统功能及流程图--------------------------------------------------------------03四、程序设计步骤及结果------------------------------------------------------------03五、遇到的问题及其解决方法--------------------------------------------------------06六、小结--------------------------------------------------------------------------06七、附录（源程序）----------------------------------------------------------------063一、实习题目学生成绩管理系统二、实习内容先创建文本，再从文本中读取文件数据，利用split函数对读取的数据进行分割并赋值，利用VB的顺序、选择、循环结构编写加权平均分、排名、分数段、成绩条代码，最终将代码写在各子菜单下。三、系统功能及流程图四、程序设计步骤及结果学分文本图片（1）学分录入图片（2）4成绩文本图片（3）成绩文本录入图片（4）5加权平均分图片（5）排名图片（6）6分数段统计图片（7）成绩条图片（8）五、遇到的问题及其解决方法一、在刚开始的时候我不会将文本文档载入以及载入之后的对齐问题。二、在写代码时总会出现越界的问题，后来找了好久才知道是模版没修改数组范围后来修改数组之后这些问题就不存在了。三、在排名时不知道采用什么循环方式，通过看书之后我知道通过选择的方式最简单明了。四、在不懂怎么对科目进行编号以及选择循环的应用时，我通过查找资料以及问同学的方式知道了采用数组的方式对其进行编号。六、小结通过此次的上机实验我更清楚了计算机里的调试程序的作用效果以及程序设计时需要注意的环节，同时对顺序、选择、循环的结构有了更进一步的认识，虽然耗时比较长，但还是觉得受益良多，而且我也从中学到了很多，比如细节方7面对tab和spc的区别，而对我来说最大的收益是学会了独立思考，当我成功做出来的那一刻我感受到了前所未有的成就感。七、源程序标准模块里的代码TypexscjbxhAsStringxmAsStringcj(1To6)AsIntegeraverAsSinglemcAsIntegerEndTypeTypekechen编号AsInteger课程名AsString学分AsSinglef(1To6)AsIntegerEndTypePublicstu()AsxscjbPublicke()AskechenPublicN%,M%,Zxf%PublicFunctionspace1(ByValsssAsString)Dimx%x=InStr(sss,"")DoWhilex>0sss=Replace(sss,"","")x=InStr(sss,"")Loopspace1=sssEndFunction成绩条代码：PrivateSubcjt_Click()Picture1.Cls成绩条.txt"ForOutputAs#1Print#1,st1;"学号";"姓名";"英语";"VB";"数学";"语文";"毛概";"马哲";"加权平均分";"名次"Picture1.Printst1;"学号";Tab(7);"姓名";Tab(14);"英语";Tab(21);"VB";Tab(28);"数学";Tab(35);"语文";Tab(41);"毛概";Tab(48);"马哲";Tab(56);"加权平均分";Tab(70);"名次"Fori=1ToN8Print#1,stu(i).xh;Tab(6);stu(i).xm;Tab(13);Picture1.Printstu(i).xh;Tab(6);stu(i).xm;Tab(13);Forj=1ToMPrint#1,stu(i).cj(j);Spc(3);Picture1.Printstu(i).cj(j);Spc(3);NextjPrint#1,Space(4);stu(i).aver;Space(9);stu(i).mcPicture1.PrintSpace(4);stu(i).aver;Tab(70);stu(i).mcNextiClose#1EndSub分数段代码：PrivateSubfsdtj_Click()Picture1.ClsDimfsd(1To5)AsStringfsd(1)=">=90"fsd(2)="80-89"fsd(3)="70-79"fsd(4)="60-69"fsd(5)="<60"分数段.txt"ForOutputAs#1Fori=1ToNForj=1ToMIfstu(i).cj(j)>=90Thenke(j).f(1)=ke(j).f(1)+1ElseIfstu(i).cj(j)>=80Thenke(j).f(2)=ke(j).f(2)+1ElseIfstu(i).cj(j)>=70Thenke(j).f(3)=ke(j).f(3)+1ElseIfstu(i).cj(j)>=60Thenke(j).f(4)=ke(j).f(4)+1Elseke(j).f(5)=ke(j).f(5)+1EndIfNextjNextiPicture1.Print"范围英语VB数学语文毛概马哲"Print#1,"范围英语VB数学语文毛概马哲"9Forj=1To5Print#1,fsd(j);Spc(3);Picture1.Printfsd(j);Spc(...
