网站大量收购闲置独家精品文档,联系QQ:2885784924

vb课程设计报告--猜数字游戏.doc

  1. 1、本文档共17页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
河北联合大学 《软件设计基础(VB)》 课程设计报告 设计名称: 猜 数 字 游 戏 姓 名: x c 学 号: 2010030101 专业班级: 学 院: 机 械 工 程 学 院 设计时间: 2011年6月3日——2011年6月24日 设计地点: 学 校 机 房 指导教师评语: 指导教师签字: 年 月 日 目 录 1.课程设计目的 3 2.课程设计任务与要求 3 3.课程设计说明书 4 4.课程设计成果 11 5.程序调试过程 13 6.设计问题的不足和改进方案 14 7.课程设计心得 15 8.附录 17 9.参考文献 17 1.课程设计目的 《软件设计基础(VB)》课程设计是这门课程的实践性教学环节之一,本次设计结合实际应用的要求,使课程设计既覆盖VB的知识点,又接近工程实际需要。目的是通过课程设计的综合训练,培养学生实际分析问题、解决问题的能力,以及编程和动手能力,最终目标是通过课程设计这种形式,帮助学生系统掌握VB这门课程的主要内容,养成良好的编程习惯,更好的完成教学任务。 2.课程设计任务与要求: 要求: 本次课程设计利用《软件设计基础(VB)》课程中所学到的编程知识和编程技巧,完成具有一定难度和工作量的程序设计题目,帮助学生掌握编程、调试的基本技能,独立完成所布置的任务。 要求: 1、对系统进行功能需求分析 2、设计合理的数据结构和系统框架 3、界面设计美观、清楚、合理 4、编程简练,程序功能齐全,能正确运行 5、具有一定的创新性 6、说明书、流程图要清楚 7、课题完成后必须按要求提交课程设计报告 任务: 熟练使用循环结构和选择结构; 掌握基本控件 使用一些基本函数 程序能完整运行 5、该程序需要一定创新 3.课程设计说明书 ⑴功能描述 游戏运行后,玩家可以根据提示结果,猜测正确的数字,此游戏能考察玩家的逻辑思维,最终结果猜测正确,可以显示你总共猜测次数,谁猜的次数少,谁就获胜。 ⑵概要设计 模块结构图: 根据功能分析,建立系统的体系结构,即将整个系统分解成若干子模块,用框图表示各功能模块之间的接口关系(如下图)。 简易文件系统功能框图 ⑶详细设计 1、首先在Form中加入一个CommandButtion控件,在Command1上点击鼠标右键,选择复制,在窗体上点击鼠标右键,选择粘贴在窗体上粘贴出九个Command1,此时出现对话框问你要不要创建控件数组,在此选择是。然后再加入两个CommandButtion控件,一个ListBox、一个Frame、一个Label 。设置窗体的Caption属性为“猜一猜”、BorderStyle为1-Fixed Single、控件数组的Captin分别为0、1、2、3、4、5、6、7、8、9,Command2的Caption为“确定,Command3的Caption为“取消,Frame1的Caption为“提示:,Label1的Cpation为“0 个数值及位置猜对,0个数值猜对但位置不对”。然后选择菜单编辑器编辑菜单为:游戏、新游戏、显示答案、结束游戏,她们的Name属性分别为:Game、New、View、End。 2、在Form_Load()事件中使除菜单外的所有的控件不可操作。 3、在New_Click()事件中产生4个不同的随机数,并使Command2可操作。 4、在Command1_Click(Index As Integer)中将控件数组的索引值作为所猜的数值,共按下控件数组Command1中的不同的4个。 5、单击确定按钮时,判断用户输入是否正确 ⑷代码实现 Dim pca, pcb, pcc, pcd As Integer 电脑给出的每一位数 Dim usera, userb, userc, userd As Integer 用户输入的每一位数 Dim degree As Integer 用户猜了几次 Dim num As Integer 判断用户输入次数的变量 Private Sub Command1_Click(Index As Integer) 用户输入时 If num =

文档评论(0)

ze122230743 + 关注
实名认证
内容提供者

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

1亿VIP精品文档

相关文档