同学的实训总结

1、江西科技师范学院 数学与计算机科学学院 计算机科学与技术1班Visual Basic程序设计实训总结 姓 名 ： 蒋 建 伟前言：随着科学技术的不断提高，计算机科学日渐成熟，计算机已经深入到工作和生活的各个角落，文字录入是学习计算机非常重要的一部分。在手写录入技术和语音识别技术还不完善的同时大部分人还在使用键盘作为文字录入的工具。所以我编了这样一个小程序，同时也是我的毕业设计，希望能对电脑初学者和想提高打字速度的朋友们有所帮助。 计算机是人类社会20世纪的重大科技成果之一。自1946年世界第一台电子数字计算机诞生至今，在短短50多年的时间里，计算机技术得到了飞速发展。目前计算机已广泛应用在工业

2、，农业，科技，国防，文教，卫生，家庭生活等各个领域中，已成为现代人类生活不可缺少的智能工具。二十世纪的后半期，尤其是90年代后，计算机取得了飞速的发展。近来，随着网络的发展，计算机已经成为人们生活中不可缺少的一部分。提高人们对计算机的操作能力显得尤为重要。而打字速度是衡量一个人操作熟练程度的一个重要方面。因此开发一种高效的打字系统显得迫在眉睫。而我这次的实训就是利用已学的编程知识来制作一个相对比较简单的打字系统。下面就是关于该次实训的总结。首先、先介绍一下我的实训内容（打字练习）：用Visual Basic 6.0制作一个程序，它可以打开一个文本文件并让该文件显示在某个控件上面、用户可对照该文

3、件来练习汉字输入即练习打字，结束时点击完成后可得出打字速度和正确率并将正确的字与错误的字区分或标记出来。 其次、介绍一下该程序开发工具Visual Basic 6.0：本系统使用的开发工具是VB6.0，它是目前比较流行的开发工具。面向对象的程序设计Visual Basic6.0它提供了开发Microsoft Windows应用程序的最迅速、最简捷的方法。不论是Microsoft Windows 应用程序的资深专业开发人员还是初学者，Visual Basic6.0都为他们提供了整套工具，以方便开发应用程序。Visual Basic是面向对象程序设计的有利工具，它不仅秉承了BASIC的特点，而且为

4、人们揭开了开发Windows应用程序的神秘面纱，有了它、您就能成为Windows环境下的编程高手。何谓Visual Basic？其中，“Visual”中文意义为“可视化”，它提供了一种创建图形用户接口（GUI）的方法。利用这种方法，用户不必书写复杂的描述接口元素外观和位置的程序代码，而只需将系统提供的对象放在屏幕上的适当位置，并通过属性窗口进行适当的设置，即可设计一个优秀的程序界面。“Basic”指的是BASIC（Beginners A11-Purpose Symbolit Instruction Code）语方，一种在计算技术发展历史上应用得最为广泛的语言。Visual Basic在原有BA

5、SIC编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。程序的使用方法：打开程序时，可以看到一个进入界面（如图1-1），界面的右边有一个用打字效果显示的坐姿注意事项，再者、用户可以选择性地打开本地文件或直接打开系统内置文件，打开的本地文件是从电脑中选择txt格式的文章，直接打开的文件有四、三篇难度不同的文章，选择之后还可以在三篇文章之间随机切换；选择后单击“确定”后进入打字界面（如图1-2）。进入键盘打字系统窗口后，之前选择的文章就会显示在上面供对照。点击“开始”打字测试按钮后，开始打字，打字过程中会显示打字用时以及进度，中途还可以暂停再继续。结束打字时点击“完成”就会用两种

6、不同的颜色来区分并显示打字的对与错、速度及准确率。图1-1图1-2实训过程、遇到的问题及心得体会：刚拿到实训题目及要求的时候，我觉得这个很难、也蛮复杂的，这不就是要我做一个像金山打字那样的一个程序软件嘛！最开始觉得它难，还有一个原因就是我们每周做的实验都相对来说比较简单。我们每五到六个人一组，我这组有五位同学。老师的要求就是我们五个人可以讨论如何完成这个程序并把它做得更好，但最后我们都要自己完成自己的程序。接下来，我们就开始来完成它了。我作为一名计算机专业的学生，在程序设计方面，我还并不是很熟悉，还只是个初学者。这个程序编写蛮复杂，工作量比较大，编写一定要认真。一个小小的失误都可能使程序出现大

