VB6.0的小程序计算器

VB6.0的小程序计算器VB6.0的小程序计算器VB6.0的小程序计算器VB6.0的小程序计算器编制仅供参考审核批准生效日期地址：电话：传真:邮编:的小程序计算器对于刚入门学习VB6的朋友来说肯定会做些小程序吧，这里就是给大家演示个简单的计算器程序，仅供参考啦。界面上加减乘除四个按钮分别是cmdAdd、cmdPlus、cmdMultiple、cmdDevide，小数点按钮是cmdDot，负号按钮是cmdMinuse，数字0～9为了偷懒，用了控件数组cmdNumber(0)~cmdNumber(9)，上面txtShow是显示数字和结果用的，txtOperate是显示中间步骤的。思路大致是这样，点加减乘除这类操作符的时候，把当前txtShow的值保存在模块变量mstrParam1里，同时把操作符保存到mstrOperate里，按等于号时把先把当前txtShow的值保存在模块变量mstrParam2里，然后对mstrParam1和mstrParam2进行运算，当然要记得设法把String转换成数值进行运算。转换的过程要注意，这里是用的Variant数据类型，vParam1和vParam2都是Variant类型，保存的是mstrParam1和mstrParam2的数值。之所以不用integer、long、double这些标准类型，是因为这些类型都有大小限制，做出来用着不方便，VB最大的整型long才到47，这意味着计算器的计算结果只能限制在9位到10位。而Variant类型可以支持非常大的数，具体多大不清楚，但起码几十位是能够支持的。另外，最后算完的结果也要做格式化，因为如果数值非常大的话，VB会自动转成科学计数法，所以要用Format函数进行调整。如果需要源代码的话在我百度空间里留言。ExplicitPrivateConstmstrFORMATDEFAULTAsString="#.##"PrivatemstrParam1AsString,mstrParam2AsStringPrivatemstrOperateAsStringPrivateSubcmdAdd_Click()mstrParam1=TrimmstrOperate="+"=""=&mstrParam1&vbCrLf=&mstrOperate&vbCrLfEndSubPrivateSubcmdPlus_Click()mstrParam1=TrimmstrOperate="-"=""=&mstrParam1&vbCrLf=&mstrOperate&vbCrLfEndSubPrivateSubcmdMultiple_Click()mstrParam1=TrimmstrOperate="*"=""=&mstrParam1&vbCrLf=&mstrOperate&vbCrLfEndSubPrivateSubcmdDevide_Click()mstrParam1=TrimmstrOperate="/"=""=&mstrParam1&vbCrLf=&mstrOperate&vbCrLfEndSubPrivateSubcmdDot_Click()DimmstrShowAsStringDimiAsIntegermstrShow="."i=InStr(1,,mstrShow)Ifi<=0Then=&mstrShowEndIfEndSubPrivateSubcmdMinuse_Click()DimmstrShowAsStringDimiAsIntegermstrShow="-"i=InStr(1,,mstrShow)Ifi<=0Then=mstrShow&Else=Right,Len-1)EndIfEndSubPrivateSubcmdNumber_Click(IndexAsInteger)DimmstrShowAsStringmstrShow=Index=&mstrShowEndSubPrivateSubcmdClear_Click()=""EndSubPrivateSubcmdResult_Click()DimvParam1AsVariant,vParam2AsVariantDimvResultAsVariantDimstrResultAsStringDimiAsLongDimblnBeforeDotAsBooleanDimlngDotPosAsLongDimblnMinuseAsBooleanmstrParam2=Trim=&mstrParam2&vbCrLfvParam1=0blnBeforeDot=TruelngDotPos=-1blnMinuse=FalseFori=1ToLen(mstrParam1)IfIsNumeric(Mid(mstrParam1,i,1))=TrueThenIfblnBeforeDot=TrueThenvParam1=vParam1*10+CByte(Mid(mstrParam1,i,1))ElsevParam1=vParam1+CByte(Mid(mstrParam1,i,1))*^(i-lngDotPos))EndIfElseIfMid(mstrParam1,i,1)="."ThenblnBeforeDot=FalselngDotPos=iElseIfMid(mstrParam1,i,1)="-"ThenblnMinuse=TrueEndIfNextiIfblnMinuse=TrueThenvParam1=-vParam1EndIfvParam2=0blnBeforeDot=TruelngDotPos=-1blnMinuse=FalseFori=1ToLen(mstrParam2)IfIsNumeric(Mid(mstrParam2,i,1))=TrueThenIfblnBeforeDot=TrueThenvParam2=vParam2*10+CByte(Mid(mstrParam2,i,1))ElsevParam2=vParam2+CByte(Mid(mstrParam2,i,1))*^(i-lngDotPos))EndIfElseIfMid(mstrParam2,i,1)="."ThenblnBeforeDot=FalselngDotPos=iElseIfMid(mstrParam2,i,1)="-"ThenblnMinuse=TrueEndIfNextiIfblnMinuse=TrueThenvParam2=-vParam2EndIfSelectCasemstrOperateCase"+"vResult=vParam1+vParam2Case"-"vResult=vParam1-vParam2Case"*"vResult=vParam1*vParam2Case"/"vResult=vParam1/vParam2