VB课程设计报告---文本编辑器

合集下载

VB-文本编辑器

VB-文本编辑器一、界面设计程序运行的界面：二、代码设计Dim ex As BooleanDim savepath As StringPrivate Sub building_Click()If ex Thena = MsgBox("是否保存？", vbYesNo + vbQuestion)If a = 6 ThenIf savepath <> "" ThenOpen savepath For Output As #1Print #1, Text1.TextClose #1Text1 = ""ex = FalseElseCommonDialog1.FileName = "文档1.txt"CommonDialog1.DefaultExt = "txt"CommonDialog1.Action = 2savepath = CommonDialog1.FileNameOpen CommonDialog1.FileName For Output As #1Print #1, Text1.TextClose #1Text1 = ""ex = FalseEnd IfEnd IfElseText1 = ""ex = FalseEnd IfEnd SubPrivate Sub exit_Click()If ex Thena = MsgBox("是否保存？", vbYesNoCancel + vbQuestion)If a = 6 ThenIf savepath <> "" ThenOpen savepath For Output As #1Print #1, Text1.TextClose #1EndElseCommonDialog1.FileName = "文档1.txt"CommonDialog1.DefaultExt = "txt"CommonDialog1.Action = 2savepath = CommonDialog1.FileNameOpen CommonDialog1.FileName For Output As #1Print #1, Text1.TextClose #1ex = FalseEnd IfElseIf a = 7 ThenEndEnd IfElseEndEnd IfEnd SubPrivate Sub Form_Resize()Form1.Width = 12000Form1.Height = 7000Form1.Top = 2000Form1.Left = 3000Text1.Left = 0Text1.Top = 0Text1.Width = Form1.Width - 300Text1.Height = Form1.Height - 1000End SubPrivate Sub open_Click()CommonDialog1.Action = 1Text1 = ""If CommonDialog1.FileName <> "" ThenOpen CommonDialog1.FileName For Input As #1 Do While Not EOF(1)Line Input #1, inputdataText1 = Text1 + inputdata + vbCrLfLoopClose #1savepath = CommonDialog1.FileNameex = FalseText1.SelStart = Len(Text1)End IfEnd SubPrivate Sub save_Click()If savepath <> "" ThenOpen savepath For Output As #1Print #1, Text1.TextClose #1ex = FalseElseCommonDialog1.FileName = "文档1.txt"CommonDialog1.DefaultExt = "txt"CommonDialog1.Action = 2savepath = CommonDialog1.FileNameOpen CommonDialog1.FileName For Output As #1 Print #1, Text1.TextClose #1ex = FalseEnd IfEnd SubPrivate Sub saves_Click()CommonDialog1.FileName = "文档1.txt" CommonDialog1.DefaultExt = "txt" CommonDialog1.Action = 2savepath = CommonDialog1.FileNameOpen CommonDialog1.FileName For Output As #1Print #1, Text1.TextClose #1ex = FalseEnd SubPrivate Sub Text1_Change()ex = TrueEnd Sub。

VB实验报告(含答案)

实验报告课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____实验一 VB环境和创建一个简单的VB程序一．实验目的：1.了解VB系统对计算机软件、硬件的要求。

2.掌握启动和退出VB的方法。

3.了解和使用VB集成开发环境各窗口、菜单的一般功能。

4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。

5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。

二．实验内容：1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。

程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图所示。

图实验1-1 运行界面三．实验结果：对象属性设置对象属性属性值说明caption我的第一个vb程序窗体Form1caption请输入姓名标签Label1text““文本框Text1caption显示命令按钮Command1caption清除命令按钮Command2四．实验思考：1.标签label控件设置的属性代码有哪些=“请输入姓名”=24=True2.两个按钮所使用的是什么事件代码分别是什么Private Sub Command1_Click()=“姓名”实验二简单程序设计数据类型及常用内部函数的简单应用一．实验目的：1．掌握Visual Basic数据类型的基本概念。

2．掌握用Visual Basic的各种运算符及表达式。

3．学习使用Visual Basic内部函数和数据输入、输出方法。

4．掌握命令按钮、文本框和标签。

5．设计顺序程序。

二．实验内容：1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏温度，用msgbox输出转换后的摄氏温度。

转换公式是：C= 5 / 9(F - 32)。

F为华氏温度，C为摄氏温度。

VB课程设计-文本编辑器

VB课程设计报告——文本编辑器学院名称：学生姓名：专业名称：班级：一、课程设计题目用Visual Basic程序设计语言编写一个简易的文本编辑器要求：有最基本的文本编辑功能，包括复制、剪切、粘贴、字体设置、背景颜色设置、字体颜色设置；同时拥有文本管理功能，包括打开文件、保存文件；以及完整的系统运行退出等功能，所有的操作可选择设定的快捷键。

二、课程设计目的虽然本学期的Visual Basic课程是自学的，相对于课堂学习有些不足，但通过平时的上机实验，初步掌握了VB程序设计的各种方法，学会了编写最基本的VB程序；对于完整的VB程序设计来讲是很不足的，平时掌握的只是单独的窗体(Form)程序编写，以及各种简单控件的使用，没有做到很好连贯性，所以有必要做一次完整的VB程序设计，结合所学的基本知识，使用多个窗体自成一套系统，加上各种控件的综合运用，初步设计一个合格的VB 应用程序；这样在巩固VB所学的同时，更好地学会程序设计的一些思想和方法，对于以后的编程学习或是工作有重要的实践意义。