7、的漏洞。而我们只是学了点简单的Visual Basic程序编写，还没有尝试过这种相对来说比较系统完善的程序。所以在做这个项目的时候，我们倍感压力、也更加的团结协作，可即使如此我们还是出现了错误、问题，我们的程序在编写、设计、思路上或多或少都存在过一些漏洞、不足甚至错误，导致调试时不能正常运行、一直报错，但是后来经过老师的指导、我们的讨论并做出调整，终于可以完美的运行了。通过老师详细的讲解、指导，我们按照步骤去做，遇到问题的时候先自己想办法解决，解决不了的就去问同学、跟同学讨论，最后问老师，完成的过程中也发现了许多自己在学习方面的不足，取长补短，互相学习，共同进步，我们不但学习了知识，也更好的证

8、明了实践是检验真理的唯一标准。通过这种学习，我们收获很大，学会了自己解决棘手问题，也知道了团结的力量。经过这次的Visual Basic程序设计的实训，让我知道了更多的学习方法。概括具体如下：(1)保持良好的学习心态：第一，要有自信，自强，积极主动学习；第二，克服畏难情绪，树立学好程序设计的信心。(2)要了解概念：VB程序设计本身并不复杂，变量，函数，条件语句，循环语句等概念较多.要真正能进行程序设计，就要深入理解这些概念.应该重视概念的学习.(3)自己动手编写程序，亲自动手进行程序设计是培养逻辑思维的好方法.因此我们得多动手编写程序，逐渐提高写程序的能力.自己动手，编写一些程序，才会有成就感

9、，进而对课程产生兴趣，做起来才比较从容.等你在编写大量程序之后(4)上机调试程序应注意多问问同学，多问问老师、，把不懂的地方标出来。(5)养成良好的编程习惯：第一，程序构思要有说明;第二，学会如何调试程序; 第三，对运行结果要做正确与否的分析。但是，如果以前上课的时候不认真听讲的话，做这个程序设计就会有点困难，所以，同时也在提醒我们，学习，任何时候都要认真！总之，在此次的Visual Basic程序设计中，如果没有足够的耐心，就不可能完成的很好。所以此次Visual Basic程序设计，让我做事情更加有耐心，更加细心，学习更加认真仔细。 在整个实训过程中，老师对我们亲切、认真、负责，很有耐心地

10、对我们进行讲解并指导我们解决遇到的难题。老师交会了我们很多简单实用的技巧。也让我们意识到了要想全面完整地完成一个模块，首先要进行程序的设计，全面分析会用到的东西以及考虑可能会出现的情况，理清思绪、写出大致的要点后再上机编写程序以及操作。否则像一开始的我们马上上机编写、想到什么就补什么，不仅浪费时间也乱了之前写好的一些程序。系统分析越准确，设计的系统越精确，可以大大减少后期的修改、维护工作。当然做好、做对一个项目固然重要，同时美观程度也是必不可少的，无论是从参观者的角度还是自己看的角度都很重要。所以后期我们都给自己的程序加了一个很漂亮的进入界面。总的来说，这次实训、还是比较成功的。最后出来的系统

11、，大家都很有成就感，这是我们一步一步设计、一步一步完善、辛苦付出后得到的成果。小组合作、帮助队友，无论是团队合作这方面还是个人动手这方面，我们都得到了很好的锻炼。当然，实训不仅使我们学到了知识，也帮助我们缩小了实践和理论的差距，通过这次实训，让我们更深一步的对Visual Basic这门课程的知识有更进一步的渴望，同时对自己的专业，对自己的能力，对自己所学的有正确的认识，并且能在以后的学习工作中不断提高和完善自己。附-程序代码：Form1:Option ExplicitDim ss As StringDim sp As IntegerDim cs As StringPrivate Sub Fo

