VB课程设计
说明书
题目：简易计算器
姓名：
班级：
指导教师：
2009年6月30日
题目：简易计算器
一、前言
1．利用本学期课堂所学知识，根据课程选择要求编辑一个简易计算器
2．并且可使用“计算器”执行部分通常用手持计算器完成的标准操作，计算器可以执行基本的运算，如加法、减法，三角函数等。
3．其界面简洁明了，易用
二、分工
该程序由本人独立完成
三、程序框图
四、源程序清单
Dims%,m!,n!,k%,x%
''开方
PrivateSubCommand10_Click()
Text1.Text=Sqr(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)
SelectCasek
Case0
Text1=m+n
Case1
Text1=m-n
Case2
Text1=mn
Case3
Text1=m/n
EndSelect
EndSub
''正负号
PrivateSubCommand14_Click()
IfText1=""Then
Text1="-"
Else
Text1.Text=-Val(Text1.Text)
EndIf
EndSub
''小数点
PrivateSubCommand15_Click()
Text1.Text=Text1.Text&"."
EndSub
''退格键
PrivateSubCommand5_Click()
x=Len(Text1.Text)
Text1=Left(Text1.Text,x-1)
IfText1.text=""then
Text1.text="0"
EndSub
''CE键
PrivateSubCommand7_Click()
Text1=""
EndSub
''数字键
PrivateSubCommand8_Click(IndexAsInteger)
Iftext1.text=0then
Text1.text=""
Text1.text=Command8(Index).Caption
Else
Text1.Text=Text1&Command8(Index).Caption
s=Text1
endif
EndSub
''运算符
PrivateSubCommand9_Click(IndexAsInteger)
m=Val(Text1)
k=Index
Text1="www.huisheliren.com"
EndSub
PrivateSubend_Click()
End
EndSub
PrivateSubffds_Click()
MsgBox"2009年6月28日制",0,"版本信息"
EndSub
五、运行界面
见右图
六、程序调试结果
通过输入各种数据进行加减乘除运算，验证该程序可以完成预期的目的，进行简易的加减乘除及开方，倒数，三角函数的运算
七、时间进度表
6.22选定程序设计题目进行分工
6.23填写选题报告
6.24递交选择报告系统选题程序
6.25编写程序
6.27程序代码的录入
6.29运行验证程序正确，程序代码基本完成，VB计算器基本制作完成
6.30答辩
7.01完成说明上交
八、改进意见及小结
我通过这次编辑计算器程序知道了要注意细节，注意制作的界面整洁，和程序的运用，但是该程序还不能进行连续运算，在我以后的学习中，我还会对我的程序进行改变，使其更加完善。
九、参考文献
[1]visualbasic数据库系统开发案例精选，苏啸，人民邮电出版社，2006
[2]visualbasic程序设计教程，北京工业大学出版社，2005
[3]VisualBasic语言程序设计，教育考试研究中心
[4]VisualBasic程序设计学习指导，孙明珠，天津大学出版社，2007.8
[5]VisualBasic程序设计，胡玉容等，清华大学出版社，2006.6
-1-
退出
结果输出
数据运算
数据输入
计算器
|
|
