《面向对象程序设计VB》课程设计报告--文本编辑器

《面向对象程序设计VB》课程设计报告--文本编辑器

ID:35618044

大小:579.41 KB

页数:16页

时间:2019-04-02

《面向对象程序设计VB》课程设计报告--文本编辑器_第1页
《面向对象程序设计VB》课程设计报告--文本编辑器_第2页
《面向对象程序设计VB》课程设计报告--文本编辑器_第3页
《面向对象程序设计VB》课程设计报告--文本编辑器_第4页
《面向对象程序设计VB》课程设计报告--文本编辑器_第5页
资源描述:

《《面向对象程序设计VB》课程设计报告--文本编辑器》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库

1、《面向对象程序设计VB》课程设计报告班级:姓名:学号:题目:文本编辑器㈠功能描述:本次课程设计主要完成,用户信息登录、学生学籍信息管理、随机产生数的操作、英文打字练习、精美图片的操作以及对vb程序设计提出建议等功能。㈡概要设计:意见填写新建打开另存为打印结束复制文件字体粘贴剪贴编辑格式颜色表1学籍信息管理输入查询姓名学号性别省份显示姓名学号性别省份姓名学号性别省份表2表3随机产生数操作求平均求和产生表4英文打字练习产生键入准确率时间表5系统登录进入主界面学籍信息管理随机产生数操作英文打字练习图片操作1系统登录模块主要完成用户的登陆界面设计,用户需要输入账号及密码,验证通过方可进入系统的

2、主界面2主界面模块进入主界面后,通过对commandbutton的操作可进入或退出各个模块的操作;主界面还完成用户提出建议的功能。3学籍信息管理模块主要完成对文本的编辑,包括打开、新建、字体、颜色、打印等。系统可以添加学生的基本信息并存储,点击查询,系统会自动弹出输入欲查询学生信息的对话框,点击显示可以输出查询学生的基本信息。退出按钮可以退出返回到主界面。4随机产生数操作模块单击产生按钮,系统将会自动产生五个数字;单击求和将对产生的五个数进行求和计算;求平均将会对产生的五个数进行平均值计算5英文打字练习模块单击产生按钮,系统将会自动产生英文字母;键鼠单击键入文本框系统将会自动计时,当键

3、入30个字母时将会停止计时,再也不能键入数据,时间文本框将会显示所用时间,准确率文本框将显示正确键入的效率;退出将会返回主界面。6图片操作模块对form窗体动画的设置;产生连续往下飘落的雪花㈢详细设计:1系统登录模块:算法:PrivateSubCommand1_Click()DimIAsIntegerIfText2.Text<>"123456"ThenI=MsgBox("密码错误",5+vbExclamation,"警告")IfI<>6ThenEndElseText2.Text=""Text2.SetFocusEndIfEndIf2.主界面的程序设计PrivateSubnew_Clic

4、k()Text1.Text=""EndSubPrivateSubopen_Click()CommonDialog1.Action=1Text1.Text=""OpenCommonDialog1.FileNameForInputAs#1DoWhileNotEOF(1)LineInput#1,inputdataText1.Text=Text1.Text+inpudata+vbCrLfLoopClose#1EndSubPrivateSubprint_Click()CommonDialog1.Action=5ForI=1ToCommonDialog1.CopiesPrinter.PrintTe

5、xt1.TextNextIPrinter.EndDocEndSubPrivateSubsaveas_Click()CommonDialog1.FileName="default.txt"CommonDialog1.DefaultExt="txt"CommonDialog1.Action=2OpenCommonDialog1.FileNameForOutputAs#1Print#1,Text1.TextClose#1EndSub3.学籍信息系统模块程序设计:PrivateTypestudtypenameAsString*5sexAsString*1numberAsLongprovAsSt

6、ring*10EndTypeDimstud(99)AsstudtypeDimn%PrivateSubCommand1_Click()Ifn>=100ThenMsgBox("输入人数超过数组声明的个数")ElseWithstud(n).name=Text1.sex=Text2.number=Text3.prov=Combo1.TextEndWithText1="":Text2="":Text3="":n=n+1EndIfEndSubPrivateSubCommand2_Click()DimI%Picture1.ClsPicture1.Print"姓名性别学号省份"Picture1.Pri

7、nt"--------------------------------------------"Picture1.Print"张三女20806001北京"Picture1.Print"李四男20806602上海市"Picture1.Print"王五男20806003江苏省"Picture1.Print"张小平男20806004湖南省"Picture1.Print"李莹莹女20806005湖北省"Picture1.Print"和美女2080600

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。