12、rm_Load()Dim s As String, nl As String * 2Text1.Text = ""ss = ""sp = 0nl = Chr$(13) & Chr(10)Open App.Path + "20101988.txt" For Input As #2While Not EOF(2) Line Input #2, s ss = ss & s & nlWendClose #2End SubPrivate Sub Option1_Click()Form2.Label6.Caption =

13、""Form2.Label4.Caption = "一个鸡蛋的温暖"Open App.Path + "一个鸡蛋的温暖.txt" For Input As #1Do Until EOF(1) Form2.Label6.Caption = Form2.Label6.Caption + Input(1, #1)LoopClose #1End SubPrivate Sub Option2_Click()Form2.Label6.Caption = ""Form2.Label4.Caption = "跳下悬崖找活路

14、"Open App.Path + "跳下悬崖找活路.txt" For Input As #1Do Until EOF(1) Form2.Label6.Caption = Form2.Label6.Caption + Input(1, #1)LoopClose #1End SubPrivate Sub Option3_Click()Form2.Label6.Caption = ""Form2.Label4.Caption = "相爱，不只是一句承诺"Open App.Path + "相爱，不只是一句承诺.txt&qu

15、ot; For Input As #1Do Until EOF(1) Form2.Label6.Caption = Form2.Label6.Caption + Input(1, #1)LoopClose #1End SubPrivate Sub Option4_Click()Form2.Label6.Caption = ""Form2.Label4.Caption = "本地文章"CommonDialog1.Filter = "文本文件*txt/*.txt"CommonDialog1.InitDir = "桌面:"

16、;CommonDialog1.FilterIndex = 1CommonDialog1.ShowOpenOpen Me.CommonDialog1.FileName For Input As #1Do While Not EOF(1) Line Input #1, cs Form2.Label6.Caption = Form2.Label6.Caption + Trim(cs) + Chr(13) + Chr(10)LoopClose #1End SubPrivate Sub Command1_Click()Form1.Hide '隐藏第一个窗体Form2.Show '显示第二

17、个窗体End SubPrivate Sub Command2_Click()End '退出End SubPrivate Sub Timer1_Timer() '在第一个窗体上添加一个打字效果的提示Dim sw As String, curx As Single, cury As Singlecurx = Picture1.CurrentXcury = Picture1.CurrentYPicture1.Line (curx, cury)-(curx + 300, cury + 300), Picture1.BackColor, BFPicture1.CurrentX = cur

18、xPicture1.CurrentY = curysp = sp + 1If sp > Len(ss) Then Timer1.Enabled = FalseElse sw = Mid(ss, sp, 1) If Asc(sw) = 13 Then Picture1.Print "" sp = sp + 1 sw = Mid(ss, sp, 1) Else Picture1.Print sw; End If curx = Picture1.CurrentX cury = Picture1.CurrentY Picture1.Line (curx + 20, cury

19、+ 230)-(curx + 120, cury + 240), QBColor(10), BF Picture1.CurrentX = curx Picture1.CurrentY = curyEnd IfEnd SubForm2:Option ExplicitDim m, n, t, i As IntegerPrivate Sub Form_Load()Label5.Caption = Form1.Text1.Text & "你好，欢迎进入！单击左下角“开始”准备练习及测试！"Command1.Caption = "开始"End SubPri

20、vate Sub RichTextBox1_Change()ProgressBar1.Max = Len(Label6.Caption)ProgressBar1.Min = 0ProgressBar1.Value = Len(RichTextBox1.Text)Label8.Caption = Format(Len(RichTextBox1.Text) / Len(Label6.Caption), "0.00%")End SubPrivate Sub Timer1_Timer()t = t + 1Text3.Text = Int(t / 60) & "分&

21、quot; & t Mod 60 & "秒"End SubPrivate Sub Command1_Click()RichTextBox1.Locked = Falsem = m + 1If m Mod 2 = 1 Then RichTextBox1.SetFocus: Timer1.Enabled = True: Command1.Caption = "暂停"If m Mod 2 = 0 Then Timer1.Enabled = False: Command1.Caption = "继续": RichTextBox1.Locked = TrueEnd SubPrivate Sub Command2_Click()For i = 1 To Len(RichTextBox1.Text)I