长江大学VB上机实习报告汇编.docx
- 文档编号:13176139
- 上传时间:2023-06-11
- 格式:DOCX
- 页数:22
- 大小:626.30KB
长江大学VB上机实习报告汇编.docx
《长江大学VB上机实习报告汇编.docx》由会员分享,可在线阅读,更多相关《长江大学VB上机实习报告汇编.docx(22页珍藏版)》请在冰点文库上搜索。
长江大学VB上机实习报告汇编
2、价格“适中化”
二、大学生DIY手工艺制品消费分析
营销环境信息收集索引
他们的成功秘诀在于“连锁”二字。
凭借“连锁”,他们在女孩们所喜欢的小玩意上玩出了大名堂。
小店连锁,优势明显,主要有:
精明的商家不失时机地打出“自己的饰品自己做”、“DIY(DoItYourself)饰品、真我个性”的广告,推出“自制饰品”服务,吸引了不少喜欢标新立异、走在潮流前端的年轻女孩,成为上海的时尚消费市场。
其市场现状特点具体表现为:
我们从小学、中学到大学,学的知识总是限制在一定范围内,缺乏在商业统计、会计,理财税收等方面的知识;也无法把自己的创意准确而清晰地表达出来,缺少个性化的信息传递。
对目标市场和竞争对手情况缺乏了解,分析时采用的数据经不起推敲,没有说服力等。
这些都反映出我们大学生创业知识的缺乏;
综上所述,DIY手工艺品市场致所以受到认可、欢迎的原因就在于此。
我们认为:
这一市场的消费需求的容量是极大的,具有很大的发展潜力,我们的这一创业项目具有成功的前提。
标题:
上海发出通知为大学生就业—鼓励自主创业,灵活就业2004年3月17日
5、你认为一件DIY手工艺制品在什么价位可以接受?
除了“漂亮女生”形成的价格,优惠等条件的威胁外,还有“碧芝”的物品的新颖性,创意的独特性等,我们必须充分预见到。
计算机上机实习报告
学院:
石油工程学院
班级:
储运11204
姓名:
魏亚荣
学号:
XXXXXXX
班内序号:
XX
指导教师:
XXX
1.系统名称-----------------------------------------------------------3
二.实习目的-----------------------------------------------------------3
三.系统功能概要-----------------------------------------------------3
四.系统设计分析-----------------------------------------------------3
五.窗体设计与程序代码-------------------------------------------5
六.心得体会----------------------------------------------------------16
一、系统名称----班级学生成绩管理系统
二、实习目的:
综合应用所学理论知识,联系实际开发一个具备简易功能的班级学生成绩管理系统。
熟悉程序编写与调试,熟悉数据文件的创建、打开、读写、关闭等相关操作,同时让我们熟悉VB6.0的开发环境,掌握基本的编程方法,熟悉用VB语言完成一个应用程序的设计过程,掌握有关编辑和调试程序的方法和技巧。
三、系统功能概要
1、用记事本新建一个文本文件,将本班的M名学生的有关信息及本学期的N门考试课的成绩(要求用假想分数,并要求将自己的每门课的放在第一列)输入到这个文件中,建议按如下形式存放(注:
20≤M≤50、5≤N≤8,下文以M=10,N=5为例):
序号姓名幸运日出生日期英语VB数学体育专业课
7作者自己81992.12.19991009898100
10张某61993.08.067776808985
5李某11994.11.168988999795
3王某61993.06.045676435477
2刘某31994.01.058287857989
1孙某21994.01.154556666568
4赵某51992.01.058296568555
6陈某31993.12.258686668687
9周某51666.12.235696655656
8钱某61994.03.035665565656
2、将本学期的N门课程及其学分(16学时为1个学分)输入到另一个数据文件(文件类型同上题)中,建议如下列形式存放:
编号课程名称课程学分
1英语5.0
2vb程序设计4
3数学4.5
4体育3.0
5专业课10.0
1)找出“出生日”与幸运日相同的人,并打印出其信息(每行输出一个人信息)
2)统计出分别拥有幸运数字1,2,3,4,5,6,7,8,9,0的人数
3)能查出任何一个你感兴趣的人的信息
4)可新添加一个人的信息
5)和删除一个人的信息
6)可以对某个人的幸运数字进行修改,只改变其幸运数字,其他信息不变
7)根据以上两文件内容分别计算每个学生N门课的加权平均分(保留2位小数,4舍5入),按平均分排列名次,平均分相同则名次并列,如第1、2、2、4、5、5、7…名。
用VB创建一个数据文件,存放班级的成绩表,建议按以下形式存放。
学号姓名英语vb程序设计数学平均成绩名次
1张某76898980.52
2李某91966778.23
3王某75585688.81
4赵某58677768.54
8)分别统计全班每门课的平均分,并计算各分数段(60分以下;60~69;70~79;80~89;90分以上)的学生人数。
用VB创建一个新的数据文件,在该文件中存放数据的格式如下:
范围.英语VB.
>=9035.
80-891012.
..............................
9)打印每名学生成绩条(并将结果存放到用VB创建的一个新的数据文件中)。
10)打印所有存在不及格课程学生的名单(含学号、不及格课程名称、课程的学分及成绩)。
11)打印优等生名单(学号、N门课成绩、平均分名次)
优等生条件:
a)平均分≥90分
b)名次在本班位于前三名
c)平均分≥85分,并且有二门课的成绩都≥95分
选做内容:
打印每门课成绩分布图
说明:
所有输出结果应写入用VB创建的文件中,格式要整齐,并有适当的文字说明。
实习报告要求:
应包括分析设计与说明、部分过程(函数)的源程序清单、程序调试过程中遇到的问题及解决方法,有待改善或改进的意见,对本次实习的意见与建议、收获等。
其中原始数据及程序运行的结果应作为附录附于实习报告之后。
四、系统设计分析:
1、该成绩管理系统中要同时表示学生的学号、姓名、成绩等一些信息,及课程、课程学分等一些信息,由于每项信息的意义不同,数据类型也不同,但还要同时作为一个整体来描叙和处理,因此需要通过用户自定义来解决。
所以在编程之前新建一个标准模块用来定义自定义类型。
2、为了便于后面执行求加权平均分、排名等命令,在Form1发生Load事件时应将学生信息和课程信息读取并放到两个数组中,由于这两个数组在该管理系统的全程序都要用到,因此应定义为全局类型。
如是在标准模块中定义两个数组。
3、由于原始数据文件中相邻的两列之间空格的长短不一,因此在调用Split函数之前应窗体通用模块中自定义一个space1函数将原始数据文件中相邻的两列之间空格数变为相同。
4、在编写程序时,由于该系统的程序代码较多,因此在编写时要合理。
5、在打印成绩条、不及格名单、优等生等信息时,应边用write语句分别将数据存入一个新的文件中。
6、实习必须按着老师的严格要求完成所有的实习任务,并整理成文件打印。
五.窗体设计与程序代码
1.此次窗体设计使用了11个命令按钮分别对应不同的系统功能要求,具体界面如下
2.程序代码
⑴统计“出生日”与幸运日相同的人
Dimstu()Asstudent,n%,kc()Askecheng,x%
PrivateSubCommand1_Click()
Cls
Fori=1ToUBound(stu())
IfRight(stu(i).birthday,2)=stu(i).luckydayThen
Printstu(i).num;stu(i).name;stu(i).luckyday;stu(i).birthday;
Forj=1To5
Printstu(i).score(j);
Nextj
EndIf
Nexti
EndSub
⑵统计不及格学生的名单
PrivateSubCommand10_Click()
Cls
Print"序号";Spc(3);"姓名";Spc(3);"成绩";Spc(3);"学分";Spc(3);"课程";
Fori=1ToUBound(stu())
Forj=1To5
Ifstu(i).score(j)<60Then
PrintTab(0);stu(i).num;Spc(3);stu(i).name;Spc
(2);stu(i).score(j);Spc(3);kc(j).xf;Spc(3);kc(j).km;
EndIf
Nextj
Nexti
EndSub
⑶打印优等生名单
PrivateSubCommand11_Click()
Cls
Print"学号""英语";Space(3);"VB";Space(3);"数学";Space(3);"体育";Space(3);"专业课";Space(3);"排名"
Dimzxf%,i%,j%,k%
Fori=1ToUBound(kc())
zxf=zxf+kc(i).xf
Nexti
Forj=1ToUBound(stu())
Fork=1To5
stu(j).average=stu(j).average+stu(j).score(k)*kc(k).xf/zxf
stu(j).average=Format(stu(j).average,"0.00")
Nextk
Nextj
Form=1ToUBound(stu())
stu(m).rank=1
Forn=1ToUBound(stu())
Ifstu(m).average stu(m).rank=stu(m).rank+1 EndIf Nextn Nextm Fori=1ToUBound(stu()) k=0 Forj=1To5 Ifstu(i).score(j)>=95Then k=k+1 EndIf Nextj Ifstu(i).average>=90Orstu(i).rank<=3Or(stu(i).average>=85Andk>=2)Then Printstu(i).num;Space(3);stu(i).name; Form=1To5 Printstu(i).score(m);Spc(4); Nextm Printstu(i).rank EndIf Nexti EndSub ⑷统计各幸运数字的人数 PrivateSubCommand2_Click() Cls Fori=0To9 Dimluckypeople% Forj=1ToUBound(stu()) IfVal(stu(j).luckyday)=iThen luckypeople=luckypeople+1 EndIf Nextj Print"幸运数字为"&i;"的人数为: "&luckypeople luckypeople=0 Nexti EndSub ⑸查询信息 PrivateSubCommand3_Click() Cls DimrmAsString,i%,j% rm=InputBox("请输入你想要查询的同学的姓名") Fori=1ToUBound(stu()) IfTrim(stu(i).name)=rmThen Printstu(i).num;stu(i).name;stu(i).luckyday;stu(i).birthday; Forj=1To5 Printstu(i).score(j); Nextj EndIf Nexti EndSub ⑹添加信息 PrivateSubCommand4_Click() Cls DimxinxueshengAsString xinxuesheng=InputBox("请依次按照序号,姓名,幸运日,出生日期,英语,vb,数学,体育,专业课的顺序输入新同学的信息,中间用空格隔开") Open"e: \vb作业1.txt"ForAppendAs#1 Print#1,xinxuesheng Print Close#1 DoWhileInStr(Trim(xinxuesheng),"")<>0 xinxuesheng=Replace(Trim(xinxuesheng),"","") Loop a=Split(xinxuesheng,"") n=n+1 ReDimPreservestu(n) stu(n).num=a(0) stu(n).name=a (1) stu(n).luckyday=a (2) stu(n).birthday=a(3) Fori=1To5 stu(n).score(i)=a(3+i) Nexti Fori=1ToUBound(stu()) Printstu(i).num;stu(i).name;stu(i).luckyday;stu(i).birthday; Forj=1To5 Printstu(i).score(j); Nextj Print Nexti EndSub ⑺删除信息 PrivateSubCommand5_Click() Cls DimrmAsString rm=InputBox("请输入你要删除的同学的姓名") Fori=1Ton IfTrim(stu(i).name)=rmThen ExitFor EndIf Nexti Forj=iTon-1 stu(j)=stu(j+1) Nextj ReDimPreservestu(n-1) Fori=1ToUBound(stu()) Printstu(i).num;stu(i).name;stu(i).luckyday;stu(i).birthday; Forj=1To5 Printstu(i).score(j); Nextj Print Nexti EndSub ⑻修改幸运数字 PrivateSubCommand6_Click() Cls DimrmAsString,shuziAsString,i%,j% rm=InputBox("请输入你要修改的同学的姓名") shuzi=InputBox("请输入你要修改后的幸运数字") Fori=1ToUBound(stu()) IfTrim(stu(i).name)=rmThen stu(i).luckyday=shuzi Printstu(i).num;stu(i).name;stu(i).luckyday;stu(i).birthday; Forj=1To5 Printstu(i).score(j); Nextj EndIf Nexti EndSub ⑼计算每个学生的平均分 PrivateSubCommand7_Click() Cls Dimzxf%,i%,j%,k% Fori=1ToUBound(kc()) zxf=zxf+kc(i).xf Nexti Forj=1ToUBound(stu()) Fork=1To5 stu(j).average=stu(j).average+stu(j).score(k)*kc(k).xf/zxf stu(j).average=Format(stu(j).average,"0.00") Nextk Nextj Form=1ToUBound(stu()) stu(m).rank=1 Forn=1ToUBound(stu()) Ifstu(m).average stu(m).rank=stu(m).rank+1 EndIf Nextn Nextm Open"e: \成绩单.txt"ForAppendAs#3 Print#3,"序号";Space(3);"姓名";Space(3);"幸运日";Space(3);"出生日期";Space(4);"数学";Space(4);"英语";Space(4);"vb";Space(4);"物理";Space(3);"专业课";Space(3);"平均分";Space(3);"排名" Fori=1ToUBound(stu()) Print#3, Print#3,stu(i).num;Space(3);stu(i).name;Space(3);stu(i).luckyday;Space(3);stu(i).birthday;Space(3); Forj=1To5 Print#3,stu(i).score(j);Space(3); Nextj Print#3,stu(i).average;Space(3);stu(i).rank; Nexti Close#3 EndSub ⑽统计成绩分布 PrivateSubCommand8_Click() Cls Dimi%,j%,bsix%,ss%,se%,en%,anine%,a(1To25)AsInteger,b(1To5)AsInteger,c(1To5)AsInteger,d(1To5)AsInteger,e(1To5)AsInteger,o(1To5)AsInteger,p(1To5)AsInteger,q(1To5)AsInteger,r(1To5)AsInteger,s(1To5)AsInteger Fori=1To5 kc(i).zf=0 Forj=1ToUBound(stu()) kc(i).zf=kc(i).zf+stu(j).score(i) Nextj kc(i).average=kc(i).zf/UBound(stu()) kc(i).average=Format(kc(i).average,"0.00") Printkc(i).average Nexti Open"e: \成绩分布.txt"ForAppendAs#4 Print#4,"范围";Space(8);"数学";Space(3);"英语";Space(3);"vb";Space(3);"物理";Space(3);"专业课" Fori=1To5 Forj=1ToUBound(stu()) Ifstu(j).score(i)>=90Then o(i)=o(i)+1 ElseIfstu(j).score(i)>=80Then p(i)=p(i)+1 ElseIfstu(j).score(i)>=70Then q(i)=q(i)+1 ElseIfstu(j).score(i)>=60Then r(i)=r(i)+1 Else s(i)=s(i)+1 EndIf Nextj Nexti Print#4,">=90";Spc(8); Fori=1To5 Print#4,o(i);Spc(4); Nexti Print#4, Print#4,">=80";Spc(8); Fori=1To5 Print#4,p(i);Spc(4); Nexti Print#4, Print#4,">=70";Spc(8); Fori=1To5 Print#4,q(i);Spc(4); Nexti Print#4, Print#4,">=60";Spc(8); Fori=1To5 Print#4,r(i);Spc(4); Nexti Print#4, Print#4,"其他";Spc(8); Fori=1To5 Print#4,s(i);Spc(4); Nexti Print#4, Close#4 EndSub ⑾打印学生成绩条 PrivateSubCommand9_Click() Dimstu(1To20)AsString Open"e: \成绩单.txt"ForInputAs#5 Fori=1To20 LineInput#5,stu(i): Printstu(i) Nexti Close#5 EndSub ⑿文本信息的输入 PrivateSubForm_Load() Dimstr1AsString,a()AsString,i%,str2AsString,b()AsString Open"e: \学生信息.txt"ForInputAs#1 LineInput#1,str1 Printstr1 DoWhileNotEOF (1) LineInput#1,str1 DoWhileInStr(Trim(str1),"")<>0 str1=Replace(Trim(str1),"","") Loop a=Split(str1,"") n=n+1 ReDimPreservestu(n)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 长江大学 VB 上机 实习 报告 汇编