vb科学计算器
vb科学计算器课程设计
vb科学计算器课程设计一、课程目标知识目标：1. 学生能理解并掌握VB编程环境中科学计算器的基本功能与操作。
2. 学生能运用VB编程语言实现加、减、乘、除等基本运算，并掌握科学计算器的扩展功能，如平方根、指数、对数等。
3. 学生能运用所学知识解决实际生活中的科学计算问题。
技能目标：1. 学生能够独立进行VB科学计算器的界面设计，编写程序代码实现计算功能。
2. 学生通过实际操作，提高编程解决问题的能力，培养逻辑思维和动手实践能力。
3. 学生学会使用调试工具，能够发现并修正程序中的错误，提高程序的稳定性。
情感态度价值观目标：1. 学生培养对计算机编程的兴趣和热情，激发创新意识，提高自主学习的积极性。
2. 学生通过合作交流，培养团队协作能力和沟通能力，学会分享与互助。
3. 学生在解决问题的过程中，认识到编程在科学计算领域的重要作用，树立正确的价值观，增强社会责任感。
分析课程性质、学生特点和教学要求：本课程为VB科学计算器编程，结合学生年级特点，注重知识性与趣味性相结合，以培养学生编程兴趣和动手实践能力为主。
在教学过程中，需关注学生的个体差异，因材施教，鼓励学生积极参与，注重培养团队协作和沟通能力。
教学要求明确，以学生为主体，教师为主导，实现课程目标的具体学习成果。
二、教学内容1. VB科学计算器的基本概念与功能- 熟悉VB编程环境- 了解科学计算器的基本功能与操作2. VB编程基础- 变量、常量的定义与使用- 数据类型与运算符- 程序流程控制（顺序、选择、循环结构）3. 科学计算器功能实现- 基本运算（加、减、乘、除）- 扩展功能（平方根、指数、对数）- 界面设计与事件处理4. 程序调试与优化- 使用调试工具- 识别并修正程序错误- 提高程序稳定性与执行效率5. 实践项目与案例分析- 完成一个科学计算器项目- 分析并改进现有科学计算器程序教学安排与进度：第一周：熟悉VB编程环境，学习基本概念与功能第二周：学习VB编程基础，了解程序流程控制第三周：实现科学计算器基本运算功能第四周：完成扩展功能，进行界面设计与事件处理第五周：学习程序调试与优化，分析案例第六周：完成实践项目，进行成果展示与评价教学内容与教材关联：本章节教学内容与教材中相关章节紧密关联，涵盖了《VB程序设计》教材中第二章至第五章的主要内容，确保了教学内容的科学性和系统性。
vb 简易计算器实验报告
简易计算器课程设计报告一、实验目的:模拟计算器的功能。
系统启动后, 先清屏, 再在显示屏右侧显示0字样, 系统仅接收数字键、加减乘除键、退格键、C键(复位)、=或回车键、ESC键(退出系统)作为有效按键, 其余按键不响应。
按键后屏幕显示效果要达到一般计算器显示屏的同样效果。
不要求设计一般计算器上都具有的M功能。
二、实验设计内容及思想:首先, 创建一个主体框架: 建立程序的主要界面后, 系统自动生成界面的主要窗口生成代码。
对于每个按钮的的代码段中, 分别添加事件触发的处理代码。
分别设立三个显示屏, 第一个显示屏作为“被加数”框, 第二个显示屏作为“加数”框, 第三个显示屏则作为输出框。
四则运算时直接采用计算表达式。
所以, 优先级和运算规则皆宜考虑在内。
在进行除法运算时, 若遇到除数为0, 则运用条件语句执行, 并在输出显示屏上输出“E”。
三角函数、指数、对数、整除、取余等运算, 也是运用类似手法。
考虑到计算器的操作简便性, 所以加入了复位和退出按钮。
三、源程序文件:Private Sub Command1_Click()Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x + yEnd SubPrivate Sub Command10_Click()Dim x As Integerx = Text1.TextText3.Text = Cos(x)End SubPrivate Sub Command11_Click()Dim x As Integerx = Text1.TextText3.Text = Tan(x)End SubPrivate Sub Command12_Click()Dim x As Integerx = Text1.TextText3.Text = Atn(x)End SubPrivate Sub Command13_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x ^ yEnd SubPrivate Sub Command14_Click() Dim x As Integerx = Text1.TextIf x <= 0 ThenText3.Text = "输入错误"ElseText3.Text = Log(x)End IfEnd SubPrivate Sub Command15_Click() Text3.Text = "此按钮仅作装饰用" End SubPrivate Sub Command2_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x - yEnd SubPrivate Sub Command3_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x * yEnd SubPrivate Sub Command4_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextIf y = 0 ThenText3.Text = "E"ElseText3.Text = x / yEnd IfEnd SubPrivate Sub Command5_Click()Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x \ yEnd SubPrivate Sub Command6_Click()Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x Mod yEnd SubPrivate Sub Command7_Click()Text1.Text = ""Text2.Text = ""Text3.Text = " 0" End SubPrivate Sub Command8_Click()EndEnd SubPrivate Sub Command9_Click()Dim x As Integerx = Text1.TextText3.Text = Sin(x)End Sub源代码截图:四、运行结果演示: 加法演示:减法演示: 乘法演示:除法演示:能够整除: 不能够整除:除数为零:。
VB程序语言设计科学计算器
VB程序语言设计课程大作业题目名称：科学计算器设计班级： 12020742姓名：学号：课程教师：温海骏学期： 2014-2015学年第2学期完成时间： 2015年5月1、实验内容《科学计算器》设计本科学计算器是一种能实现加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能，并带有存储器、统计框等，基本实现了Windows自带计算器的所有功能。
要实现计算器的这些功能就用到我们所学的VB知识编写程序来实现运算功能并解决问题，也是我们实训要达到的目的。
2、实验目的1、通过本实验，进一步理解Visual Basic的编程方法。
2、提高运用Visual Basic编程的能力。
3、培养对所学知识的综合运用能力。
4、用所学的VB知识编写程序来实现运算功能并解决问题，达到实训的目的三、实验设备计算机、VB软件4、实验过程1、课题的选材过程（设计思路）由VB程序设计的科学计算器是一种能实现加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能，并带有存储器、统计框等，基本实现了Windows自带计算器的所有功能。
思路：为实现上述功能，我的基本思路是在窗体上建立4个控件数组，第一个控件数组是标准型，实现简单的四则运算；第二个控件数组是科学型，用来进行正弦余弦、正切余切、正割余割、反正弦反余弦、对数和n！等函数功能；第三个控件数组为程序员，实现进制转换；另外一个按钮实现单位转换。
2、设计的将要达到的目标实现加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能，并带有存储器、统计框等，基本实现Windows自带计算器的所有功能。
3、总体设计结构与功能（1）总体设计结构介绍（绘制：结构流程图）结构流程图如下：（2）各功能模块运行界面的功能、算法和操作步骤VB程序算法如下：4、设计结果分析（运行结果展示、正确性分析）经调试，程序运行基本正确。
《软件设计基础(VB)》简单科学计算器课程设计报告书
河北联合大学 《软件设计基础（VB）》课程设计报告设计名称： 姓 名： 专业班级： 学 院： 设计时间： 设计地点：简易科学计算器学 号：指导教师评语：成绩：指导教师签字： 年月日目录1.课程设计目的 ··············································································32.课程设计任务与要求 ·····································································33.课程设计说明书 ···········································································44.课程设计成果 ············································································205.程序调试过程 ············································································236.设计问题的不足和改进方案 ··························································237.课程设计心得 ············································································248.附录 ························································································249.参考文献24《软件设计基础（VB）》课程设计报告第 3 页，共 26 页1．课程设计目的 《软件设计基础（VB）》课程设计是这门课程的实践性教学环节之一，本次设计结合实际应用的要求，使课程设计既覆盖 VB 的知识点，又接近工程实际需 要。
科学计算器vb代码
TabIndex = 21
Top = 2400
Width = 510
End
Begin Command1
Caption = "."
Height = 390
Index = 11
Left = 3915
TabIndex = 20
Top = 2400
Width = 510
Top = 1455
Width = 510
End
Begin Command1
Caption = "4"
Height = 390
Index = 4
Left = 2820
TabIndex = 4
Top = 1455
Width = 510
End
Begin Command1
Caption = "3"
Height = 390
End
End
End
Attribute VB_Name = "Frm_Scientific"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Caption = "*"
Height = 390
IndexLeabharlann = 1Left = 4470
TabIndex = 11
Top = 1455
Width = 510
End
vb简易科学计算器的设计与开发课程设计报告可视化编程武汉理工大学华夏学院
学号《可视化编程》课程设计报告简易科学计算器的设计与开发专业班级：计算机科学与技术1112学生姓名：指导教师：钱小红/李小艳教学系：信息工程系2012年6月15日课程设计报告书学生姓名：专业班级：计算机1111-1112班指导教师：钱小红/李小艳工作单位：华夏学院计算机教研室设计题目：简易科学计算器的设计与开发初始条件：1、完成可视化编程的学习2、带Visual Basic 的机器要求完成的主要任务：主要任务：（在规定的时间内完成下列任务）1、能够完成数值常数的四则运算，不要求支持运算符的优先级。
2、能够进行如下函数的求值运算，包括sin, cos, tan, exp, log, ln, sqr, 1/x，以及常数e和圆周率π。
3、设置5个存贮键，以便将中间运算结果存入，在需要的时候取出参与运算。
4、能够进行初始化，清除内存中的数，退出运算，清除显示。
5、因为控件数目较多，要求采用控件数组，以减少事件处理的复杂程度，使程序简洁高效。
6、出错处理:操作数如果不符合数学上的定义，应该给出错误信息。
例：0做除数，负数或0做真数等情况。
设计报告撰写格式要求：（课程设计报告按统一通用格式书写）具体内容如下：①设计任务与要求②总体方案与说明③程序主要模块的流程图④源程序清单与注释⑤问题分析与解决方案（包括调试记录、调试报告，即在调试过程中遇到的主要问题、解决方法及改进设想）；⑥小结与体会附录：①源程序（必须有简单注释）②使用说明③参考资料时间安排：6月15日---21日第一天布置题目，确定任务、查找相关资料第二天～第四天功能分析，编写程序，调试程序、运行系统；第五天程序验收、答辩；撰写设计报告。
指导教师签字：2012年6月15日系主任签字：年月日1.设计任务与要求1.设计任务利用VB语言设计一个简易的科学计算器，学会利用VB控件数组实现数值的计算以及基本函数的计算。
2.基本要求：（1）要能够完成数值常数的四则运算。
VB科学计算器课程设计
目录一、设计内容及要求二、设计原始资料三、设计完成后提交的文件和图表设计四、进程安排五、主要参考资料[摘要]用VB制作这个程序的简单计算器，它包括一个标准的计算器和一个科学计算器。
它可以实现简单的加减乘除四则运算，数字的平方、平方根，正弦、余弦、正切，倒数、指数函数、对数函数，角度、弧度、梯度的转换，以及各进制的相互转换。
而且它的功能还有退格，清除当前数据，清除所有数据，复制数据，粘贴数据。
在这个计算器的程序中，我用到了单行选择语句If…Then…Else…,块语句if…then…end if,If语句的嵌套，多条件选择语句Select Case,而且还用到了按钮、文本框、框架、单选按钮控件，菜单的设计。
在此报告中我重点叙述了计算机的各个功能及用法。
特别是进制间的转换和数字与运算符之间的联系。
虽然描述的不太完整，但我会尽力使用系统结构图，划分多个模块，让大家明白我设计的运算器的功能的。
[关键词]Visual Basic；计算器；对象；代码1三、设计完成后提交的文件和图表设计(要求2000字以上)1. 设计方案实现这个实用计算器，要考虑的主要是以下两个方面的内容：一、设置每个控件按钮的属性。
二、每组控件组都有自己的VB代码，由VB语言实现各个控件按钮的功能。
于是本设计就是以这两个个部分为核心内容展开。
根据设计要求该实用计算器能实现四则运算和部分科学计算法等按钮的控制，根据各组控件按钮源代码的不同，来实现按下不同的按键实现不同的计算过程或结果功能。
本设计大体由窗体、CommandButton、Textbox、Timer 四个模块构成。
其中Commandbutton作为按钮模块，Textbox作为显示模块，Timer作为显示或隐藏部分按键的模块。
Commandbutton按钮实现数字键和其他算法按键的功能；Textbox实现计算过程和结果的数字显示；Timerbox 实现当计算器只用到四则的简单运算时，窗体只显示四种运算的基本按键，当用到科学计算时，再在窗体中显示科学计算的控件按钮。
VB程序设计：计算器
2.3属性设置窗体和各控件的属性设置如下表所示2.4 系统功能本系统的主要功能及任务是1.简单计算2.科学计算2.5 系统功能模块图一.界面设计。
对象属性设置第三章详细设计3.1窗体3.2程序代码Public sum As DoublePublic k As StringPublic pi As DoublePublic c As DoublePublic d As DoublePublic n As DoubleFunction Log10(X)Log10 = Log(X) / Log(10)End FunctionFunction Logn(X)Logn = Log(X) / Log(n)End FunctionPrivate Sub check_Click()Shell "C:\WINDOWS\explorer.exe /263885058/blog/1322900561" End SubPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 1Text1.Text = Text1.Text & 1Case 2Text1.Text = Text1.Text & 2Case 3Text1.Text = Text1.Text & 3Case 4Text1.Text = Text1.Text & 4Case 5Text1.Text = Text1.Text & 5Case 6Text1.Text = Text1.Text & 6Case 7Text1.Text = Text1.Text & 7Case 8Text1.Text = Text1.Text & 8Case 9Text1.Text = Text1.Text & 9Case 0Text1.Text = Text1.Text & 0Case 10Text1.Text = Text1.Text &"."End SelectEnd SubPrivate Sub Command2_Click(Index As Integer)Select Case IndexCase 0sum = Text1.TextText1.Text = ""k = "+"Case 1sum = Text1.TextText1.Text = ""k = "-"Case 2sum = Text1.TextText1.Text = ""k = "*"Case 3sum = Text1.TextText1.Text = ""k = "/"End SelectEnd SubPrivate Sub Command3_Click()Dim a As Doublea = Text1.TextIf k = "+" Thensum = sum + aText2.Text = sumElseIf k = "-" Thensum = sum - aText2.Text = sumElseIf k = "*" Thensum = sum * aText2.Text = sumElseIf k = "/" Thensum = sum / aText2.Text = sumElseIf k = "sin" Then'等号的三角计算sum = Sin(a * pi / 180)Text2.Text = sumElseIf k = "cos" Thensum = Cos(a * pi / 180)Text2.Text = sumElseIf k = "tan" Thensum = Tan(a * pi / 180)Text2.Text = sumElseIf k = "cot" Thensum = 1 / (Tan(a * pi / 180))Text2.Text = sumElseIf k = "lg" Then'等号的lg计算sum = Log(Val(Text1.Text))Text2.Text = sumElseIf k = "ln" Then'等号的ln计算sum = Log10(Val(Text1.Text))Text2.Text = sumElseIf k = "logn" Then'等号的log n a计算sum = Logn(Val(Text1.Text))Text2.Text = sumElseIf k = "2" Then'等号的幂函数计算sum = (Val(Text1.Text)) ^ 2Text2.Text = sumElseIf k = "c" Thensum = Val(Text1.Text) ^ cText2.Text = sumElseIf k = "0.5" Then'等号的开方运算sum = (Val(Text1.Text)) ^ 0.5Text2.Text = sumElseIf k = "d" Thensum = (Val(Text1.Text)) ^ (1 / d)Text2.Text = sumEnd IfEnd SubPrivate Sub Command4_Click(Index As Integer)Dim b As Integerb = Len(Text1.Text)If b > 1 ThenText1.Text = Val(Str(Left(Text1.Text, Len(Text1.Text) - 1))) ElseText1.Text = ""End IfEnd SubPrivate Sub Command5_Click()Text1.Text = ""Text2.Text = ""Label2.Caption = ""Label3.Caption = ""a = 0b = 0k = ""End SubPrivate Sub Command6_Click(Index As Integer)Select Case IndexCase 0Label2.Caption = "sin"k = "sin"Case 1Label2.Caption = "cos"k = "cos"Case 2Label2.Caption = "tan"k = "tan"Case 3Label2.Caption = "cot"k = "cot"Case 4'对数计算Label2.Caption = "lg"k = "lg"Case 5Label2.Caption = "ln"k = "ln"Case 6n = Val(InputBox("请输入对数运算的底数", 请输入数字)) Label2.Caption = "log" '普通对数计算Label4.Caption = nk = "logn"Case 7'幂运算Label3.Caption = "2"k = "2"Case 8c = Val(InputBox("请输入运算幂指数", 输入数字))Label3.Caption = ck = "c"Case 9'幂运算Label2.Caption = "√"k = "0.5"Case 10'开方运算d = Val(InputBox("请输入需要开多少次方", 输入数字))Label2.Caption = d &"√"k = "d"End SelectEnd SubPrivate Sub Command7_Click()Shell "C:\WINDOWS\explorer.exe " End SubPrivate Sub Command8_Click()Text1.Text = sumEnd SubPrivate Sub Command9_Click()EndEnd SubPrivate Sub end_Click()EndEnd SubPrivate Sub explain_Click()End SubPrivate Sub Form_Load()pi = 4 * Atn(1)End SubPrivate Sub help_Click()End SubPrivate Sub Text1_Change()End Sub。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
课程设计指导书
课程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.Enabled = True
Else
Command1.Caption = "NO"
End If
End Sub
清除
Private Sub Command2_Click()
Text1.Text = ""
num = ""
num1 = ""
End Sub
等于号
Private Sub Command26_Click() Select Case op
Case "+"
Sum = CStr(Val(num1) + Val(num)) Case "-"
Sum = Val(num1) - Val(num)
Case "×"
Sum = Val(num1) * Val(num)
Case "÷"
If num = "0" Then
MsgBox "除数不能为零,请重新输入" num = ""
Else
Sum = Val(num1) / Val(num)
End If
Case "In"
Sum = Log(Val(num1))
Case "Exp"
Sum = Exp(num1)
Case "Sqr"
Sum = Sqr(num1)
Case "sinx"
Sum = Sin(num * 3.141592654 / 180) Case "cosx"
Sum = Cos(num * 3.141592654 / 180) Case "tanx"
Sum = Tan(num * 3.141592654 / 180) Case "x^2"
Sum = num * num
Case "!"
Sum = num1
For i = 1 To num1 - 1
Sum = Sum * (num1 - i)
Next i
End Select
Text1.Text = Sum
End Sub
七、参考文献
1《Visual Basic6.0编程案例精解》张路平电子出版社
2《Visual Basic程序设计》王学军中国铁道出版社
3《计算机软件技术基础》徐士良葛兵清华大学出版社
4《Visual Basic 程序设计上机指导与习题解答》、《Visual Basic程序设计》机械工业出版社
5《Visual Basic程序设计》北京邮电大学出版社
6《Visual Basic程序设计完全自学手册》人民邮电出版社
7《百度文库》vb计算器。
八、本人在该组中完成的部分：
查阅资料，设计计算器界面，编写vb的三角函数，开方，平方，对数。
九、进度安排：
第一二三天：查找资料，对设计要求加以分析研究 熟悉了解VB 编程的基本知识，分配任务到每个人。
第四天，绘制流程图：将要求分块、分部完成。
第五六七八九天：编程，完成基本功能，运行查看结果。
第十天：继续查阅资料。
第十一十二天:完成所有功能。
第十三十四天:完善功能,书写报告书。