VB课程设计-计算器程序设计.docx

1、课程设计报告VB 课程设计课程设计题目：计算器程序设计姓名：学号：*专业 :电子信息工程班级: :指导教师 :0摘要VisualBasic 6.0 是一款可视化的，面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发windows 环境下的种类应用程序。它简单易学，效率高，且功能强大，可以与Windows 专业开发工具相媲美。在VisualBasic 环境下， 利用事出有因件驱动的编程机制，新颖易用的可视化工具，使用 Windows 内部的广泛应用程序接口(API)函数，运用动态链接库（DLL），对象的链接与嵌入（OLE）,开放式数据连接（ODBC）等技术，可以高效，可以快速地开发

2、Windows 环境不功能强大， 图形界面丰富的程序。为了适应信息化时代的需求，各高校对大多数专业都开设了一定的计算机语言课程，有的讲授 VisualBasic 语言。VisualBasic 以其语法简单，可视化设计，功能强大，为许多学校计算机语言课程的首选语言。目前国内各出版了大量的 VisualBasic 语言教程，它们都具有同样的特点：介绍语言的语法等基本知识，再辅助一些简单的示例。学生通过学习，可能能够考一个不错的成绩，但所掌握的仍然是一些支离破碎的知识，不能将所有的知识融会贯通，遇到具体的程序设计，还是无从下手。这次我要做的是计算器，通过这样程序设计，我们可以学到好多关于 VB 语言

3、的使方法，熟悉 VisualBasic 6.0 的运行18环境，快速掌握 VB 语言！小小的计算器是我们学 VB 初级语言的最好课程。目录 功能描述41. 功能42. 实验目的4二 概要设计61. 界面设计62. 代码编辑8三 详细设计14四 心得体会16五 参考文献18 功能描述1. 功能可以简单计算加减乘除四则运算，可以简单计算三角函数运算的简易计算器。2. 实验目的这次我要做的是计算器，通过这样程序设计，我们可以学到好多关于 VB 语言的使方法，熟悉VisualBasic 6.0 的运行环境，快速掌握 VB 语言！小小的计算器是我们学 VB 初级语言的最好课程 。二 概要设计1. 界面设

4、计添加 8 个控制按扭，Command1 Command8图 1接着设计好按扭的位置，有功能键如下：图 2修改键后，各功能键如图 3图 32. 代码编辑Dim chr As String定义函数变量等Dim Dianal As BooleanDim Fuhao As BooleanDim FuhaoZhuangtai As String Dim dian As BooleanDim F As DoubleDim FirstNumber, NumbumBuf As DoublePrivate Sub Command1_Click(Index As Integer) dian = FalseTEX

5、T1 显示的是 chrchr = Val(Index)If Text1.Text = 0 Then Text1.Text = chrElseText1.Text = Text1.Text + chr End IfNumbumBuf = Val(Text1.Text) End SubPrivate Sub Command2_Click(Index As Integer) Select Case IndexCase 0平方运算Text1.Text=Val(Text1.Text)*Val(Text1.Text)Case 1开平方运算If Text1.Text 0 ThenText1.Text = S

6、qr(Val(Text1.Text) ElseMsgBox 开平方数不能为负数, 你小学白上了啊?, , 64 + vbOKEnd IfCase 2倒数运算If Text1.Text 0 Then Text1.Text = 1 /Val(Text1.Text)Exit SubCase 3阶乘If Text1.Text 0 ThenCall fact(Text1.Text, F) Text1.Text = FElseExit Sub End IfCase 4Inx 运算Text1.Text = Exp(Val(Text1.Text) Case 5指数运算If Val(Text1.Text) 0

7、Then Text1.Text = Log(Val(Text1.Text)ElseMsgBox 条件错误, vbInformation + vbYes,错误End IfCase 6下面两个都为简单三角函数运算Text1.Text = Sin(Val(Text1.Text)Case 7Text1.Text = Cos(Val(Text1.Text)End Select End SubPrivate Sub Command3_Click()If Dianal = False Then定义小数点的代码Text1.Text = Text1.Text + .Dianal = True End IfEnd

8、 SubPrivate Sub Command4_Click()Dianal = False等号键上的代码，方便下面四则运算Fuhao = FalseSelect Case FuhaoZhuangtai Case 0Text1.Text = Val(FirstNumber) + Val(NumbumBuf) Case 1Text1.Text = Val(FirstNumber) - Val(NumbumBuf) Case 2Text1.Text = Val(FirstNumber) * Val(NumbumBuf) Case 3Text1.Text = Val(FirstNumber) / V

9、al(NumbumBuf)End SelectFirstNumber = Text1.Text dian = FalseEnd SubPrivate Sub Command5_Click()If dian = False Then退格键的代码dian = TrueText1.Text = Left(Text1.Text, Len(Text1.Text) -1)Elsedian = FalseText1.Text = Left(Text1.Text, Len(Text1.Text) - 1) End IfEnd SubPrivate Sub Command6_Click(Index As Int

10、eger) If Fuhao = False Then 关与加减乘除的代码FuhaoZhuangtai = Index Fuhao = TrueDianal = False FirstNumber = NumbumBufText1.Text = 0 dian = FalseEnd If End SubPrivate Sub Command7_Click(Index As Integer) Select Case Index 清零重置的代码Case 0Text1.Text = 0 dian = FalseCase 1Text1.Text = 0NumbumBuf = 0 Dianal = Fal

11、se Fuhao = False FirstNumber = 0 dian = FalseEnd Select End SubPrivate Sub Form_Load() Text1.Text = 0窗口描述End SubPrivate Sub fact(N As Integer, F As Double) Dim Mm As Integer阶乘运算公式F = 1For Mm = 1 To NF = F * Mm Next MmEnd Sub三 详细设计Command1 的caption 属性改为 1。Command2 的caption 属性跟据 index 依次改为：平方，开平方，1/x，

12、N!，指数,Inx,Sin , Cos.From1 的 maxtton 属性 改为 false ，Moveable 属性改为true。Startupposito 属性改为 2-屏幕中心。Text1 的 dateformat 属性改为 通用！四 心得体会这次我要做的是计算器，虽然是一个小小的计算器，通过这样程序设计，对与我们初学者来说可以学到好多关于 VB 语言的使方法，熟悉VisualBasic 6.0 的运行环境，快速掌握VB 语言！小小的计算器是我们学 VB 初级语言的最好课程 。-在这几天 VB 编程学习，使我们对VisualBasic 6.0 的运行环境更加的熟悉，掌握 VB 语言同时

13、，我们对计算机的理解更加深一层的认识，深深的体会到计算机的强大，为了适应信息化时代的需求，各高校对大多数专业都开设了一定的计算机语言课程，有的讲授 VisualBasic 语言。VisualBasic 以其语法简单，可视化设计，功能强大，为许多学校计算机语言课程的首选语言。目前国内各出版了大量的VisualBasic 语言教程，它们都具有同样的特点：介绍语言的语法等基本知识，再辅助一些简单的示例。学生通过学习，可能能够考一个不错的成绩，但所掌握的仍然是一些支离破碎的知识，不能将所有的知识融会贯 通，遇到具体的程序设计，还是无从下手。现在我们对VisualBasic 语言是深层的理解。制做这小小的计算器，不仅丰富了自己对计算机的认识， 熟悉了计算机的语言！五 参考文献1. VisualBasic 程序设计上机指导与习题解答 、VisualBasic 程序设计-机械工业出版社2. VisualBasic程序设计 北京邮电大学出版社3. VisualBasic程 序 设 计 完 全 自 学 手 册 人民邮电出版社