编写计算器程序

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

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