选择有趣算例激发学生兴趣上好VB程序的设计课.docVIP

  • 2
  • 0
  • 约3.82千字
  • 约 9页
  • 2018-11-07 发布于福建
  • 举报

选择有趣算例激发学生兴趣上好VB程序的设计课.doc

选择有趣算例激发学生兴趣上好VB程序的设计课

选择有趣算例激发学生兴趣上好VB程序的设计课   【摘要】选择古今中外有趣算例,通过剖析,联系实际进行VB程序设计课的讲授,可以激发学生学习兴趣,提高学生学习积极性。它对于学生深刻理解高级语言程序设计中的基本概念、数据类型、计算方法,正确使用运算符、灵活设计程序结构等有着事半功倍的作用。是一个值得大力推广办法。   【关键词】选择算例;联系实际;讲授VB;事半功倍   我是一名中等职业技术学院讲授Visual Basic(简称VB)程序设计课程的教师。VB是一种面向对象的程序设计的高级语言,是目前最为流行的程序设计语言之一。它由Basic发展而来,目前已进入了VB.NET阶段。   上个世纪50年代,当计算机还处于第一代——即电子管计算机时代时,为了使工程技术人员在科学计算中,能充分利用计算机,人们在计算机的低级语言:机器语言和汇编语言之后,开发了第一个适用于科学计算的程序设计高级语言——FORTRAN语言(Formuler Translation)。到了60年代,当计算机上升为第二代——晶体管时代时,为了普及计算机程序设计,就诞生了第二个程序设计高级语言:基于初学者通用目的的符号指令代码——Basic   (Beginner’s ALL-puperse Symbolic Instruction Code)。在此之后各种面向过程的程序设计高级语言如雨后春笋般的被开发了出来,如70年代发展起来的C程序设计语言等。进入80年代后,伴随着计算机进入了第三代(中小规模集成电路计算机)、第四代(大规模集成电路计算机),微型计算机得到了空前的大普及。微机操作系统由磁盘操作系统DOS(Disk    Operating System)被视窗操作系统Windows所取代。人们在面向过程的程序设计基础上,引入了可视化编程(Visual)的方法,并在程序设计中引入了类和对象、方法和事件驱动等概念,程序设计逐渐由面向过程过渡到了面向对象。如人们最常用的Visual Basic、Visual C++、Vi-   sual J++、Visual FoxPro等。但既然是过渡,尽管人们进入了面向对象的程序设计时代,但各种程序设计高级语言都不可避免地带有面向过程的烙印。如程序的基本结构,都分为顺序结构、选择结构、循环结构。   作为一名中等职业技术学院的计算机教师,面对的是一些理解力较差、概念较为模糊、基本功较低的学生。如何对这些学生讲好程序设计课?如何使他们对程序设计产生兴趣、提高学习积极性,学好程序设计课?几年来在教学实践中,总结正反两方面的经验和教训,我深深地认识到,要想真正上好面向对象的程序设计课,并非易事。必须在理论联系实际,激发学生的学习兴趣,提高他们的学习积极性上狠下功夫。只有千方百计,通过挖掘选择有趣的古今中外著名算例,联系实际,深入浅出地进行剖析,才能为学生讲清讲透程序设计语言中的数据类型、运算符、表达式、基本结构等基本概念,提高程序设计课的教学质量,使学生在学习程序设计时少走或不走弯路,达到事半功倍的结果。   在讲VB程序设计时,为了使学生能够较深刻的理解不同数据类型所允许的运算,不同运算符的功能差异,学会正确使用基本结构的嵌套,经认真筛选,我选择了以中国古代算题“百钱买百鸡”为例,引导学生设计解决该问题的VB应用程序。该题要解决的问题是:   每只公鸡5元钱,每只母鸡3元钱,每3只小鸡1元钱。今有100元钱,要求必须且只能买100只鸡。问可买公鸡、母鸡、小鸡各多少只。   这个问题既可蜕变为中国民间妇孺皆知的“百僧分百馍”问题,也和“百马驮百担”问题类似,都是未知数的个数比方程的个数多1个不定解问题。它可能无解,也可能只有一组解或多组解。   同学们对此题非常感兴趣,因为他们在孩提时代就拼凑过“百僧分百馍”的古   (下转第28页)   (上接第20页)   老算题,但只是拼出了答案:25个大和尚、75个小和尚,但却说不清楚是否还有别的解。此时,看到要解决一直困扰他们的问题了,学生们精神大振,动脑筋分析问题的积极性机灵型也大为提高。据此引导他们分析该题。   由于每只公鸡(coke)5元钱,所以100元全部用来买公鸡,也最多一直能买20只。因此买公鸡的可能是0只到20只;同理买母鸡(hen)的可能是0只到33只;而买小鸡(poult)的可能只能是100-公鸡数-母鸡数。可见这是一个典型的枚举求解问题,所以设计出了如图1所示VB窗体界面,并未窗体中标题为“计算开始”的按钮,设计出了单击按钮Command1_Click程序。它的VB程序源代码如下:   Private Sub Command1_Click()    Dim coke, hen, poult As Integer    Dim mo

文档评论(0)

1亿VIP精品文档

相关文档