三、课程设计说明题目为文本编辑器，即是最基本的文本编辑程序，首先必须做好文本编辑器本身的功能，然后对其完善，做成一个完整的小程序功能设计说明：功能是这个文本编辑器的核心内容，也就是程序的作用，它是用来做什么的；本程序就是用来编写文本的，编写过程中要利用到窗体（Form）一个，控件包括：RichTextBox1（超文本框）、CommonDialog（通用对话框），以及InputBox（消息框）、菜单编辑器等，。

要做的工作就是编写代码把这些控件和窗体等结合为一体，使得程序能够成为一体，顺畅运行。

本次设计在按照题目要求的前提下，为了完整地展示一个应用程序，在最初就设计为最基本的文本的编辑器，所以取名为“易记本”，就是简易记事本的简称，然后加入图标，在程序完成之后还进行了大包操作，得到应用程序的安装文件，最后安装在电脑上运行使用。

四．源代码Private Sub Command1_Click()Dim i As IntegerIf Text2.Text <> "123456" Theni = MsgBox("密码错误", 5 + vbExclamation, "警告")If i <> 6 ThenEndElseText2.Text = ""Text2.SetFocusEnd IfEnd IfForm1.HideForm2.ShowEnd SubPrivate Sub Form_Load()Text1.Text = ""Text1.MaxLength = 6Text2.Text = ""Text2.MaxLength = 6Text2.PasswordChar = "*"End SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1.Text) Then MsgBox "帐号必须为数字", , "警告" Text1.Text = ""Text1.SetFocusEnd IfEnd SubPrivate Sub Command1_Click()Form2.HideForm3.ShowEnd SubPrivate Sub Command2_Click()Form2.HideForm4.ShowEnd SubPrivate Sub Command3_Click()Form2.HideForm5.ShowEnd SubPrivate Sub Color_Click() CommonDialog1.Action = 3Text1.ForeColor = CommonDialog1.Color End SubPrivate Sub Command1_Click()Form3.HideForm2.ShowEnd SubPrivate Sub Copy_Click()Dim st As Stringst = Text1.SelTextEnd SubPrivate Sub Cut_Click()Dim st As Stringst = Text1.SelTextText1.SelText = ""End SubPrivate Sub Exit_Click()EndEnd SubPrivate Sub Font_Click()CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.Action = 4Text1.FontName = CommonDialog1.FileNameText1.FontSize = CommonDialog1.FontSizeText1.FontBold = CommonDialog1.FontBoldText1.FontItalic = CommonDialog1.FontItalicText1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderline Text1.ForeColor = CommonDialog1.ColorEnd SubSub New_Click()Text1.Text = ""Me.Caption = FileEnd SubSub Open_Click()CommonDialog1.Action = 1Text1.Text = ""Open CommonDialog1.FileName For Input As #1Do While Not EOF(1)Line Input #1, inputdataText1.Text = Text1.Text + inputdata + vbCrLfLoopClose #1End SubPrivate Sub Paste_Click()Text1.SelText = stEnd SubPrivate Sub Print_Click()CommonDialog1.Action = 5For i = 1 To CommonDialog1.CopiesPrinter.Print Text1.TextNext iPrinter.EndDocEnd SubPrivate Sub SaveAs_Click()CommonDialog1.FileName = "vb课设用.txt" CommonDialog1.DefaultExt = "txt"CommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1 Print #1, Text1.TextEnd SubDim arr As Long, sum As Long, a As IntegerPrivate Sub Command1_Click()a = HScroll1.ValueText1.Text = plus(a)Call isprime(a)End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub HScroll1_Change()Label2.Caption = HScroll1.ValueEnd SubSub isprime(max As Integer)Dim x As Integer, i As Integer, j As IntegerFor i = 2 To maxx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1Next jIf x = 0 Then Label2.Caption = Label2.Caption & i & " " Next iEnd SubFunction plus(a As Integer) As LongFor i = 1 To asum = sum + iNext iplus = sumEnd FunctionDim x1 As IntegerDim y1 As IntegerDim x2 As IntegerDim y2 As IntegerDim flag As BooleanPrivate Sub Command1_Click()On Error Resume NextCommonDialog1.CancelError = True CommonDialog1.DialogTitle = "颜色" CommonDialog1.ShowColorIf Err <> 32755 Then Picture1.ForeColor = CommonDialog1.Color End IfEnd SubPrivate Sub Command2_Click()Picture1.ClsEnd SubPrivate Sub Command3_Click()Form5.HideForm6.ShowEnd SubPrivate Sub Option1_Click()Picture1.DrawWidth = 1End SubPrivate Sub Option2_Click()Picture1.DrawWidth = 2End SubPrivate Sub Option3_Click()Picture1.DrawWidth = 4End SubPrivate Sub Option4_Click()Picture1.DrawWidth = 8End SubPrivate Sub Form_Load()Picture1.Scale (0, 0)-(400, 400)flag = FalseEnd SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) flag = Truex1 = Xy1 = YEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If flag = False ThenExit SubEnd IfIf flag = True Thenx2 = Xy2 = YPicture1.Line (x1, y1)-(x2, y2)x1 = x2y1 = y2End IfEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) flag = FalseEnd SubDim ctP As Single, ctDu() As Single, ctDuS As LongPrivate Sub Command1_Click()Picture1.AutoRedraw = True: ctP = 3.1415926Timer1.Interval = 20: Timer1.Enabled = Not Timer1.EnabledEnd SubPrivate Sub Command2_Click()Form7.HideForm6.ShowEnd SubPrivate Sub Form_Load()Me.Caption = "旋转的椭圆": Command1.Caption = "转/停"Text1.Text = "9 个": Timer1.Enabled = FalseEnd SubPrivate Sub Text1_Change()ctDuS = Val(Text1.Text)If ctDuS > 200 Then Text1.Text = "200"If ctDuS < 1 Then ctDuS = 1ReDim ctDu(0 To ctDuS)End SubPrivate Sub Timer1_Timer()Dim I As LongPicture1.DrawWidth = 3Picture1.ClsFor I = 0 To ctDuSctDu(I) = ctDu(I) + ctP * 0.01 * I / 9If ctDu(I) > ctP * 2 Then ctDu(I) = ctDu(I) - ctP * 2Show1 ctDu(I), &HFFFFFF / (ctDuS + 1) * I * 0.6NextDim x As Single, y As SingleStatic J As SinglePicture1.DrawWidth = 15x0 = Picture1.ScaleWidth * 0.5: y0 = Picture1.ScaleHeight * 0.5 Picture1.PSet (x0, y0), 255x = 1200: y = 0: J = J - 0.05If J < -ctP * 2 Then J = J + ctP * 2Zhuan J, x, yPicture1.PSet (x0 + x, y0 + y), RGB(0, 0, 255)End SubPrivate Sub Show1(ToJ As Single, Se As Long)Dim I As Single, x As Single, y As Single, x0 As Single, y0 As Single Dim a As Single, b As Single, x1 As Single, y1 As SingleIf Picture1.ScaleWidth < Picture1.ScaleHeight Thena = Picture1.ScaleWidth * 0.45Elsea = Picture1.ScaleHeight * 0.45End Ifb = a * 0.25x0 = Picture1.ScaleWidth * 0.5: y0 = Picture1.ScaleHeight * 0.5x = -a: y = 0: Zhuan ToJ, x, yx1 = a: y1 = 0: Zhuan ToJ, x1, y1Picture1.Line (x0 + x, y0 + y)-(x0 + x1, y0 + y1), Sex = 0: y = -b: Zhuan ToJ, x, yx1 = 0: y1 = b: Zhuan ToJ, x1, y1Picture1.Line (x0 + x, y0 + y)-(x0 + x1, y0 + y1), SeFor I = 0 To ctP * 2 Step 0.1x = a * Sin(I): y = b * Cos(I)Zhuan ToJ, x, yPicture1.Line -(x0 + x, y0 + y), SeNextx = a * Sin(I): y = b * Cos(I)Zhuan ToJ, x, yPicture1.Line -(x0 + x, y0 + y), SeEnd SubPrivate Sub Zhuan(ToJ As Single, x As Single, y As Single) Dim S As Single, J As SingleS = Sqr(x ^ 2 + y ^ 2)If S = 0 Then J = 0 Else J = y / SIf Abs(J) >= 1 ThenIf J > 0 Then J = ctP * 0.5 Else J = -ctP * 0.5ElseJ = Atn(J / Sqr(-J * J + 1))End IfIf x < 0 Then J = -ctP - Jx = S * Cos(J + ToJ): y = S * Sin(J + ToJ) End Sub Private Sub Command1_Click()EndEnd Sub五、运行结果六．心得体会通过本次课程设计，使我对VB的认识更加深入了一层，VB主要由两部分组成，一个是Visual 可视化界面设计，另一个是Basic程序设计。

