vb实习报告Word下载.docx
- 文档编号:21320198
- 上传时间:2023-01-29
- 格式:DOCX
- 页数:15
- 大小:3.13MB
vb实习报告Word下载.docx
《vb实习报告Word下载.docx》由会员分享,可在线阅读,更多相关《vb实习报告Word下载.docx(15页珍藏版)》请在冰豆网上搜索。
程序设计框图
五.数据处理
原始成绩
课程学分
成绩
学分
加权平均分
排名
不及格学生名单
优等生名单
各分数人数
六.源程序
模块:
Typestudent
snoAsString*6
snameAsString*3
a(1To5)AsInteger
averAsSingle
mcAsInteger
feiAsInteger
EndType
Typekechen
bhAsString
kcmAsString
xfAsSingle
f(1To5)AsInteger
窗体代码:
Dimkc()Askechen
DimmAsInteger
Dimstud()Asstudent
DimstAsString
DimnAsInteger
Dimst2AsString
DimzxfAsInteger
PrivateSubAverage_Click()
Picture1.Cls
Forj=1Ton
stud(j).aver=0
Fori=1To5
stud(j).aver=stud(j).aver+Val(stud(j).a(i))*Val(kc(i).xf)
Nexti
stud(j).aver=stud(j).aver/zxf
Nextj
Picture1.Printst;
Space(4);
"
平均分"
Fori=1Ton
Picture1.Printstud(i).sno;
Space(5);
stud(i).sname;
Space
(2);
Forj=1Tom
Picture1.Printstud(i).a(j);
Space(3);
Picture1.PrintFormat(stud(i).aver,"
0.00"
)
EndSub
PrivateSubForm_Load()
DimchAsString,c()AsString,i%,d()AsString
n=0:
k=0
OpenApp.Path+"
\成绩.txt"
ForInputAs#1
LineInput#1,st
Printst
DoWhileNotEOF
(1)
LineInput#1,ch
ch=Trim(ch)
ch=delspace(ch)
c=Split(ch,"
n=n+1
ReDimPreservestud(n)
stud(n).sno=c(0)
stud(n).sname=c
(1)
stud(n).a
(1)=c
(2)
stud(n).a
(2)=c(3)
stud(n).a(3)=c(4)
stud(n).a(4)=c(5)
stud(n).a(5)=c(6)
Loop
Close#1
\学分.txt"
LineInput#1,st2
d=Split(ch,"
m=m+1
ReDimPreservekc(1Tom)
kc(m).bh=d(0)
kc(m).kcm=d
(1)
kc(m).xf=d
(2)
zxf=zxf+kc(m).xf
EndSub
PublicFunctiondelspace(sAsString)AsString
k=InStr(s,"
DoWhilek>
0
s=Replace(s,"
"
delspace=s
EndFunction
PrivateSubfsd_Click()
Dimfw(1To5)AsString
fw
(1)="
>
=90"
fw
(2)="
80-89"
fw(3)="
70-79"
fw(4)="
60-69"
fw(5)="
<
60"
\各分数段人数.txt"
ForOutputAs#1
Ifstud(i).a(j)>
=90Then
kc(j).f
(1)=kc(j).f
(1)+1
ElseIfstud(i).a(j)>
=80Then
kc(j).f
(2)=kc(j).f
(2)+1
=70Then
kc(j).f(3)=kc(j).f(3)+1
=60Then
kc(j).f(4)=kc(j).f(4)+1
Else
kc(j).f(5)=kc(j).f(5)+1
EndIf
Picture1.Print"
范围英语制图数学物理化学"
Print#1,"
Forj=1To5
Print#1,fw(j);
Picture1.Printfw(j);
Fori=1Tom
Print#1,kc(i).f(j);
Picture1.Printkc(i).f(j);
Picture1.Print
Print#1,
PrivateSubminci_Click()
stud(i).mc=1
Ifstud(i).aver<
stud(j).averThen
stud(i).mc=stud(i).mc+1
学号"
姓名"
名次"
Picture1.Printstud(i).sno,stud(i).sname,stud(i).mc
PrivateSubPrint59_Click()
\不及格学生名单.txt"
学号姓名不及格课程名成绩学分"
Ifstud(i).a(j)<
60Then
Print#1,stud(i).sno;
;
kc(j).kcm;
Space(9);
stud(i).a(j);
kc(j).xf
kc(j).kcm,Space(7);
PrivateSubPrintCJD_Click()
\成绩单.txt"
Print#1,st,"
Picture1.Printst,"
Print#1,stud(i).a(j);
Print#1,Space(4);
Format(stud(i).aver,"
);
stud(i).mc
Picture1.PrintSpace(4);
PrivateSubPrintGood_Click()
\优等生名单.txt"
DimssAsInteger
ss=0:
stud(i).fei=0
=95Then
ss=ss+1
Ifss>
=2Then
Ifstud(i).aver>
=85Then
stud(i).fei=1
Print#1,st;
;
Ifstud(i).mc<
4Orstud(i).aver>
=90Orstud(i).fei=1Then
Print#1,Format(stud(i).aver,"
PrivateSubyaunkc_Click()
编号课程名称课程学分"
Picture1.Printkc(i).bh,kc(i).kcm,kc(i).xf
PrivateSubyuancj_Click()
Picture1.Printst
七.小结
在这次VB程序设计实习中,我逐渐了解了程序在VB6.0中调试并运行的方法,在其过程中,遇到了很多问题和困难,发现在之前的学习中,所学的东西不能完全掌握。
这次实习,是我在学习上的一次考验,让我深深体会到了实训操作的重要性。
同时感谢老师给予的耐心讲解,细心的帮助调试程序。
虽然此次实习已结束,时间不长,但意义很大。
它使我了解自己的短处,让我知道要从什么方面对自己进行补充,同时培养了我独立思考,求异思维的能力。
我深信这次课程设计,对我的VB学习以及今后的计算机等级考试的学习和考试会起到很大的促进作用,这对我今后的学习和工作将产生很大的影响。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 实习 报告