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