文本编辑器课程设计

文本编辑器课程设计一、课程目标知识目标：1. 理解文本编辑器的基本功能与操作，掌握常见的文本编辑命令；2. 学会使用文本编辑器进行文档的创建、编辑、保存和打印；3. 了解文本编辑器的不同类型，如记事本、Word等，并掌握它们的特点与适用场景。

技能目标：1. 能够熟练运用文本编辑器进行文字输入、排版和格式设置；2. 学会使用文本编辑器的查找与替换功能，提高文本处理效率；3. 掌握文本编辑器的拼写检查、语法检查功能，提升写作质量。

情感态度价值观目标：1. 培养学生对文本编辑器的兴趣，激发他们主动探索和使用新工具的积极性；2. 培养学生的信息素养，使他们认识到文本编辑器在日常生活和学习中的重要性；3. 引导学生养成良好的文本编辑习惯，注重文档的美观与规范，提升个人形象。

本课程针对年级：小学四年级课程性质：信息技术课程学生特点：四年级学生对电脑操作已有一定的基础，对新事物充满好奇心，但操作熟练程度和文本编辑能力有限。

教学要求：1. 结合学生特点，课程内容应以实践操作为主，注重培养学生的动手能力；2. 教学过程中，教师应充分调动学生的积极性，鼓励他们主动探索和尝试；3. 教学评价应以学生实际操作能力和学习态度为主要标准，关注学生的学习过程和成果。

二、教学内容1. 文本编辑器简介：介绍文本编辑器的概念、作用和常见类型，如记事本、Word等。

- 教材章节：第一章认识文本编辑器- 内容列举：文本编辑器的定义、功能、分类及其适用场景。

2. 文本编辑器基本操作：学习文本输入、选取、删除、复制、粘贴等基本操作。

- 教材章节：第二章文本编辑器的基本操作- 内容列举：文字输入、基本编辑命令、撤销与重做。

3. 文档格式设置：学习字体、字号、颜色、对齐方式等格式设置。

