VB课程设计 计算器程序设计.doc

长江学院课程设计报告VB课程设计课程设计题目：计算器程序设计姓名： 张*学号： 08* 专 业 : 电子信息工程班 级: : 083142指导教师 : 王敏 叶志翔摘要VisualBasic 6.0 是一款可视化的，面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发windows 环境下的种类应用程序。它简单易学，效率高，且功能强大，可以与Windows专业开发工具相媲美。在VisualBasic环境下，利用事出有因件驱动的编程机制，新颖易用的可视化工具，使用Windows内部的广泛应用程序接口(API)函数，运用动态链接库（DLL），对象的链接与嵌入（OLE）,开放式数据连接（ODBC）等技术，可以高效，可以快速地开发Windows环境不功能强大，图形界面丰富的程序。为了适应信息化时代的需求，各高校对大多数专业都开设了一定的计算机语言课程，有的讲授VisualBasic语言。VisualBasic以其语法简单，可视化设计，功能强大，为许多学校计算机语言课程的首选语言。目前国内各出版了大量的VisualBasic语言教程，它们都具有同样的特点：介绍语言的语法等基本知识，再辅助一些简单的示例。学生通过学习，可能能够考一个不错的成绩，但所掌握的仍然是一些支离破碎的知识，不能将所有的知识融会贯通，遇到具体的程序设计，还是无从下手。这次我要做的是计算器，通过这样程序设计，我们可以学到好多关于VB语言的使方法，熟悉VisualBasic 6.0的运行环境，快速掌握VB语言！小小的计算器是我们学VB初级语言的最好课程。目录一 功能描述31功能32. 实验目的3二 概要设计41.界面设计42.代码编辑6三 详细设计9四 心得体会10五 参考文献11一 功能描述1功能可以简单计算加减乘除四则运算，可以简单计算三角函数运算的简易计算器。2.实验目的这次我要做的是计算器，通过这样程序设计，我们可以学到好多关于VB语言的使方法，熟悉VisualBasic 6.0的运行环境，快速掌握VB语言！小小的计算器是我们学VB初级语言的最好课程。二 概要设计1.界面设计 添加8个控制按扭，Command1 Command8 图1 接着设计好按扭的位置，有功能键如下：图2修改键后，各功能键如图3 图32.代码编辑Dim chr As String 定义函数变量等Dim Dianal As BooleanDim Fuhao As BooleanDim FuhaoZhuangtai As StringDim dian As BooleanDim F As DoubleDim FirstNumber, NumbumBuf As DoublePrivate Sub Command1_Click(Index As Integer)dian = False TEXT1显示的是 chrchr = Val(Index)If Text1.Text = 0 Then Text1.Text = chrElse Text1.Text = Text1.Text + chrEnd 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 Then Text1.Text = Sqr(Val(Text1.Text) Else MsgBox 开平方数不能为负数,你小学白上了啊?, , 64 + vbOK End IfCase 2 倒数运算 If Text1.Text 0 Then Text1.Text = 1 / Val(Text1.Text) Exit SubCase 3 阶乘 If Text1.Text 0 Then Call fact(Text1.Text, F) Text1.Text = F Else Exit Sub End IfCase 4 Inx 运算 Text1.Text = Exp(Val(Text1.Text)Case 5 指数运算 If Val(Text1.Text) 0 Then Text1.Text = Log(Val(Text1.Text) Else MsgBox 条件错误, vbInformation + vbYes, 错误 End IfCase 6 下面两个都为简单三角函数运算 Text1.Text = Sin(Val(Text1.Text)Case 7 Text1.Text = Cos(Val(Text1.Text)End SelectEnd SubPrivate Sub Command3_Click()If Dianal = False Then 定义小数点的代码 Text1.Text = Text1.Text + . Dianal = TrueEnd IfEnd SubPrivate Sub Command4_Click()Dianal = False 等号键上的代码，方便下面四则运算Fuhao = FalseSelect Case FuhaoZhuangtaiCase 0 Text1.Text = Val(FirstNumber) + Val(NumbumBuf)Case 1 Text1.Text = Val(FirstNumber) - Val(NumbumBuf)Case 2 Text1.Text = Val(FirstNumber) * Val(NumbumBuf)Case 3 Text1.Text = Val(FirstNumber) / Val(NumbumBuf)End SelectFirstNumber = Text1.Textdian = FalseEnd SubPrivate Sub Command5_Click()If dian = False Then 退格键的代码 dian = True Text1.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 Integer)If Fuhao = False Then 关与加减乘除的代码 FuhaoZhuangtai = Index Fuhao = True Dianal = False FirstNumber = NumbumBuf Text1.Text = 0 dian = FalseEnd IfEnd SubPrivate Sub Command7_Click(Index As Integer)Select Case Index 清零重置的代码Case 0 Text1.Text = 0 dian = FalseCase 1 Text1.Text = 0 NumbumBuf = 0 Dianal = False Fuhao = False FirstNumber = 0 dian = FalseEnd SelectEnd 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 N F = F * MmNext MmEnd Sub三 详细设计Command1 的caption属性改为1。Command2 的caption属性跟据 index依次改为：平方，开平方，1/x，N!，指数,Inx,Sin , Cos. From1的maxtton属性 改为false ，Moveable 属性改为 true。Startupposito属性改为 2-屏幕中心。Text1的 dateformat属性改为 通用！四 心得体会 这次我要做的是计算器，虽然是一个小小的计算器，通过这样程序设计，对与我们初学者来说可以学到好多关于VB语言的使方法，熟悉VisualBasic 6.0的运行环境，快速掌握VB语言！小小的计算器是我们学VB初级语言的最好课程。 在这几天VB编程学习，使我们对VisualBasic 6.0 的运行环境更加的熟悉，掌握VB语言同时，我们对计算机的理解更加深一层的认识，深深的体会到计算机的强大，为了适应信息化时代的需求，各高校对大多数专业都开设了一定的计算机语言课程，有的讲授VisualBasic语言。VisualBasic以其语法简单，可视化设计，功能强大，为许多学校计算机语言课程的首选语言。目前国内各出版了大量的VisualBasic语言教程，它们都具有同样的特点：介绍语言的语法等基本知识，再辅助一些简单的示例。学生通过学习，可能能够考一个不错的成绩，但所掌握的仍然是一些支离破碎的知识，不能将所有的知