vb课程设计 计算器程序设计

《vb课程设计 计算器程序设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

2、（OLE）,开放式数据连接（ODBC）等技术，可以高效，可以快速地开发Windows环境不功能强大，图形界面丰富的程序。为了适应信息化时代的需求，各高校对大多数专业都开设了一定的计算机语言课程，有的讲授VisualBasic语言。VisualBasic以其语法简单，可视化设计，功能强大，为许多学校计算机语言课程的首选语言。目前国内各出版了大量的VisualBasic语言教程，它们都具有同样的特点：介绍语言的语法等基本知识，再辅助一些简单的示例。学生通过学习，可能能够考一个不错的成绩，但所掌握的仍然是一些支离破碎的知识，不能将所有的知识融会贯通，遇到

3、具体的程序设计，还是无从下手。这次我要做的是计算器，通过这样程序设计，我们可以学到好多关于VB语言的使方法，熟悉VisualBasic6.0的运行环境，快速掌握VB语言！小小的计算器是我们学VB初级语言的最好课程 。11目录一功能描述31．功能32.实验目的3二概要设计41.界面设计42.代码编辑6三详细设计9四心得体会10五参考文献1111一功能描述1．功能可以简单计算加减乘除四则运算，可以简单计算三角函数运算的简易计算器。2.实验目的这次我要做的是计算器，通过这样程序设计，我们可以学到好多关于VB语言的使方法，熟悉VisualBasic6.

4、0的运行环境，快速掌握VB语言！小小的计算器是我们学VB初级语言的最好课程 。11二概要设计1.界面设计添加8个控制按扭，Command1~Command8图1接着设计好按扭的位置，有功能键如下：11图2修改键后，各功能键如图3图3112.代码编辑DimchrAsString'定义函数变量等DimDianalAsBooleanDimFuhaoAsBooleanDimFuhaoZhuangtaiAsStringDimdianAsBooleanDimFAsDoubleDimFirstNumber,NumbumBufAsDoublePrivateSubC

5、ommand1_Click(IndexAsInteger)dian=False'TEXT1显示的是chrchr=Val(Index)IfText1.Text="0"ThenText1.Text=chrElseText1.Text=Text1.Text+chrEndIfNumbumBuf=Val(Text1.Text)EndSubPrivateSubCommand2_Click(IndexAsInteger)SelectCaseIndexCase0'平方运算Text1.Text=Val(Text1.Text)*Val(Text1.Text)Case1

6、'开平方运算IfText1.Text>0ThenText1.Text=Sqr(Val(Text1.Text))ElseMsgBox"开平方数不能为负数,你小学白上了啊?",,64+vbOKEndIfCase2'倒数运算IfText1.Text<>0ThenText1.Text=1/Val(Text1.Text)ExitSubCase3'阶乘IfText1.Text>0ThenCallfact(Text1.Text,F)Text1.Text=FElseExitSubEndIfCase4'Inx运算Text1.Text=Exp(Val(Text1.Te

7、xt))Case5'指数运算IfVal(Text1.Text)>0Then11Text1.Text=Log(Val(Text1.Text))ElseMsgBox"条件错误",vbInformation+vbYes,"错误"EndIfCase6'下面两个都为简单三角函数运算Text1.Text=Sin(Val(Text1.Text))Case7Text1.Text=Cos(Val(Text1.Text))EndSelectEndSubPrivateSubCommand3_Click()IfDianal=FalseThen'定义小数点的代码Text1.

8、Text=Text1.Text+"."Dianal=TrueEndIfEndSubPrivateSubCommand4_C