vb科学计算器

课程设计指导书

课程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

七、参考文献