vb計算器(界面設(shè)計+ 全部代碼)

《vb計算器(界面設(shè)計+ 全部代碼)》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、VB計算器此計算器能夠?qū)崿F(xiàn)加減乘除等一系列的功能。還有實現(xiàn)顯示系統(tǒng)時間的附加功能。截圖如下：程序設(shè)計：0-9和點在command1的組內(nèi)。其他的按鈕式運算符和其他功能。正切和余切有對特殊值進行警告，除也有對除數(shù)為零的情況提示警告，還有階乘等一系列計算溢出的情況提出警告，還有很多需要完善。。。這僅供參考。PublicsumAsDoublePublickAsStringPublicdianAsBooleanPublicbAsIntegerPublicpointflagAsBooleanDimclearFla

2、gAsBooleanPublicFAsLong'DimstartAsboolenPublicreslAsBoolean'運算結(jié)果存儲在resl里PublicffAsDouble'resl里是否為空'////////////////////////////////////////////////////////數(shù)字按鈕在一個組內(nèi)，點擊按鈕輸入數(shù)字///////////////////////////////////////////PrivateSubcommand1_click(IndexAsIntege

3、r)SelectCaseIndexCase1IfNotclearFlagThen'不是等號，那么顯示1Text1.Text=Text1.Text&1Else'是等號，那么清空Text1.Text=1clearFlag=FalseEndIfIfLen(Text1.Text)=2AndInStr(1,Text1,"0")=1ThenText1=Right(Text1,1)'如果第一位的數(shù)位0，字符串的長度為2.那么取字符串右面的數(shù)，即兩個數(shù)中右面的數(shù)Case2IfNotclearFlagThenText1.

4、Text=Text1.Text&2ElseText1.Text=2clearFlag=FalseEndIfIfLen(Text1.Text)=2AndInStr(1,Text1,"0")=1ThenText1=Right(Text1,1)Case3IfNotclearFlagThenText1.Text=Text1.Text&3ElseText1.Text=3clearFlag=FalseEndIfIfLen(Text1.Text)=2AndInStr(1,Text1,"0")=1ThenText1=R

5、ight(Text1,1)Case4IfNotclearFlagThenText1.Text=Text1.Text&4ElseText1.Text=4clearFlag=FalseEndIfIfLen(Text1.Text)=2AndInStr(1,Text1,"0")=1ThenText1=Right(Text1,1)Case5IfNotclearFlagThenText1.Text=Text1.Text&5ElseText1.Text=5clearFlag=FalseEndIfIfLen(Text1

6、.Text)=2AndInStr(1,Text1,"0")=1ThenText1=Right(Text1,1)Case6IfNotclearFlagThenText1.Text=Text1.Text&6ElseText1.Text=6clearFlag=FalseEndIfIfLen(Text1.Text)=2AndInStr(1,Text1,"0")=1ThenText1=Right(Text1,1)Case7IfNotclearFlagThenText1.Text=Text1.Text&7ElseT

7、ext1.Text=7clearFlag=FalseEndIfIfLen(Text1.Text)=2AndInStr(1,Text1,"0")=1ThenText1=Right(Text1,1)Case8IfNotclearFlagThenText1.Text=Text1.Text&8ElseText1.Text=8clearFlag=FalseEndIfIfLen(Text1.Text)=2AndInStr(1,Text1,"0")=1ThenText1=Right(Text1,1)Case9IfNo

8、tclearFlagThenText1.Text=Text1.Text&9ElseText1.Text=9clearFlag=FalseEndIfIfLen(Text1.Text)=2AndInStr(1,Text1,"0")=1ThenText1=Right(Text1,1)Case0IfNotclearFlagThenText1.Text=Text1.Text&0ElseText1.Text=0clearFlag=FalseEndIfI