


全文预览已结束
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
课程设计报告(VB) 编号 w20 学生成绩处理设计报告一、设计思路1.要达到的目的学习VB程序设计的方法,充分体会VB在程序设计方面的强大功能和特点,培养运用VB解决实际问题的能力。通过本次课程设计,使学生进一步巩固课堂上学到的知识,能利用VB中的基本控件和数组编写一个小的应用软件 学生成绩处理。2.关键问题的解决设计程序界面选取ProgressBar 控件添加TXT文件二、模块之间的调用关系,或程序流程图调用调用调用调用读取文件、计算平均分Singleplayer模块doubleplayers模块Singlehelp模块doublehelp模块三、部分程序关键源代码及注释Dim data(100, 3) As StringDim num As IntegerPrivate Sub Command1_Click(Index As Integer)Close #1Select Case IndexCase 0Open d:成绩.txt For Append As #1Dim flag As BooleanFor i = 0 To 3If Text1(i) = Then MsgBox 请确认学号,姓名,分数都已输入, vbOKOnly, 提示 flag = TrueEnd IfNextIf Not flag Then Write #1, Text1(0).Text; Text1(1).Text; Val(Text1(2).Text); Val(Text1(3).Text) MsgBox 添加成功End IfCase 1 Picture1.Cls Dim StrLine As String, a() As String Dim x As Integer, b As Integer Open D:成绩.txt For Input As #1 i = 0 Do While Not EOF(1) Line Input #1, StrLine If StrLine Then a() = Split(StrLine, ,) For j = 0 To 3 data(i, j) = a(j) Next End If i = i + 1 Loop num = i For x = 0 To num For j = 0 To 3 Picture1.Print data(x, j) + ; Next Picture1.Print NextCase 2 Picture2.Cls Open d:成绩.txt For Input As #1 While Not EOF(1) Line Input #1, StrLine ss = ss + StrLine + vbCrLf Wend Picture2.Print ssEnd SelectClose #1End SubPrivate Sub Form_Load()Open D:成绩.txt For Append As #1End SubPrivate Sub Form_Unload(Cancel As Integer) Close #1End Sub四、设计方案的完善及目前存在的问题1设计方案要完善的地方添加1个图片框和一个命令按钮控件,将命令按钮的caption属性设为“按平均分排序”。对程序的调用。对编程语言的进一步书写。五、本次设计的收获及心得体会 通过对“学生成绩处理”进行VB编程,使我发现了自己的一个很大的毛病:自以为是。本来以为VB很简单,自己学得很好,结果却远非所料,许多东西都不知道。自己学习的那点知识如同大海的一叶扁舟,根本不值得提。通过对“学生成绩处理”进行VB编程,使我发现原来VB如此的美妙,许多自己常用的东西原来基本上都可以用VB进行编辑。VB的用处之大,太让我兴奋了。有时,我为了自己编了一个程序而感到欣慰,太棒了。我为学VB而感到自豪,虽然我懂得不算太多,但毕竟可以做一些简单的程序,今后有机会一定要好好学习VB。通过对“学生成绩处理”进行VB编程,使我又懂得了一些简单的命令及一些简单的控件,如porogressbar控件,timer控件,文件的打开及写入,画直线及其用直线能画出的图形,可以说是收获颇丰吧。 最后还得谢谢老师的检查及指导。六、对该题目和VB设计的意见和建议1. 对该题目的意见和建议希望能多加一些控件,多一些我们已经学过的程序,那样也算可以学以至用了吧,当然,有一些没学过的程序也好,可以提高自己的自学能力。2对本次设计的意见和建议这次设计的不算很完美,以后一定要好好
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025年高压电工复审电工作业模拟考试试题试卷(答案+解析)
- 山西公务员真题试卷
- 2025年教育心理学基础考试卷及答案
- 2025年高中会考试题及答案
- 2025年安全工程师安全生产法安全生产监督管理职责的部门工作人员的违法行为考试试题(附答案)
- 2025年房产居间交易协议模板专业版版B版
- 2025年全国专利代理师资格考试(专利法律知识)冲刺试题及答案
- 2025年护士资格证考试练习题及答案解析
- 2025年耳鼻喉科考试题及答案
- 2025年度GCP培训考核试题(含答案)
- 胃镜室进修汇报
- 农村特岗教师聘用合同书
- 10.1 抵制校园欺凌和暴力(高效教案)-【中职专用】中职思想政治《心理健康与职业生涯》(高教版2023·基础模块)
- 社区获得性肺炎教学课件
- 大学语文(第三版)课件 渔父
- 队列训练齐步的行进与立定
- 人教版小学六年级数学上册单元课后练习题 全册
- 初中九年级英语课件宾语从句 公开课比赛一等奖
- 【放心签】家政服务电子版合同范本(仅供参考)正规范本(通用版)
- 景区不锈钢浮雕施工方案
- 造价咨询部工作手册
评论
0/150
提交评论