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计算器程序设计 班 级 姓 名 学 号 目录 一 功能描述………………………………………………………….3 二 概要设计及设计流程框图……………………………………….3 三 详细设计………………………………………………………….3 四 效果及运行界面图………………………………………………..4 五 心得体会…………………………………………………………..4 六 附录………………………………………………………………..6 七 参考文献……………………………………………………….….6 八 本人在改组中完成的部分…………………………………….….7 九 进度安排…………………………………………….…………….7 一、功能描述: 窗体通过窗体命令按钮或键盘输入数字实现基本的数学运算,使用窗体的功能按钮计算某些特殊函数 二、概要设计及设计流程框图: 使用vb设计科学型计算器,功能介于科学型和简单型之间,要求能进行加、减、乘、除和开方、乘方、对数、三角函数计算,可以存储与调出数据。在这个计算器的程序中,我用到了单行选择语句If … Then …Else…,If语句的嵌套,多条件选择语句Select Case。 三、详细设计: 本系统1个文本框,数个命令按钮,数个数字按钮用文本框显示输入的数字并将结果显示在文本框中,用命令按钮来计算和输入数字。详细内容: command12(0-9)为数字的控件数组,command13(4-11)为功能函数的控件数组,command13(0-3)为运算符的控件数组,command25为小数点按钮,command26为等号按钮,command1为开关按钮,command2为清除按钮。 四、效果及运行界面: 基本能完成所有运算 五、心得体会 为期一周的实训即将结束,通过这次的实训使我们学到了很多,同时也让我们意识到我们要学的更多。本次实训的内容是科学计算器的程序设计,以小组的形式进行分工合作,我组共4个人,从程序的需求分析、可行性分析、设计到编写、调试、修改、完善、到最后的实训报告,每个人都付出了时间和精力去做好自己的任务并努力地去完善它。 实训的第一天接到任务时我们都觉得有点难度,很有挑战性,毕竟计算器是一个比较系统、完善、功能相对较齐全的计算程序,因此程序编写也十分复杂,工作量较大,编写一定要认真。一个小小的失误都可能使程序出现大的漏洞。而我们只是学了点简单的vb程序编写,没有尝试过这种相对来说比较系统完善的系统。所以在做项目的时候我们倍感压力、更加的团结协作,可即使如此我们还是出现了错误,我们的程序在编写上存在一些漏洞,导致调试时不能正常运行,后经过老师的指导、我们的调整,终于可以完美的运行,这里也耽误了我们很多宝贵的时间,直接导致了我们在项目调试上速度不够快。 总的来说,这次实训还是比较成功的。最后出来的系统,大家都很有成就感,这是我们一步步设计、一步步完善、辛苦付出后得到的成果。小组合作、帮助队友,无论是团队合作这方面还是个人动手这方面,我们都得到了很好的锻炼。当然实训不仅使我们学到了知识,也帮助我们缩小了实践和理论的差距,通过这次实训让我们更深一步的对vb这门课程的知识有更进一步的渴望,同时对自己的专业,对自己的能力,对自己所学的有正确的认识,并且能在以后的学习工作中不断提高和完善自己。 六、附录: 数字 Private Sub Command12_Click(Index As Integer) num = num + Command12(Index).Caption Text1.Text = num End Sub 小数点 Private Sub Command25_Click() If InStr(num, .) 0 Then Exit Sub Else num = num + . End If Text1.Text = Sum End Sub 对数 开方 平方 阶乘 三角函数 加减乘除 Private Sub Command13_Click(Index As Integer) If Text1.Text Then num1 = num Text1.Text = num = 清空所有记录,并保存输入数 End If op = Command13(Index).Caption End Sub 开关 Private Sub Command1_Click() If Command1.Caption = NO Then Command1.Caption = OFF Command2.Enabl

文档评论(0)

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

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

1亿VIP精品文档

相关文档