- 教材章节：第三章文档格式设置- 内容列举：字体设置、段落设置、页面布局。

4. 文档高级功能：掌握查找与替换、拼写检查、语法检查等功能。

- 教材章节：第四章文档高级功能- 内容列举：查找与替换、拼写检查、语法检查。

VB文本编辑器设计报告

课程设计报告课程：Visual Basic 程序设计课题：文本编辑器（易记本）专业：计算机信息管理班级：学号：姓名：@一路偏向北教师：2011-12-23一、课程设计目的通过一学期的Visual Basic 程序设计学习，以及平时的上机实验，初步掌握了VB程序设计的各种方法，学会了编写最基本的VB程序；对于完整的VB程序设计来讲是很不足的，平时掌握的只是单独的窗体(Form)程序编写，以及各种简单控件的使用，没有做到很好连贯性，所以有必要做一次完整的VB程序设计，结合所学的基本知识，使用多个窗体自成一套系统，加上各种控件的综合运用，初步设计一个合格的VB应用程序；这样在巩固VB所学的同时，更好地学会程序设计的一些思想和方法，对于以后的编程学习或是工作有重要的实践意义。

二、题目及简介文本编辑器模仿Windows自带的本文编辑器，要求：做到有下拉式菜单栏，有最基本的文本编辑功能，包括复制、剪切、粘贴、全选、查找；同时拥有文本的管理功能，其中包括新建文本、打开、保存；以及完整的运行退出等系统应用功能，所有操作可选择设定快捷键，更快更方便地使用程序，同时对于一个小程序而言，可给出基本的使用说明以及相关信息。

提示：注意使用消息框，以及使用右击弹出式菜单，注意程序的完整性可可用性。

三、设计说明题目为文本编辑器，即是最基本的文本编辑程序，首先必须做好文本编辑器本身的功能，然后对其完善，做成一个完整的小程序功能设计说明：功能是这个文本编辑器的核心内容，也就是程序的作用，它是用来做什么的；本程序就是用来编写文本的，编写过程中要利用到窗体（Form）一个，控件包括：RichTextBox1（超文本框）、CommonDialog（通用对话框），以及InputBox（消息框）、菜单编辑器等，。

要做的工作就是编写代码把这些控件和窗体等结合为一体，使得程序能够成为一体，顺畅运行。

vb文本编辑器设计报告

文本编辑器设计报告学院土木工程学院班级c106 学号107101 姓名庄潮辉成绩一、设计思路1.要达到的目的1.培养综合利用VB语言进行程序设计的能力，主要是利用VB的标准控件和文件操作进行设计。

2.掌握文件的读、写，文本框和命令按钮的使用。

2.关键问题的解决1.单击“打开文件”按钮，在TextBox控件中打开一个文本文件并显示。

方法：使用顺序文件的读操作。

2.单击“查找与替换”按钮，可以在文本中查找或替换指定的第一个内容；单击“查找下一个”按钮，可连续进行给定内容的查找与替换。

方法：使用字符串的不等长替换方法。

3.单击“保存文件”按钮，可以将编辑后的文本文件保存到指定的位置。

方法：使用顺序文件的写操作。

4.编辑框只读”按钮的功能是控制能否对文本框中的内容进行编辑。

要想结束程序，应单击“退出”按钮。

方法：用程序设置文本框的locked属性。

5. 创新中的改变字体字号可行6. 创新中滚动条控制颜色并给文字着色可行二、模块之间的调用关系，或程序流程图二、部分程序关键源代码及注释1．打开文件：sFile = InputBox("请输入要打开的文件名及扩展名：", "打开文件")If Dir(sfile) <> "" Then‘使用freefile函数得到空文件号Fileno=freefileForm1.Caption = "文本编辑器——" & sfile‘使用input函数读取顺序文件Open App.Path & "\" & sfile For Input As #filenoDo While Not EOF(fileno)Input #fileno, mystrText1.Text = Text1.Text & mystrLoopClose #fileno2．文件保存：‘使用freefile函数得到空文件号fileno = FreeFile‘使用CommonDialog控件CommonDialog1.Filter = "txt文件(*.txt)|*.txt"‘调入保存对话框CommonDialog1.Action = 2Open (CommonDialog1.FileName) For Output As #filenoPrint #fileno, Text1.TextClose #fileno3．查找与替换：Dim a As Integer, t As String, e As Stringt = Text1.Texte = ""‘找出Form2.Text1.Text在t中第一个出现位置a = InStr(1, t, Form2.Text1.Text)If a = 0 ThenMsgBox "字符串没发现", vbOKOnly, "替换提示"Else拼接第一个出现位置左边的字符串e = e & Left(t, a - 1)e = e & Form2.Text2.Text‘将字符串t变为出现位置右边的字符串t = Right(t, Len(t) - a - Len(Form2.Text1.Text) + 1)e = e & tText1.Text = eEnd If4．字体与字号设置‘在load事件中，将各列表项加入到字体组合框cobom1,字号组合框cobom2中‘设置初始字体和字号Private Sub form_load()Combo1.AddItem "宋体"Combo1.AddItem "黑体"Combo1.AddItem "楷体_GB2312"Combo1.AddItem "仿宋_GB2312"Combo2.AddItem 10Combo2.AddItem 12Combo2.AddItem 16Combo2.AddItem 20Text1.FontName = "宋体"Text1.FontSize = 20End Sub‘字体组合框cobom1的单击事件，设置字体Private Sub Combo1_click()Select Case Combo1.ListIndexCase 0Text1.FontName = "宋体"Case 1Text1.FontName = "黑体"Case 2Text1.FontName = "楷体_GB2312"Case 3Text1.FontName = "仿宋_GB2312"End SelectEnd Sub‘字号组合框cobom2的单击事件，设置字号Private Sub Combo2_click()Text1.FontSize = Combo2.TextEnd Sub‘字号组合框cobom2的keypress事件，检测回车键并设置字号Private Sub Combo2_keypress(keyascii As Integer)If keyascii = 13 ThenText1.FontSize = Combo2.TextEnd IfEnd Sub‘利用滚动条设置三种基色Private Sub VScroll1_Change()Text2.BackColor = RGB(VScroll1.Value, 0, 0)Text5.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End SubPrivate Sub VScroll2_Change()Text3.BackColor = RGB(0, VScroll2.Value, 0)Text5.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End SubPrivate Sub VScroll3_Change()Text4.BackColor = RGB(0, 0, VScroll3.Value)Text5.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub三、设计方案的完善及目前存在的问题1．设计方案要完善的地方①文本的编辑功能有限，对文件的操作方法过于局限。

