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

VB课程 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 计算器程序设计 VB课程设计 课程设计题目:计算器程序设计 姓名: 张** 学号: 08***** 专 业 : 电子信息工程 班 级: : 083142 指导教师 : 王敏 叶志翔 0 摘要 VisualBasic 6.0 是一款可视化的，面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发windows 环境下的种类应用程序。它简单易学，效率高，且功能强大，可以与Windows专业开发工具相媲美。在VisualBasic环境下，利用事出有因件驱动的编程机制，新颖易用的可视化工具，使用Windows内部的广泛应用程序接口(API) 函数 excel方差函数excelsd函数已知函数     2 f x m x mx m      2 1 4 2拉格朗日函数pdf函数公式下载 ，运用动态链接库(DLL)，对象的链接与嵌入(OLE),开放式数据连接(ODBC)等技术，可以高效，可以快速地开发Windows环境不功能强大，图形界面丰富的程序。 为了适应信息化时代的需求，各高校对大多数专业都开设了一定的计算机语言课程，有的讲授VisualBasic语言。VisualBasic以其语法简单，可视化设计，功能强大，为许多学校计算机语言课程的首选语言。 目前国内各出版了大量的VisualBasic语言教程，它们都具有同样的特点:介绍语言的语法等基本知识，再辅助一些简单的示例。学生通过学习，可能能够考一个不错的成绩，但所掌握的仍然是一些支离破碎的知识，不能将所有的知识融会贯通，遇到具体的程序设计，还是无从下手。 这次我要做的是计算器，通过这样程序设计，我们可以学到好多关于VB语言的使方法，熟悉VisualBasic 6.0的运行环境，快速掌握VB语言～小小的计算器是我们学VB初级语言的最好课程 。 1 目录 工贸企业有限空间作业目录特种设备作业人员作业种类与目录特种设备作业人员目录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程序设计完全自学 手册 华为质量管理手册 下载焊接手册下载团建手册下载团建手册下载ld手册下载 》--------------------人民邮电出版社 11