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

《面向对象程序设计VB》课程设计报告 班级： 姓名： 学号： 题目：文本编辑器㈠功能描述：本次课程设计主要完成，用户信息登录、学生学籍信息管理、随机产生数的操作、英文打字练习、精美图片的操作以及对vb程序设计提出建议等功能。㈡概要设计： 意 见 填 写 新建打开另存为打印结束复制文件字体粘贴剪贴编辑格式颜色 表1 输入查询姓名学号性别省份显示姓名学号性别省份姓名学号性别省份表2 表3 随机产生数操作求平均求和产生 表4 表5学籍信息管理随机产生数操作英文打字练习图片操作1系统登录模块 主要完成用户的登陆界面设计，用户需要输入账号及密码，验证通过方可进入系统的主界面2主界面模块 进入主界面后，通过对commandbutton的操作可进入或退出各个模块的操作；主界面还完成用户提出建议的功能。 3学籍信息管理模块 主要完成对文本的编辑，包括打开 、新建、字体、颜色、打印等。系统可以添加学生的基本信息并存储，点击查询，系统会自动弹出输入欲查询学生信息的对话框，点击显示可以输出查询学生的基本信息。退出按钮可以退出返回到主界面。 4随机产生数操作模块 单击产生按钮，系统将会自动产生五个数字；单击求和将对产生的五个数进行求和计算；求平均将会对产生的五个数进行平均值计算5英文打字练习模块 单击产生按钮，系统将会自动产生英文字母；键鼠单击键入文本框系统将会自动计时，当键入30个字母时将会停止计时，再也不能键入数据，时间文本框将会显示所用时间，准确率文本框将显示正确键入的效率；退出将会返回主界面。6图片操作模块 对form窗体动画的设置；产生连续往下飘落的雪花㈢详细设计： 1系统登录模块：算法：Private Sub Command1_Click()Dim I As IntegerIf Text2.Text 123456 ThenI = MsgBox(密码错误, 5 + vbExclamation, 警告)If I 6 ThenEndElseText2.Text = Text2.SetFocusEnd IfEnd If2．主界面的程序设计Private Sub new_Click()Text1.Text = End SubPrivate Sub open_Click()CommonDialog1.Action = 1Text1.Text = Open CommonDialog1.FileName For Input As #1Do While Not EOF(1)Line Input #1, inputdataText1.Text = Text1.Text + inpudata + vbCrLfLoopClose #1End SubPrivate Sub print_Click()CommonDialog1.Action = 5For I = 1 To CommonDialog1.CopiesPrinter.Print Text1.TextNext IPrinter.EndDocEnd SubPrivate Sub saveas_Click()CommonDialog1.FileName = default.txtCommonDialog1.DefaultExt = txtCommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1Print #1, Text1.TextClose #1End Sub3．学籍信息系统模块程序设计：Private Type studtypename As String * 5sex As String * 1number As Longprov As String * 10End TypeDim stud(99) As studtypeDim n%Private Sub Command1_Click()If n = 100 ThenMsgBox (输入人数超过数组声明的个数)ElseWith stud(n).name = Text1.sex = Text2.number = Text3.prov = Combo1.TextEnd WithText1 = : Text2 = : Text3 = :n = n + 1End IfEnd SubPrivate Sub Command2_Click()Dim I%Picture1.ClsPicture1.Print 姓名 性别 学号 省份Picture1.Print --------------------------------------------Picture1.Print 张三 女 2