VB实习报告.docx
《VB实习报告.docx》由会员分享，可在线阅读，更多相关《VB实习报告.docx（21页珍藏版）》请在冰豆网上搜索。
VB实习报告
计算机上机实习（VB）
专业班级：
化工10904
学生学号：
*********
学生姓名：
申慷尼
班级序号：
17
指导老师：
李老师、江老师
完成时间：
2010.12.31
目录
1.设计内容2
2.设计分析与说明3
3.代码4
3.1部分过程4
3.2部分函数6
3.3重要函数分析6
4.出现问题8
5.解决方法9
6.改进意见10
7.实习总结11
7.1实习意见11
7.2.实习收获11
7.3思考进步12
8.附录14
8.1原始代码14
8.2运行结果21
1.设计内容
一、用记事本新建一个文本文件，将本班的M名学生在本学期的N门考试课成绩（要求用假象份数，并要求将自己的每门课的分数定在96分以上，放在第一排；而将别人的大多数课程分数都定在96分以下）输入到这个文件中，建议案如下形式存放（注：
20≤M≤50,5≤N≤8，下文以M=4，N=3为例）：
学号姓名线性代数VB概率统计
01申慷尼999898
02宋佳919183
03聂虎932994
04周薇957994
二、讲本学期的N门课程及学分（16学时为1学分）输入到另一个数据文件（文件类型同上题）中，建议如下形式存放：
编号课程名称课程学分
1线性代数4.0
2概率统计4.0
3VB4.5
三、请编写一个简单的学生成绩管理程序，要求完成以下功能：
1、根据以上两文件内容分别计算每个学生N门课的加权平均分（保留2位小数，4舍5入），按平均分排列名次，平均分相同则名次并列，如第1、2、2、4、5、5、7…名。
用VB创建一个数据文件，存放班级的成绩表，建议按一下形式存放。
学号姓名线性代数VB概率统计平均分名次
01申慷尼999898100.951
02宋佳91918392.182
03聂虎93299582.356
2、分别统计全班每门课的平均分，并计算各分数段（60分以下：
60～69；70～79；80～89；90分以上）的学生人数，用VB创建一个新的数据文件，在该文件中存放数据的格式如下：
范围线性代数VB…………
≥9012…………
80～8923…………
………………………………………
3、打印每名学生成绩条（并将结果存放到用VB创建的一个新的数据的文件中）
4、打印所有存在不及格课程学生的名单（含学号、不及格课程名称、课程的学分及成绩）。
5、打印优等生名单（学号、N门课成绩、平均分、名次）
优等生条件：
（1）、平均分≥90分
（2）、名次在本班位于前三名
（3）、平均分≥85分，并且有2门课的成绩都≥95分
选做内容：
打印每门课成绩分布图
2.设计分析与说明
本次VB课程设计实习内容简单，思路清晰，只需按照步骤，一步一步，即可完成
一、新建文本文档，按要求输入数据
二、定义类型、变量、数组、函数等
三、由于原始文件相邻两列长短不一，因此在调用split函数前需要定义一个space1函数，消除空格。
可利用将2个空格变为1个空格，然后循环的思想来完成操作。
四、加权可以通过数组完成，只用了解其对应数组及应用公式
五、保留两位小数可用到函数：
int（）或者round（）
六、排名可以运用到排序的模型，详情见书P98~99
七、计算各分数段实际运用到了选择结构的考点if….then…else,selectcase可解决问题。
八、打印成绩条，不及格名单，优等生都是用到了选择结构，思路同六，故此处不做过多分析。
九、利用菜单编辑器编辑界面效果，建立主菜单和子菜单，需要注意的是标题用中文，名称简写但不要有重复。
3.代码
3.1部分过程
一、模块
Typexscjb'定义新类型
xhAsString
xmAsString
cj（1To6）AsInteger
averAsSingle
mcAsInteger
EndType
Typekechen
编号AsInteger
课程名AsString
学分AsSingle
EndType
Publicstu（）Asxscjb
Publicke（）Askechen
PublicN%,M%,Zxf%'定义总人数，课程数,总学分类型
PublicstrAsString
PubliccountAsInteger
二、窗体过程
PrivateSubForm_Load（）
Form1.Height=8200'设置窗体大小
Form1.Width=10000
Dimst1$（）,str1$
OpenApp.Path+"\成绩.txt"ForInputAs#1'导入成绩
OpenApp.Path+"\课程学分.txt"ForInputAs#2'导入课程学分
N=0:
M=0:
Zxf=0
LineInput#2,str1
DoWhileNotEOF
（2）
M=M+1
ReDimPreserveke（M）
LineInput#2,str1
str1=Trim（str1）
str1=space1（str1）
st1=Split（str1,""）
Printst1（0）,st1
（1）
ke（M）.编号=st1（0）
ke（M）.课程名=st1
（1）
ke（M）.学分=st1
（2）
Zxf=Zxf+ke（M）.学分
Loop
LineInput#1,str1
DoWhileNotEOF
（1）
N=N+1
ReDimPreservestu（N）
LineInput#1,str1
str1=Trim（str1）
str1=space1（str1）
st1=Split（str1,""）
Printst1（0）,st1
（1）
stu（N）.xh=st1（0）
stu（N）.xm=st1
（1）
stu（N）.cj
（1）=st1
（2）
stu（N）.cj
（2）=st1（3）
stu（N）.cj（3）=st1（4）
stu（N）.cj（4）=st1（5）
stu（N）.cj（5）=st1（6）
Loop
Dimi%'定义加权平均分
Fori=1ToN
stu（i）.aver=0
Forj=1ToM
stu（i）.aver=stu（i）.aver+stu（i）.cj（j）*ke（j）.学分
Nextj
stu（i）.aver=Round（stu（i）.aver/Zxf,2）
Nexti
Fori=0ToUBound（stu）'排序
stu（i）.mc=1
Forj=0ToUBound（stu）
Ifstu（i）.averstu（i）.mc=stu（i）.mc+1
EndIf
Nextj
Nexti
EndSub
3.2部分函数
PublicFunctionspace1（ByValsssAsString）
Dimx%
x=InStr（sss,""）
DoWhilex>0
sss=Replace（sss,"",""）
x=InStr（sss,""）
Loop
space1=sss
EndFunction
3.3重要函数分析
一、加权平均分的处理
Dimi%'定义整形变量
Fori=1ToN'FOR语句循环
stu（i）.aver=0'给定初值
Forj=1ToM'循环的嵌套
stu（i）.aver=stu（i）.aver+stu（i）.cj（j）*ke（j）.学分'公式：
成绩*对应课程学分
Nextj
stu（i）.aver=Round（stu（i）.aver/Zxf,2）'四舍五入，利用round（）函数
NextiCls
Print
Print"学号";Tab（16）;"姓名";Tab（35）;"加权平均分"
Fori=1ToN
Printstu（i）.xh;Tab（16）;stu（i）.xm;Tab（36）;stu（i）.aver'打印输出
Nexti
二、排序的处理
Fori=0ToUBound（stu）'给定i的范围
stu（i）.mc=1'赋给名次初值
Forj=0ToUBound（stu）'循环的嵌套
Ifstu（i）.averstu（i）.mc=stu（i）.mc+1'原名次+1
EndIf'结束IF
Nextj
Nexti
三、输出优等生的处理
DimflagAsBoolean,s%:
s=0
Cls
Print'打印优等生
Print"学号";Tab（8）;"姓名";Tab（16）;"线性代数";Tab（28）;"概率统计";Tab（41）;"VB";Tab（48）;"专业概论";Tab（59）;"大学物理";Tab（71）;"加权平均分";Tab（84）;"名次"
Fori=1ToN
Forj=1ToM
Ifstu（i）.cj（j）>=95Andstu（i）.aver>=85Thens=s+1'满足同时有2门大于95分
Nextj
flag=s>=2Andstu（i）.aver>=90Andstu（i）.mc<=3'用AND并列，同时满足三个条件
IfflagThen'输出，确定间距
Printstu（i）.xh;Tab（8）;stu（i）.xm;Tab（18）;stu（i）.cj
（1）;Tab（30）;stu（i）.cj
（2）;Tab（40）;stu（i）.cj（3）;Tab（50）;stu（i）.cj（4）;Tab（61）;stu（i）.cj（5）;Tab（72）;stu（i）.aver;Tab（84）;stu（i）.mc
EndIf
s=0
Nexti
4.出现问题
一、越界问题
二、数据无法导入问题
三、变量定义问题
四、数组的建立问题
五、排序问题
六、输出时对齐问题
七、其他控件的导出使用问题
5.解决方法
一、越界问题
建立数据文件时，有空格，或者使用了tab键，或者多了一排。
二、数据无法导入问题
多是由于路径定义时不对，还有文件名不匹配，所以找不到文件。
三、变量定义问题
定义的变量一定和后面过程中使用的变量名要一致，否则就总会出现未定义的变量问题。
四、数组的建立问题
数组也要注意数组名的问题，同时还要注意数组的上下界。
五、排序问题
开始排序时，一直没办法和题目的一样，总是名次那一栏是按顺序排下来，后来调整了表达方式和数组的界之后才解决的问题。
六、输出时对齐问题
这个东西如果不理解代码中的意思，要调整很半天啊才能调整齐，有时调了半天，动都不动，其实只需要理解spc（）,tab（）的含义既可以轻松解决问题了。
七、其他控件的导出使用问题
最开始，我想在导入文件时出现对话框那种东西，后来问老师后，是需要一个DialogCommandControl的控件，装上去，就可以达到效果了，本实习中，我没有用到，但是却在其他程序中试过可行。
6.改进意见
一、界面丰富化
由于我们是初学者，编的东西很简单，所以界面也很单调，其实我们还可以运用后面几章所学的知识，加入一些图形进去，使界面更加形象，丰富。
二、内容简单化
在编写的时候，发现很多代码写的都是很多余的，有的地方可以省，但是，自己的思路又一下子不能达到那种写之前就能发现问题的地步，所以导致写了一些其实没用到的代码，这也给我们以后写代码时提出了方向与思路。
三、步骤条理化
很明显的一点，在利用过程编写程序代码的时候，虽然最后都能够编写完成，但是，从上往下看的时候，步骤很凌乱，有时候过程名没取好的时候，要从菜单栏过来寻找的时候就比较麻烦，特别是当编写完后，再更改了菜单名，所以，如果按照菜单每一项的顺序来编写，思路，思路条理就很清晰很多，别人在看的时候也会轻松很多。
7.实习总结
7.1实习意见
一、学校电脑病毒太多了，有时候做着做着就死机了。
二、召唤老师的速度太慢了，半天都看不到。
三、机房环境有待改善。
7.2实习收获
经过这次的实习，收获其实是相当大的，正所谓，时间是检验真理的唯一标准，这句话一点都不假。
平时上课，老师都是纯理论知识的讲解，下来了之后，没有电脑的条件下，根本不可能有实践的机会，再说到那个平时的上机课，效果其实也不是很大，真正有用的是这次的强化实践，上机实习，这不仅是一次全面了解VB的机会，也是一次复习的机会，借这个机会，我又一次的了解了VB的许多方方面面，并且是更加的深入了，对里面的具体操作也更加熟悉，几种常见的控件，几个常用的函数，几个经常犯得小错误，当经过了一步步的操作之后，就会发现自己的很多问题，运行的时候，如果出现不顺畅，肯定就是里面的小地方没注意到，然后自己就得马上去寻找错误，先自己发现，自己思考，自己探究，如果自己真的解决不了，就会举手问老师该如何操作，如何解决，就是通过这样的方式，让自己对VB更加了解。
此外，通过这次的上机实践，还是一个很好的复习的机会，书上的点老师讲一遍，自己看一遍，不懂得还是不不懂，有很多点知道是这样，但不知道为什么是这样，有的问题，觉得自己的思路应该可以解决问题，但是没有通过运行，就不会发现其实还要东西没定义，有东西漏掉了，有方法选错了，等等。
这一切的一切，都让自己的VB知识更加牢固，以后如果逾到同样的问题，就可以很轻松的解决了。
最后，我只想说，因为有这么个机会，因为抓住机会练习，让我有了一个质的提高，质的飞跃，也希望自己期末的成绩能考的更好一点。
7.3思考进步
其实，这一部分是我最喜欢的一部分，只有思考，才能有进步。
这学期，这些年，我也是在这样的一个习惯中不断的成长与进步的。
我想，老师设立这样一个上机实践的目的，肯定不仅仅为了让大家去应付完成学分，填补大学“空虚”的时间，其真实的目的，我想应该是让我们从实习中有思考，有发现，有进步，有成长。
在这么一整个实习过程中最让我收获的，可能是以下几点：
一、细心
可能我们也发现了，很多时候，我们都不能顺利的运行程序，总是这里那里的一点点小错误，让我们的程序无法得运行下去。
如果我们能思维缜密，发现没一点的小细节，并且注意他们，我们可能就会节省出很多的时间避免我们去找那些很小的错误。
二、合理利用时间，多向老师学习
最开始，我什么都不会，只会前面很简单的步骤，好不容易把数据导入进去了，排版还很难看，就这里改一点那里改一点，所以浪费了很多时间，其实，只用到老师那里学一点，看老师教别的同学操作那么一下，就会达到事半功倍的地步，会节省出很多的时间，同时自己也会长进很多。
三、主动思考，主动提问
一个问题摆在我们面前的时候，不是让我们等着，或者随便改这里改那里就行了的，我们应该去探寻代码中的细微含义，可以深入到每一个标点符号，都会有自己特定的含义，这个问题按代码上可以这样解决，那能不能有其他的方法，怎样去做能使程序更加简单明了，结构更清晰，让别人理解起来更方便。
如果自己实在解决不了的问题，就要及时找老师寻求帮助，因为如果自己经过思考都没想出来，说明在这个知识点上，自己还有缺口，没有老师来弥补指导一下，可能这个坎很难靠自己的力量越过去，所以合理借用老师的力量，主动提问寻求解决方案，也是让人提高的一个切实可行的办法。
以上即是我的一点点思考，不是很深入，但是却是自己付出的努力，努力想让自己变得更专业，变得更强，只要是能让自己成长，能让自己进步，能让自己超越别人的思考，都是好的思考！
8.附录
8.1原始代码
Typexscjb
xhAsString
xmAsString
cj（1To6）AsInteger
averAsSingle
mcAsInteger
EndType
Typekechen
编号AsInteger
课程名AsString
学分AsSingle
EndType
Publicstu（）Asxscjb
Publicke（）Askechen
PublicN%,M%,Zxf%'总人数，课程数,总学分
PublicstrAsString
PubliccountAsInteger
PublicFunctionspace1（ByValsssAsString）
Dimx%
x=InStr（sss,""）
DoWhilex>0
sss=Replace（sss,"",""）
x=InStr（sss,""）
Loop
space1=sss
EndFunction
PrivateSubForm_Load（）
Form1.Height=8200'设置窗体大小
Form1.Width=10000
Dimst1$（）,str1$
OpenApp.Path+"\成绩.txt"ForInputAs#1'导入成绩
OpenApp.Path+"\课程学分.txt"ForInputAs#2'导入课程学分
N=0:
M=0:
Zxf=0
LineInput#2,str1
DoWhileNotEOF
（2）
M=M+1
ReDimPreserveke（M）
LineInput#2,str1
str1=Trim（str1）
str1=space1（str1）
st1=Split（str1,""）
Printst1（0）,st1
（1）
ke（M）.编号=st1（0）
ke（M）.课程名=st1
（1）
ke（M）.学分=st1
（2）
Zxf=Zxf+ke（M）.学分
Loop
LineInput#1,str1
DoWhileNotEOF
（1）
N=N+1
ReDimPreservestu（N）
LineInput#1,str1
str1=Trim（str1）
str1=space1（str1）
st1=Split（str1,""）
Printst1（0）,st1
（1）
stu（N）.xh=st1（0）
stu（N）.xm=st1
（1）
stu（N）.cj
（1）=st1
（2）
stu（N）.cj
（2）=st1（3）
stu（N）.cj（3）=st1（4）
stu（N）.cj（4）=st1（5）
stu（N）.cj（5）=st1（6）
Loop
Dimi%'计算加权平均分
Fori=1ToN
stu（i）.aver=0
Forj=1ToM
stu（i）.aver=stu（i）.aver+stu（i）.cj（j）*ke（j）.学分
Nextj
stu（i）.aver=Round（stu（i）.aver/Zxf,2）
Nexti
Fori=0ToUBound（stu）'排序
stu（i）.mc=1
Forj=0ToUBound（stu）
Ifstu（i）.averstu（i）.mc=stu（i）.mc+1
EndIf
Nextj
Nexti
EndSub
PrivateSubchengji_Click（）'输出成绩单
Dimi%
Cls
Print
Print"学号姓名线性代数概率统计VB专业概论大学物理"
Fori=1ToN
Printstu（i）.xh;Tab（7）;stu（i）.xm;Tab（18）;stu（i）.cj
（1）;
PrintSpc（8）;stu（i）.cj
（2）;Spc（5）;stu（i）.cj（3）;Spc（4）;stu（i）.cj（4）;
PrintSpc（7）;stu（i）.cj（5）;Spc（5）
Nexti
EndSub
PrivateSubkc_Click（）
Dimi%
Cls
Print'输出课程学分
Print"编号课程名学分"
Fori=1ToM
Printke（i）.编号;Tab（7）;ke（i）.课程名;Tab（18）;ke（i）.学分
Nexti
EndSub
PrivateSubjqpjf_Click（）'输出加权平均分
Cls
Print
Print"学号";Tab（16）;"姓名";Tab（35）;"加权平均分"
Fori=1ToN
Printstu（i）.xh;Tab（16）;stu（i）.xm;Tab（36）;stu（i）.aver
Nexti
EndSub
PrivateSubPrint59_Click（）'打印不及格名单
Cls
Print
Print"学号";Tab（10）;"姓名";Tab（20）;"课程";Tab（30）;"学分";Tab（40）;"成绩"
Fori=1ToN
Forj=1ToM
Ifstu（i）.cj（j）<=59Then
Printstu（i）.xh;Tab（10）;stu（i）.xm;Tab（20）;ke（j）.课程名;Tab（30）;ke（j）.学分;Tab（40）;stu（i）.cj（j）
EndIf
Nextj
Nexti
EndSub
PrivateSubcjpm_Click（）'打印成绩排名
Dimi%
Cls
Print
Print"学号姓名线性代数概率统计VB专业概论大学物理加权平均分名次"
Fori=1ToN
Printstu（i）.xh;Tab（8）;stu（i）.xm;Tab（19）;stu（i）.cj
（1）;
PrintTab（31）;stu（i）.cj
（2）;Tab（40）;stu（i）.cj（3）;Tab（48）;s
升级会员 