’//本人写的原始程序'注意没法实现如下功能：10+===然后输入10再=。此程序会结果出错Dimdenghao,fenghaoAsBoolean'denghao判断是否按下“=”，fenghao判断是否按下“1/X”Dimxiaoshu,biaojiAsBoolean'xiaoshu判断是否已按“.”，biaoji第一次判断前面是否按过“+”“-”等运算符按钮DimfuhaoAsByte'运算符类型标号DimleixinAsByte'进制转换类型Dimfistnumber,lastAsDouble'fistnumber第一个数据,最后一个数据Dimpanduan,jinzhiAsBoolean'panduan判断前面是否连续按“+”“-”等运算符按钮DimdenglianxuAsBoolean'denglianxu判断前面是否连续安"="Dimm,n,i,sumAsDoubleDimpiAsDouble'sin,cosDimkuahaoAsBoolean'判断是否按下“（”DimsiAsStringDimshilu,bajinAsBoolean'十六进制下才能输入A-F;八进制下8-9不能输入Dimh,d,o,bAsInteger'进制Dimse,sAsDoubleDimejinAsBoolean'判断2-9，在二进制下不能输入PrivateSubbaifeng_Click()'1/X的程序IfNotbiaojiThenfuhao=7IfVal(Text1.Text)="0"ThenText1.Text="除数不能为零"ElseCalljieguoEndIfElseCalljieguofuhao=7CalljieguoEndIffenghao=Truexiaoshu=FalseEndSubPrivateSubclear_Click()Ifclear.Value=1ThenText1.Text="0"xiaoshu=Falseclear.Value=0sum=1biaoji=Falsepanduan=Falsedenghao=Falselast=0fistnumber=0denglianxu=FalseX=0si=""i=0sum=0shilu=Falsebajin=Falseejin=FalseEndSubPrivateSubCommand11_Click()'+/-号Text1.Text=-1*Val(Text1.Text)IfLeft(Val(Text1.Text),1)="."ThenText1.Text="0"+Text1.TextIfLeft(Val(Text1.Text),2)="-."ThenText1.Text=-1*Val(Text1.Text)Text1.Text="-0"+Text1.TextEndIfpanduan=Truedenglianxu=Falsedenghao=TrueEndSubPrivateSubCommand0_Click()IfText1.Text="0"ThenText1.Text=0ElseIfNotdenghaoAndNotfenghaoThenIfNotkuahaoThenText1.Text=Text1.Text+"0"ElseText1.Text="0"denglianxu=Falsefenghao=Falsedenghao=Falsepanduan=FalseEndIfEndSubPrivateSubCommand1_Click()IfText1.Text="0"ThenText1.Text=""IfNotdenghaoAndNotfenghaoThenIfNotkuahaoThenText1.Text=Text1.Text+"1"ElseText1.Text="1"denglianxu=Falsefenghao=Falsedenghao=Falsepanduan=Falsekuahao=FalseEndIfEndSubPrivateSubCommand2_Click()IfText1.Text="0"ThenText1.Text=""IfejinThenMsgBox"请输入二进制数"Text1.Text=0ExitSubEndIfIfNotdenghaoAndNotfenghaoThenIfNotkuahaoThenText1.Text=Text1.Text+"2"ElseText1.Text="2"fenghao=Falsede