实用计算器之程序设计 　　[摘要]多用计算器的构思及设计代码 　　[关键词]多用计算器；设计 　　数值计算可以说是日常最频繁的工作了,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