vb科学计算器[分享借鉴]

1、课 程 设 计 指 导 书课 程 vb计算器程序设计 班 级 姓 名 学 号 目录一 功能描述.3二 概要设计及设计流程框图.3三 详细设计.3四 效果及运行界面图.4五 心得体会.4六 附录.6七 参考文献.6八 本人在改组中完成的部分.7九 进度安排.7一、功能描述：窗体通过窗体命令按钮或键盘输入数字实现基本的数学运算，使用窗体的功能按钮计算某些特殊函数二、概要设计及设计流程框图：使用vb设计科学型计算器，功能介于科学型和简单型之间,要求能进行加、减、乘、除和开方、乘方、对数、三角函数计算,可以存储与调出数据。在这个计算器的程序中，我用到了单行选择语句If Then Else,If语句的嵌

2、套，多条件选择语句Select Case。科学计算器数据的处理保存调出清除特殊运算功能阶乘平方对数三角函数开方基本运算+*/三、详细设计：本系统1个文本框，数个命令按钮，数个数字按钮用文本框显示输入的数字并将结果显示在文本框中，用命令按钮来计算和输入数字。详细内容： command12(0-9)为数字的控件数组，command13(4-11)为功能函数的控件数组，command13(0-3)为运算符的控件数组，command25为小数点按钮，command26为等号按钮，command1为开关按钮，command2为清除按钮。四、效果及运行界面：基本能完成所有运算五、心得体会 为期一周的实训即

3、将结束，通过这次的实训使我们学到了很多，同时也让我们意识到我们要学的更多。本次实训的内容是科学计算器的程序设计，以小组的形式进行分工合作，我组共4个人，从程序的需求分析、可行性分析、设计到编写、调试、修改、完善、到最后的实训报告，每个人都付出了时间和精力去做好自己的任务并努力地去完善它。实训的第一天接到任务时我们都觉得有点难度，很有挑战性，毕竟计算器是一个比较系统、完善、功能相对较齐全的计算程序，因此程序编写也十分复杂，工作量较大，编写一定要认真。一个小小的失误都可能使程序出现大的漏洞。而我们只是学了点简单的vb程序编写，没有尝试过这种相对来说比较系统完善的系统。所以在做项目的时候我们倍感压力

4、、更加的团结协作，可即使如此我们还是出现了错误，我们的程序在编写上存在一些漏洞，导致调试时不能正常运行，后经过老师的指导、我们的调整，终于可以完美的运行，这里也耽误了我们很多宝贵的时间，直接导致了我们在项目调试上速度不够快。总的来说，这次实训还是比较成功的。最后出来的系统，大家都很有成就感，这是我们一步步设计、一步步完善、辛苦付出后得到的成果。小组合作、帮助队友，无论是团队合作这方面还是个人动手这方面，我们都得到了很好的锻炼。当然实训不仅使我们学到了知识，也帮助我们缩小了实践和理论的差距，通过这次实训让我们更深一步的对vb这门课程的知识有更进一步的渴望，同时对自己的专业，对自己的能力，对自己所

5、学的有正确的认识，并且能在以后的学习工作中不断提高和完善自己。 六、附录：数字Private Sub Command12_Click(Index As Integer)num = num + Command12(Index).CaptionText1.Text = numEnd Sub小数点Private Sub Command25_Click()If InStr(num, .) 0 ThenExit SubElsenum = num + .End IfText1.Text = SumEnd Sub对数 开方 平方 阶乘 三角函数 加减乘除 Private Sub Command13_Clic

6、k(Index As Integer)If Text1.Text Thennum1 = numText1.Text = num = 清空所有记录，并保存输入数End Ifop = Command13(Index).CaptionEnd Sub开关Private Sub Command1_Click()If Command1.Caption = NO ThenCommand1.Caption = OFFCommand2.Enabled = TrueElseCommand1.Caption = NOEnd IfEnd Sub清除Private Sub Command2_Click()Text1.T

7、ext = num = num1 = End Sub等于号Private Sub Command26_Click()Select Case opCase +Sum = CStr(Val(num1) + Val(num)Case -Sum = Val(num1) - Val(num)Case Sum = Val(num1) * Val(num)Case If num = 0 ThenMsgBox 除数不能为零,请重新输入num = ElseSum = Val(num1) / Val(num)End IfCase InSum = Log(Val(num1)Case ExpSum = Exp(num

8、1)Case SqrSum = Sqr(num1)Case sinxSum = Sin(num * 3.141592654 / 180)Case cosxSum = Cos(num * 3.141592654 / 180)Case tanxSum = Tan(num * 3.141592654 / 180)Case x2Sum = num * numCase !Sum = num1For i = 1 To num1 - 1Sum = Sum * (num1 - i)Next iEnd SelectText1.Text = SumEnd Sub七、参考文献1Visual Basic6.0编程案例精解 张路平 电子出版社2Visual Basic程序设计王学军 中国铁道出版社3计算机软件技术基础徐士良 葛兵 清华大学出版社4Visual Basic 程序设计上机指导与习题解答、Visual Basic程序设计 机械工业出版社5Visual Basic程序设计北京邮电大学出版社6Visual Basic程序设计完全自学手册人民邮电出版社 7百度文库vb计算器。 八、本人在该组中完成的部分： 查阅资料，设计计算器界面，编写vb的三角函数，开方，平方，对数。九、进度安排：第一 二 三天：查找