欢迎来到天天文库
浏览记录
ID:19563062
大小:61.00 KB
页数:6页
时间:2018-10-03
《编写计算器程序》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、实验6编写计算器程序实验目的:1、掌握控件数组的创建方法;2、理解控件数组中控件名称组成特点;3、掌握运用控件数组编程的方法。实验内容:1、实验要求使用控件数组设计一个简易计算器,能实现算术运算和简单函数运算,并具有清除结果和退格键的功能。2、分析设计用一文本框显示计算过程及结果,使用以命令按钮控件为元素的控件数组,并编写控件数组的Click事件。3、窗体属性对象名属性名设置值Form1caption计算器Text1text----Command1(0-9)caption0-9Command1(10-13)caption+、-、*、÷Command1(14)caption.Command1(
2、15)caption=Command1(16)caption退格Command1(17)captionCCommand1(18-24)caption平方、Sqrt、Sin、Cos、Tan、Atn、log4、窗体设计5、源代码DimxAsSingle,yAsSingleDimopAsStringPrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0To9Text1.Text=Text1&Command1(Index).CaptionCase14IfInStr(Text1,".")=0ThenText1.Text=Text1&Co
3、mmand1(Index).CaptionElseIfRight(Text1,1)="."ThenText1.Text=Text1&""EndIfCase10To13x=Val(Text1)IfIndex=10Thenop="+"IfIndex=11Thenop="-"IfIndex=12Thenop="*"IfIndex=13Thenop="/"Text1=""Case15y=Val(Text1)'Text1=""Ifop="+"ThenText1=x+yIfop="-"ThenText1=x-yIfop="*"ThenText1=x*yIfop="/"ThenIfy<>0ThenText
4、1=x/yElseText1="除数不能为零"EndIfEndIfCase16IfLen(Text1)<>0ThenText1=Left(Text1,Len(Text1)-1)EndIfCase17Text1=""x=0:y=0Case18x=Val(Text1)Ifx<0ThenText1="负数的平方根无意义"ElseText1=Sqr(x)EndIfCase19x=Val(Text1):Text1=x*xCase20x=Val(Text1):Text1=Sin(x*3.1415926/180)Case21x=Val(Text1):Text1=Cos(x*3.1415926/180)Ca
5、se22x=Val(Text1):Text1=Tan(x*3.1415926/180)Case23x=Val(Text1):Text1=Atn(x)*180/3.1415926Case24x=Val(Text1)Ifx<=0ThenText1="负数或零的对数无意义"ElseText1=Log(x)EndIfEndSelectEndSubPrivateSubForm_Load()Text1=""Fori=0To24Command1(i).BackColor=&HC0FFFFNextiEndSub实验思考:本次实验只实现了计算器的部分功能,请试着完善计算器的其它功能。实验目的:1、掌握控件数组
6、的创建方法;2、理解控件数组中控件名称组成特点;3、掌握运用控件数组编程的方法。实验内容:1、实验要求使用控件数组设计一个简易计算器,能实现算术运算和简单函数运算,并具有清除结果和退格键的功能。2、分析设计用一文本框显示计算过程及结果,使用以命令按钮控件为元素的控件数组,并编写控件数组的Click事件。3、窗体属性对象名属性名设置值Form1caption计算器Text1text----Command1(0-9)caption0-9Command1(10-13)caption+、-、*、÷Command1(14)caption.Command1(15)caption=Command1(16)
7、caption退格Command1(17)captionCCommand1(18-24)caption平方、Sqrt、Sin、Cos、Tan、Atn、log4、窗体设计5、源代码DimxAsSingle,yAsSingleDimopAsStringPrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0To9Text1.Text=Text1&Co
此文档下载收益归作者所有