实用计算器之程序设计

　　[摘要]多用计算器的构思及设计代码

　　[关键词]多用计算器；设计

　　数值计算可以说是日常最频繁的工作了,WIN98提供了“计算器”软件供用户使用,该软件可以处理一般的一步四则运算,例如：3+2、5/3等等,但在日常中用户经常遇到多步四则运算问题,例如：3+4*5-4/2,45*34/2+18*7等等,那么该个计算器就无法胜任了,作者制作了一个实用的计算器,该计算器新增不少功能：（程序界面如图）

　　1．可以实现连续的四则运算

　　2．可以实现输入式子的显示

　　3．可以方便计算个人所得税

　　4．鼠标、键盘均可输入数据

　　5．操作界面友好

　　6．击键可发声

　　构建该个计算器所需研究及解决的核心问题有如下几个：1、连乘求值?2、字符显示3、键盘输入?4、击键发声?5、个人所得税法规,为了使大家对程序有更一步认识,现将代码提供给读者参考：

　　*定义数组及窗体变量

　　Dimnumber2(0To50)AsDouble

　　Dimnumber(0To50)AsDouble

　　DimzAsInteger

　　DimkAsInteger,rAsInteger

　　DimjAsInteger

　　DimstrAsString

　　*调用名为“playsound”的API函数

　　PrivateDeclareFunctionPlaySoundLib"winmm.dll"Alias"PlaySoundA"(ByVallpszNameAsString,ByValhModuleAsLong,ByValdwFlagsAsLong)AsLong

　　PrivateConstSND_FILENAME=&H20000?

　　PrivateConstSND_ASYNC=&H1?

　　PrivateConstSND_SYNC=&H0

　　*判断通用过程

　　Subpianduan(pAsString)

　　r=0

　　DimiAsInteger,lAsInteger,hAsInteger

　　h=0

　　i=1

　　IfInStr(Trim$(p),"*")0Then

　　k=k+1

　　EndIf

　　IfInStr(Trim$(p),"/")0Then

　　r=r+1

　　EndIf

　　EndSub

　　*连乘通用过程(略)

　　*各按钮事件过程

　　PrivatesubCommand1_Click(IndexAsInteger)

　　PlaySoundApp.Path&"start.wav",0,SND_SYNC

　　Text1.Text=Text1.Text+Command1(Index).Caption

　　Text2.Text=Text2.Text+Command1(Index).Caption

　　Text1.SetFocus

　　EndSub

　　rivatesubCommand10_Click()

　　PlaySoundApp.Path&"start.wav",0,SND_SYNC

　　str=Text3.Text

　　EndSub

　　PrivatesubCommand11_Click()

　　PlaySoundApp.Path&"start.wav",0,SND_SYNC

　　Text3.Text=str

　　EndSub

　　rivatesubCommand2_Click()

　　PlaySoundApp.Path&"start.wav",0,SND_SYNC

　　DimtotleAsDouble

　　DimnAsInteger

　　Callpianduan(Text1.Text)

　　Ifk>=1Orr>=1Then

　　Callliancheng(totle)

　　number2(z)=totle

　　IfMid$(Trim$(Text1.Text),1,1)="-"Then

　　number2(z)=-totle

　　EndIf

　　k=0:r=0

　　Else

　　number2(z)=Val(Text1.Text)

　　EndIf

　　Text1.Text=""

　　Text2.Text=Text2+"+"

　　z=z+1

　　Text1.SetFocus

　　EndSub

　　rivatesubCommand3_Click()

　　PlaySoundApp.Path&"start.wav",0,SND_SYNC

　　DimtotleAsDouble

　　DimnAsInteger

　　Callpianduan(Text1.Text)

　　Ifk>=1Orr>=1Then

　　Callliancheng(totle)

　　number2(z)=totle

　　IfMid$(Trim$(Text1.Text),1,1)="-"Then

　　number2(z)=-totle

　　EndIf

　　k=0:r=0

　　Else

　　number2(z)=Val(Text1.Text)

　　EndIf

　　Text1.Text=""

　　Text2.Text=Text2+"-"

　　Text1.Text=Text1.Text&"-"

　　z=z+1

　　Text1.SetFocus

　　EndSub

　　PrivatesubCommand4_Click()

　　PlaySoundApp.Path&"start.wav",0,SND_SYNC

　　Text2.Text=Text2.Text+"*"

　　Text1.Text=T