vb课程设计-计算器

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

1、VB课程设计说明书题目：简易计算器姓名：班级：指导教师：2009年6月30日3题目：简易计算器一、前言1．利用本学期课堂所学知识，根据课程选择要求编辑一个简易计算器2．并且可使用“计算器”执行部分通常用手持计算器完成的标准操作，计算器可以执行基本的运算，如加法、减法，三角函数等。3．其界面简洁明了，易用二、分工该程序由本人独立完成三、程序框图退出结果输出数据运算数据输入计算器四、源程序清单3Dims%,m!,n!,k%,x%'开方PrivateSubCommand10_Click()Text1.Text=Sqr(

2、Text1.Text)EndSub'正弦PrivateSubCommand11_Click()Text1.Text=Sin(Text1.Text)EndSub'倒数PrivateSubCommand12_Click()Text1.Text=Format(1/Val(Text1.Text),"0.000")EndSub'等号PrivateSubCommand13_Click()n=Val(s)SelectCasekCase0Text1=m+nCase1Text1=m-nCase2Text1=m*nCase3Text

3、1=m/n3EndSelectEndSub'正负号PrivateSubCommand14_Click()IfText1=""ThenText1="-"ElseText1.Text=-Val(Text1.Text)EndIfEndSub'小数点PrivateSubCommand15_Click()Text1.Text=Text1.Text&"."EndSub'退格键PrivateSubCommand5_Click()x=Len(Text1.Text)Text1=Left(Text1.Text,x-1)IfText1

4、.text=""thenText1.text="0"EndSub'CE键PrivateSubCommand7_Click()Text1=""EndSub'数字键PrivateSubCommand8_Click(IndexAsInteger)Iftext1.text=0thenText1.text=""Text1.text=Command8(Index).CaptionElseText1.Text=Text1&Command8(Index).Captions=Text1endifEndSub'运算符PrivateS

5、ubCommand9_Click(IndexAsInteger)m=Val(Text1)k=IndexText1=""EndSubPrivateSubend_Click()EndEndSubPrivateSubffds_Click()MsgBox"2009年6月28日制",0,"版本信息"EndSub33五、运行界面见右图六、程序调试结果通过输入各种数据进行加减乘除运算，验证该程序可以完成预期的目的，进行简易的加减乘除及开方，倒数，三角函数的运算七、时间进度表6.22选定程序设计题目进行分工6.23填写选题报告6

6、.24递交选择报告系统选题程序6.25编写程序6.27程序代码的录入6.29运行验证程序正确，程序代码基本完成，VB计算器基本制作完成6.30答辩7.01完成说明上交八、改进意见及小结我通过这次编辑计算器程序知道了要注意细节，注意制作的界面整洁，和程序的运用，但是该程序还不能进行连续运算，在我以后的学习中，我还会对我的程序进行改变，使其更加完善。九、参考文献[1]visualbasic数据库系统开发案例精选，苏啸，人民邮电出版社，2006[2]visualbasic程序设计教程，北京工业大学出版社，2005[3]

7、VisualBasic语言程序设计，教育考试研究中心[4]VisualBasic程序设计学习指导，孙明珠，天津大学出版社，2007.8[5]VisualBasic程序设计，胡玉容等，清华大学出版社，2006.63