VB6.0的小程序計(jì)算器

VB6.0的小程序計(jì)算器VB6.0的小程序計(jì)算器VB6.0的小程序計(jì)算器VB6.0的小程序計(jì)算器編制僅供參考審核批準(zhǔn)生效日期地址：電話：傳真:郵編:的小程序計(jì)算器對(duì)于剛?cè)腴T(mén)學(xué)習(xí)VB6的朋友來(lái)說(shuō)肯定會(huì)做些小程序吧，這里就是給大家演示個(gè)簡(jiǎn)單的計(jì)算器程序，僅供參考啦。界面上加減乘除四個(gè)按鈕分別是cmdAdd、cmdPlus、cmdMultiple、cmdDevide，小數(shù)點(diǎn)按鈕是cmdDot，負(fù)號(hào)按鈕是cmdMinuse，數(shù)字0～9為了偷懶，用了控件數(shù)組cmdNumber(0)~cmdNumber(9)，上面txtShow是顯示數(shù)字和結(jié)果用的，txtOperate是顯示中間步驟的。思路大致是這樣，點(diǎn)加減乘除這類(lèi)操作符的時(shí)候，把當(dāng)前txtShow的值保存在模塊變量mstrParam1里，同時(shí)把操作符保存到mstrOperate里，按等于號(hào)時(shí)把先把當(dāng)前txtShow的值保存在模塊變量mstrParam2里，然后對(duì)mstrParam1和mstrParam2進(jìn)行運(yùn)算，當(dāng)然要記得設(shè)法把String轉(zhuǎn)換成數(shù)值進(jìn)行運(yùn)算。轉(zhuǎn)換的過(guò)程要注意，這里是用的Variant數(shù)據(jù)類(lèi)型，vParam1和vParam2都是Variant類(lèi)型，保存的是mstrParam1和mstrParam2的數(shù)值。之所以不用integer、long、double這些標(biāo)準(zhǔn)類(lèi)型，是因?yàn)檫@些類(lèi)型都有大小限制，做出來(lái)用著不方便，VB最大的整型long才到47，這意味著計(jì)算器的計(jì)算結(jié)果只能限制在9位到10位。而Variant類(lèi)型可以支持非常大的數(shù)，具體多大不清楚，但起碼幾十位是能夠支持的。另外，最后算完的結(jié)果也要做格式化，因?yàn)槿绻麛?shù)值非常大的話，VB會(huì)自動(dòng)轉(zhuǎn)成科學(xué)計(jì)數(shù)法，所以要用Format函數(shù)進(jìn)行調(diào)整。如果需要源代碼的話在我百度空間里留言。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