项目教学在VB程序设计中的应用.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
项目教学在VB程序设计中的应用   摘要:传统的程序设计教学不太符合学生的认知规律,不能切实提高学生的应用能力。针对这个问题,讨论了基于探究式学习的项目教学,具体阐述了VB程序设计课程中的项目分解和教学的实际案例。   关键词:VB程序设计;项目教学;探究式学习   中图分类号:G642文献标识码:A文章编号:1009-3044(2008)21-30586-03      1 引言      VB程序设计的传统教学方式一般先介绍数据类型、对象、属性、方法和事件等一系列概念,然后介绍程序的建立和运行, 最后介绍VB语言基础、分支结构、循环结构和数组。这对非计算机专业学生而言,难于很快体会VB的价值,陷入难懂的概念理解,对VB畏而远之。      2 探究式学习与项目教学      2.1 探究式学习的基本特征   探究式学习是指“在学科领域或现实生活情境中, 让学生自主的探索、发现和体验,通过发现问题、调查研究、动手操作、表达与交流等探究性活动,学会对大量信息的收集、分析和判断,从而培养积极探索未知世界的科学态度、科学精神,进而增进思考能力、学习能力、创造能力和实践能力的学习过程。[1]”相对于传统的接受式学习,探究性学习本质上是一种学习方式的革命,它更多地强调自主探究,而不是被动接受。探究性学习的基本特征如下:   1)以问题情景或项目任务为先导;   2)以实践为根本;   3)以小组合作讨论为主要活动形式;   4)教师实现从传授向指导转变。   2.2 项目教学的基本方式   依据探究式学习的特征, 基于探究式学习的项目化教学应是一种以项目为先导和核心, 围绕具体项目让学生自主进行探究和解决问题的教学方式。对非计算机专业的VB程序设计课程进行项目化教学的基本思路是根据课程的内容和认知目标,重新合理安排组织知识内容顺序,按照探究式学习的需要,设计若干与实际紧密联系的软件项目,以项目为先导开展教学。具体实施时,遵循先学会如何做,探究为什么这样做,学生主动从做中学的原则。一般操作方式如下:   1)设置或演示问题情景,引导学生分析、提出项目要求;   2)教师示范教学,在实施项目过程中对遇到的基本知识作必要的说明讲解,引导学生探索相关语句的功能和使用方法,让学生在实践中体验程序设计的方法与步骤,完成对相关知识的认知,体验成功的乐趣;   3)引导学生结合实际,对项目进行深入分析,使学生感到问题的存在,造成认知矛盾和冲突,激发学生的求知欲和创造冲动,组织学生通过小组合作自主进行合作学习和编程实践,并对遇到的问题展开讨论和研究,不断调整计划和策略并最终解决问题;   4)组织各小组进行成果交流,将各种见解集中讲解,在澄清或重述探究的思想和方法中, 拓展认识与见解,开阔视野与思路,使学生对问题生成多层次的理解。   该课程的教学目标是培养具有程序设计思维和能力的应用型人才,在VB程序设计过程中采用上述的项目化教学方法不仅能使学生学到相应的知识,更重要的是学生成为学习主体,激发了学生的学习兴趣和主观能动性,让学生在自主探索的实践中学会学习,学会创造,学会合作。      3 项目教学实例――成绩管理系统      3.1 项目描述   制作一个简单的成绩管理系统,可以实现成绩的录入、查询、修改、求平均成绩等基本操作(如图1)。   在标准模块中代码如下:      Public b(1 To 50, 1 To 2) As Single, a As Integer   成绩录入窗体(图2)代码如下:   Private Sub Command1_Click()   Dim i As Integer   a = Val(Text1.Text)   For i = 1 To a   b(i, 1) = i   b(i, 2) = InputBox(请输入学号 i 的成绩)   Next i   End Sub   成绩查询窗体(图3)代码如下:   Private Sub Command1_Click()   Dim a As Integer, t1 As Integer, t2 As Integer   a = Val(Text1.Text)   For i = 1 To 49 选择排序开始   For j = i + 1 To 50   If b(i, 2) b(j, 2) Then   t1 = b(i, 1)   b(i, 1) = b(j, 1)   b(j, 1) = t1   t2 = b(i, 2)   b(i, 2) = b(j, 2)   b(j, 2) = t2   End If   Next j   

文档评论(0)

yingzhiguo + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

版权声明书
用户编号:5243141323000000

1亿VIP精品文档

相关文档