《软件设计基础(VB)》课程设计-- RTF编辑器

《软件设计基础(VB)》课程设计-- RTF编辑器河北理工大学《软件设计基础（VB）》课程设计报告设计名称：RTF编辑器姓名：赵子明学号：200906040209专业班级：材料成型二班学院：冶金与能源学院设计时间：2010年5月10日至2010年6月20日设计地点：学校机房指导教师评语：成绩：指导教师签字：年月日目录1.课程设计目的 ···············································································2.课程设计任务与要求 ······································································3.课程设计说明书 ············································································4.课程设计成果 ···············································································5.程序调试过程 ···············································································6.设计问题的不足和改进方案 ·····························································7.课程设计心得 ···············································································8.附录 ···························································································9.参考文献 ·····················································································运行结果（可用屏幕抓图的方法说明）（五号，宋体）(多页)5.程序调试过程。

文本编辑器课程设计报告

青岛农业大学理学与信息科学学院高级语言课程设计报告设计题目文本编辑器学生专业班级计算机科学与技术学生姓名（学号）设计小组其他同学姓名（学号）指导教师完成时间 2011-11-03 设计地点信息楼机房2011年 11 月 05 日一、课程设计目的和任务为了方便处理文本内容,减少在处理文本时的额外活动，设计了本程序。

比如在统计文本中的中英文字母数和空格数以及整篇文章的总字数时，可以利用本程序,这样比较方便、省时。

又比如统计某一字符串在文章中出现的次数，并输出该次数，也可利用本程序。

还可以利用本程序将文本的某一子串删除并将后面的字符前移。

二、分析与设计1.程序的基本功能：（1）分别统计出其中英文字母数和空格数以及整篇文章的总字数。

（2）统计某一字符串在文章中出现的次数，并输出该次数。

（3）删除某一子串，并将后面的字符前移。

2.系统总框图：（1）、统计字符个数算法流程图(2)、删除某一字符串算法流程图(3)、查找某一字符串出现的次数算法流程图3.定义的函数及说明：此程序由12个函数构成。

（1）存储结构：char wz[N][80]存储文章的字符数组，为全局变量（2）输入函数：readdat()通过此函数从文件中读取文本（3）输出函数：out()将文本内容输出（4）字符数统计函数：int countword(int n1,int n2)统计ASC 码在n1与n2之间的字符（5）字符串出现次数统计函数：int cz(char *s)查找某一字符串出现的次数（6）字符删除函数：void del(char *s)删除要删除的字符串（7）主函数：void main()通过主函数调用各个子函数完成程序功能（8）文件函数open("E:/yy/wzin.dat","r+")打开文件(9) 字符串位置函数strstr(wz[i],s);字符串s 在文章第i行首次出现的位置(10) 字符串长度函数strlen(wz[i]);文章第i 行的长度(11) 字符串比较函数strcmp(s1,"@@")比较字符串内容当为@@时停止输入(12) 字符串复制函数strcpy(wz[i],s1);/*将s1中的内容复制到wz[i]中4.算法设计：本程序要求储存结构为线性表结构，可以输入大小写的英文字母，任何数字和标点符号。

VB文本编辑器设计报告

文本编辑器设计报告学院班级学号姓名成绩一、设计思路1.要达到的目的①单击“打开文件”按钮，在TextBox控件中打开一个文本文件并显示，为了阅读者的方便，在文本框中要加入水平和垂直滚动条。

②单击“查找与替换”按钮，可以在文本中查找或替换指定的第一个内容；单击“查找下一个”按钮，可连续进行给定内容的查找与替换。

③单击“保存文件”按钮，可以将编辑后的文本文件保存到指定的位置。

④“编辑框只读”按钮的功能是控制能否对文本框中的内容进行编辑。

⑤要想结束程序，应单击“退出”按钮。

2.关键问题的解决①打开文件并显示及滚动条的添加成功解决。

②查找与替换功能尚未完全成功③保存文件问题完全解决④编辑框按钮功能可用⑤退出可执行⑥创新中的改变字体字号可行⑦创新中滚动条控制颜色并给文字着色可行二、模块之间的调用关系，或程序流程图三、部分程序关键源代码及注释1.文本文件的读入sFile = InputBox("请输入要打开的文件名及扩展名：", "打开文件")If Dir(sFile) <> "" ThenOpen App.Path & "\" & sFile For Input As #1temp = StrConv(InputB(LOF(1), #1), vbUnicode)EditTXT.Text = tempClose #1EditFrm.Caption = "文本编辑器— " & sFileElseMsgBox "指定的文件" & sFile & "未找到!", 48, "文件打开"End If说明：对于文本文件中包含的字节数据要使用InputB 函数。

对于InputB 来说，number 指定的是要返回的字节个数，而不是要返回的字符个数。

文本编辑器课程设计报告

目录一、问题描述-------------------------------------------------------------------------21、基本要求----------------------------------------------------------------------22、提高要求----------------------------------------------------------------------2二、需求分析-------------------------------------------------------------------------2三、概要设计-------------------------------------------------------------------------3四、详细设计-------------------------------------------------------------------------51、文件操作----------------------------------------------------------------------52、编辑操作----------------------------------------------------------------------103、工具操作----------------------------------------------------------------------194、关于操作----------------------------------------------------------------------20五、编码与调试分析----------------------------------------------------------------20六、使用说明-------------------------------------------------------------------------22七、测试结果-------------------------------------------------------------------------22八、自学知识-------------------------------------------------------------------------26九、课程设计心得体会-------------------------------------------------------------27一、问题的描述设计并编写一个小型文本编辑器，使其具有通常文本编辑器(如Vi、Edlin)应具备的基本功能。

VB课程设计报告记事本设计

VB课程设计题目：记事本程序指导教师：姓名：2008-7-2目录一、预定功能------------------------------------------第3 页二、设计界面------------------------------------------第3 页三、运行界面及主要功能说明---------------------第4页四、操作流程图---------------------------------------第7页五、程序设计过程------------------------------------第12页一、预定功能新建：新建立一个记事本文档。

保存：重命名一个名字，保存文档。

打开：将打开一个已经存储在计算机中的文件（*.txt或*.rtf文件）。

退出：指退出这个记事本程序。

编辑：能对文本进行复制、剪切、粘贴，也可以改变文本字体、颜色、大小。

查找：类似Word文档的查找功能，通过输入关键字，词进行查找。

帮助：记事本简介以及功能的用法。

二、设计界面记事本界面有以下几部分组成：标题栏：自定义图标和记事本标题。

菜单栏：包括文件、编辑、搜索和帮助主题。

工具栏：菜单栏中部分功能的快捷键。

文本框：用于编辑、查看文本内容。

状态栏：显示编辑状态、当前日期和具体时间。

具体设计界面如下图：三、运行界面及主要功能说明双击“记事本.exe”出现如图主界面：主要功能：（1）文本打开、新建、保存等基本操作：（2）文本编辑功能：（3）文本查找功能：（4）记事本帮助主题：功能说明：（1）基本操作：能够打开计算机中存储的*.txt或*.rtf文件，进行读写操作，记事本拥有一个很好的优点：就是打开速度快，文件小。

通过记事本可以很方便地打开比较小文本文档。

（2）编辑操作：对文本匡中的文档内容进行编辑。

通过对文本进行复制、剪切、粘贴，方便了用户的操作。

使得记事本能够像Word一样，不仅可以查看文本，还能对其进行修改。

vb课程设计报告

vb课程设计报告一、课程目标本vb课程设计旨在达成以下学习目标：1. 知识目标：学生掌握VB编程基础知识，理解面向对象编程思想，熟悉VB 开发环境及相关工具的使用。

具体包括：- 掌握VB基本语法和数据类型；- 学会使用VB控制结构，如循环、分支等；- 理解VB中事件驱动编程原理；- 了解VB中常用控件的使用方法和属性设置。

2. 技能目标：学生能够运用所学知识，独立设计并编写简单的VB程序，培养解决实际问题的能力。

具体包括：- 能够编写具有基本功能的VB程序，如计算器、文本编辑器等；- 能够运用面向对象编程思想，设计简单的类和对象；- 能够分析问题，运用VB编程解决实际问题。

3. 情感态度价值观目标：培养学生对编程的兴趣，提高逻辑思维能力和团队协作能力。

具体包括：- 增强学生对编程的热爱，激发学习动力；- 培养学生独立思考、解决问题的习惯；- 培养学生团队协作精神，学会与他人分享和交流。

课程性质：本课程为实践性较强的学科，注重培养学生的动手能力和实际应用能力。

学生特点：学生年级为初中或高中，具备一定的计算机操作基础，对编程有一定的好奇心和兴趣。

教学要求：结合学生特点和课程性质，采用任务驱动法，以实际项目为导向，让学生在实践中掌握VB编程知识，提高编程能力。

同时，注重培养学生的逻辑思维和团队协作能力，为后续学习打下坚实基础。

二、教学内容根据课程目标，本章节教学内容如下：1. VB基本语法和数据类型- 数据类型：整数型、浮点型、字符串型等；- 变量和常量的声明与使用；- 运算符和表达式。

2. VB控制结构- 条件语句：If...Then...Else和Select Case；- 循环语句：For...Next，While...Wend和Do...Loop。

3. VB事件驱动编程- 事件和事件过程的概念；- 鼠标和键盘事件；- 窗体和控件事件。

4. VB常用控件- 文本框、标签、按钮等基本控件的使用；- 列表框、组合框、图片框等高级控件的使用；- 控件属性的设置。

文本编辑器程序设计

VB课程设计报告——文本编辑器学院名称：学生姓名：专业名称：班级：一、课程设计题目用Visual Basic程序设计语言编写一个简易的文本编辑器要求：具有一般文本编辑器的基本功能：新建、保存、打开、另存为和退出；必需能够同时打开多个文本文件进行编辑；能够对所编辑的文件进行保存，保存类型为txt；能够打开计算机硬盘上已存在的文本文件，并进行编辑。

二、课程设计目的初步掌握了VB程序设计的各种方法，学会了编写最基本的VB程序；对于完整的VB程序设计来讲是很不足的，平时掌握的只是单独的窗体(Form)程序编写，以及各种简单控件的使用，没有做到很好连贯性，所以有必要做一次完整的VB 程序设计，结合所学的基本知识，使用多个窗体自成一套系统，加上各种控件的综合运用，初步设计一个合格的VB应用程序；这样在巩固VB所学的同时，更好地学会程序设计的一些思想和方法，对于以后的编程学习或是工作有重要的实践意义。

三、课程设计说明及程序结构题目为文本编辑器，即是最基本的文本编辑程序，首先必须做好文本编辑器本身的功能，然后对其完善，做成一个完整的小程序功能设计说明：功能是这个文本编辑器的核心内容，也就是程序的作用，它是用来做什么的；本程序就是用来编写文本的，编写过程中要利用到窗体（Form）一个，控件包括：RichTextBox1（超文本框）、CommonDialog（通用对话框），以及InputBox（消息框）、菜单编辑器等，。

要做的工作就是编写代码把这些控件和窗体等结合为一体，使得程序能够成为一体，顺畅运行。

四、源代码Dim sFind As StringDim FileType, FiType As StringPrivate Sub bc_Click()CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"CommonDialog1.ShowSaveFileType = CommonDialog1.FileTitleFiType = LCase(Right(FileType, 3))FileName = CommonDialog1.FileNameSelect Case FiTypeCase "txt"RichTextBox1.SaveFile FileName, rtfTextCase "rtf"RichTextBox1.SaveFile FileName, rtfRTFCase "*.*"RichTextBox1.SaveFile FileNameEnd SelectMe.Caption = "记事本-" & FileNameEnd SubPrivate Sub exit_Click()If TabStop = False ThenJieGuo = MsgBox("文本已经改变，是否需要保存", vbYesNo)If JieGuo = vbYes Then'保存文件的代码Else'选择不保存的代码End IfElseEnd '直接退出程序End IfEndEnd SubSub Form_Unload(Cancel As Integer)End SubPrivate Sub fz_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextEnd SubPrivate Sub jq_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText = ""End SubPrivate Sub new_Click()RichTextBox1.Text = ""FileName = "未命名1"Me.Caption = FileNameEnd SubPrivate Sub open_Click()CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"CommonDialog1.ShowOpenRichTextBox1.FileName = CommonDialog1.FileNameRichTextBox1.LoadFile FileNameMe.Caption = "记事本-" & FileNameEnd SubPrivate Sub QX_Click()RichTextBox1.SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1.Text)End SubSub RichTextBox1_Change()TabStop = FalseEnd SubPrivate Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeySpace ThenRichTextBox1.SelFontName = CommonDialog1.FontNameEnd IfEnd SubPrivate Sub zt_Click()RichTextBox1.SelText = Clipboard.GetTextEnd Sub五、运行结果六、设计体会通过本次课程设计，使我对VB的认识更加深入了一层，VB主要由两部分组成，一个是Visual可视化界面设计，另一个是Basic程序设计。

基于VB的文本编辑器设计

文宁处理是在计算机应用中经常会用遇的操作，如文本文件的打开与保存操作，排版与格式设置，字词查找等。Ｗｉｎｄｏｗｓ中如ｗｏｒｄ、记事
本、ＷＰＳ、写字板等都是文字处理应用程序。本设计利用ＶＢ制作了一个多文档文本编辑器。
窗体操作包括窗体初始化时设置窗体大小的Ｆｏｒｍ＿Ｌｏａｄ事件，当子
２．１．１建立ＭＤＩ窗体
件，否则调用 “ 另存为”菜单的单击事件。通过在ＭＤＩ窗体中共有字符串变量ｆｉｌｅＮｍｅ保存文件的路径及文件名，在 “ ａ打开”菜单事件或 “ 另存为”菜单事件中可以给ｆｉｌｅＮｍｅａ赋值。
ｆ３）编辑菜单编辑菜单项功能包括：复制、剪切、粘贴、删除选中内容，文字设
全部替换在整篇文档范围内进行替换。多文档文本编辑器由菜单、工具栏、ＲｉｃｈＴｅｘｔＢｏｘ控件、通用对话框控件、图像列表框组成。
二、－文本编辑器编程实现
２．１界面设计
界面设计包括ＭＤＩ窗体设计，ＭＤＩ子窗体设计以及普通窗体设计。ＭＤＩ窗体可以打开文档；ＭＤＩ子窗体中可以对文档进行具体的操作；普通窗体用来进行查找和替换。
件中可以进行以上设置。
子窗体。执行 “ 工部件” 菜单命令，在出现的对话框中，选中择 “ ＭｉｃｏｒｓｏｆｔＲｉｃｈＴｅｘｔｂｏｘＣｏｎｔｒｏｌｓ６．０ ”将ＲｉｃｈＴｅｘｔＢｏｘ控件添加到工具箱。将ＲｉｃｈＴｅｘｔＢｏｘ控件添加到窗体上用来进行文本操作，Ｎａｍｅ属性设置为：

VB课设记事本编辑器

沈阳航空航天大学课程设计任务书学院：航空航天学部专业：飞行器设计与工程班级：14030302 学号：2011040303061题目：模仿记事本程序一、课程设计时间2012年8月27日~9月7日（第1~2周），共计两周，40学时。

二、课程设计内容Windows系统的记事本程序是一个纯文本的编辑软件。

要求模仿该程序，实现它如下功能：1.文件的新建三、课程设计要求程序质量：✧贯彻事件驱动的程序设计思想。

✧用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。

✧用户界面中的菜单至少应包括“进书”、“售书”、“计算利润”、“书库现状”、“出售现状”、“退出”6项。

✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。

课程设计说明书：✧课程结束后，上交课程设计说明书和源程序。

课程设计说明书的内容参见提供的模板。

四、指导教师和学生签字指导教师：________ 学生签名：________五、成绩六、教师评语目录需求分析 (4)设计分析 (4)技术要点 (8)主要界面截图 (11)总结 (14)完整的源程序 (16)参考文献 (23)需求分析制作一个文本编辑器，实现编辑器的主要功能。

记事本编辑软件是用来快捷有效的记录用户简单事宜的小工具。

它不需要office文档强大功能，它要做的就是操作简单，用户界面小巧简便。

我所设计的这款记事本编辑软件正是基于对操作简便的考虑，在不影响用户的运用的情况下，尽可能的追求界面的整洁。

对于这一点，这款记事本程序完全符合我的设想。

设计分析（1）概述：我所设计的这款记事本编辑软件主要运用了CommonDialog控件和Richtextbox控件的部分功能实现的。

如ComonDialog的ShowColor、ShowFont、ShowHelp、ShowOpen、ShowPrinter、ShowSave属性，Richtextbox的Font、Visible、Text、Filename等属性。

用VB做文本编辑器

要做工具栏，首先需要一个叫ImageList的控件来装载图像。在程序界面上添加它，然后右键单击此控件，左键单击“属性”，弹出“属性页”对话框的“图像”，再单击“插入图片”就可以一次性装载图片了（如不满意，以后还可以添加）。图片可在C:\Microsoft Visual Studio\Common\Graphics\Bitmaps\TlBr_W95下选择(这里假设你的VB安装在C盘下)。注意了：在插入图片时给每一张图片注明关键字，以便在引用图片时不至于混乱。如插入“新建”的图片，我们在“关键字”栏注明“New”。
二.状态栏
(一)制作状态栏
状态栏的英文名字叫StatusBar，在窗体上添加它后会默认出现在窗体的最下方。用鼠标右键点击它，调出“属性页”对话框，单击“窗格”项，插入一些窗格，可以将各个窗格的“样式”设置为：
0-sbrText 显示文本，需编写代码
1-sbrCaps 显示大小写状态，无需编程
(二)编写工具栏的按钮代码
工具栏按钮的代码编辑很简单，可以按照下面的格式去编写：
Private Sub ToolBar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error Resume Next '出错处理
Select Case Button.Key '按关键字选择
'设置弹出式菜单（即在编辑框中单击鼠标右键时弹出的动态菜单）
Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then

VB课程设计报告代写

VB课程设计报告代写一、教学目标本课程的教学目标是使学生掌握VB编程的基本知识和技能，能够运用VB编写简单的程序。

具体包括：1.知识目标：理解VB编程的基本概念，如变量、数据类型、运算符、控制结构等；掌握VB编程的基本语法和程序结构。

2.技能目标：能够使用VB编写简单的程序，如计算器、文本编辑器等；能够阅读和理解VB程序代码。

3.情感态度价值观目标：培养学生的编程兴趣，提高学生的问题解决能力，培养学生的创新思维。

二、教学内容根据课程目标，教学内容主要包括VB编程的基本概念、语法和程序结构。

具体安排如下：1.引言：介绍VB编程的概念和应用，激发学生的学习兴趣。

2.基本概念：讲解VB编程的基本概念，如变量、数据类型、运算符等。

3.程序结构：讲解VB编程的程序结构，如顺序结构、选择结构、循环结构等。

4.常用控件：介绍VB编程中常用的控件，如按钮、文本框、标签等。

5.事件驱动编程：讲解事件驱动编程的概念和原理。

6.文件操作：讲解VB编程中的文件操作，如文件的打开、读写、关闭等。

7.编程实践：安排一定的实践环节，让学生动手编写简单的VB程序。

三、教学方法为了达到课程目标，我们将采用以下教学方法：1.讲授法：讲解VB编程的基本概念和语法。

2.案例分析法：通过分析具体的VB程序案例，使学生理解程序的结构和原理。

3.实验法：安排一定的实验环节，让学生动手编写和调试程序。

4.讨论法：学生进行小组讨论，培养学生的合作能力和问题解决能力。

四、教学资源为了支持教学内容和教学方法的实施，我们将准备以下教学资源：1.教材：选择合适的VB编程教材，为学生提供系统的学习资料。

2.多媒体资料：制作课件和教学视频，丰富教学手段，提高学生的学习兴趣。

3.实验设备：准备计算机和相关的实验设备，为学生提供动手实践的机会。

4.在线资源：推荐一些VB编程的在线教程和论坛，方便学生自学和交流。

五、教学评估本课程的评估方式包括平时表现、作业和考试三个部分，以保证评估的客观性和公正性。