1、用VB寫計算器似乎有很多例子，這個代碼就是其中之一，科學計算器是在基本計算器的基礎上，加入角度、弧度、梯度、正切、余切、正弦余弦、平方根等的數學計算，當然基礎的加減乘除運算就更不用說了，這是在一本VB教程中摘錄的代碼，你可以此為基礎完善擴展該計算器的功能，運行截圖如下：核心代碼，只有一個文件代碼:VERSIONBeginFrm_ScientificCaption="計算器"ClientHeight=2925ClientLeft=165ClientTop=735ClientWidth=5595LinkTopic="Form1"LockControls=-1

2、'TrueMaxButton=0'FalseScaleHeight=2925ScaleWidth=5595StartUpPosition=3'窗口缺省Caption="RndHeight=390Left=5025Tabindex=39Top=1455Width=510EndBeginCmd_PICaption="PI"Height=390Left=1575Tabindex=38Top=2400Width=630EndBeginCmd_FactCaption="N!"Height=390Left=1575Tabindex=

3、37Top=1935Width=630EndBeginCmd_LogLogCaptionHeight=390Left=1575Tabindex=36Top=1455Width=630EndBeginCmd_LnCaption="Ln"Height=390Left=1575Tabindex=35Top=960Width=630EndBeginCmd_SquareCaption="XA2'Height=390Left=840Tabindex=34Top=2400Width=630EndBeginCmd_CubeCaption="XA31Height3

4、90825LeftTabindex=33Top=1935Width=630EndBeginCmd_OperatorCaption="XAY"Height=390Index=5Left=840Tabindex=32Top=1455Width=630EndBeginCmd_ExpCaption="Exp'Height=390Left=840Tabindex=31Top=960Width=630EndBeginCmd_SinCaption="Sin"Height=390120LeftTabindex=30Top=960Width=630End

5、BeginCmd_CosCaption="Cos"Height=390Left=120Tabindex=29Top=1455Width=630EndBeginCmd_TanCaption="Tan"Height=390Left=120Tabindex=28Top=1935Width=630EndBeginCmd_AtanCaption="AtanHeight=390120LeftTabindex27Top=2400Width=630EndBeginFramelHeight=510Left=90Tabindex=23Top=330Width=26

6、25BeginOtn_GrdCaption=，梯度"Height=180Left=1695Tabindex=26Top=210Width=750EndBeginOtn_RadCaption=，弧度"Height=180Left=900Tabindex=25Top=210Width=795EndBeginOtn_DegCaption=悌度"Height=180Left=135Tabindex=24Top=210Value=-1'TrueWidth=675EndEndBeginCmd_OperatorCaption="="Height=39

7、0Index=4Left=5025Tabindex=22Top=2400Width=510EndBeginCmd_OperatorCaption="+"Height=390Index=3Left4470MaskC010r&H00808080&Style=1'GraphicalTabindex=21Top=2400Width=510EndBeginCommandlCaption="."Height=390Index=11Left=3915Tabindex=20Top=2400Width=510EndBeginCommand1Capt

8、ion="+/-"Height=390Index=10Left=3360Tabindex=19Top=2400Width=510EndBeginCommand1"0"CaptionHeight=390Index=0Left=2820Tabindex=18Top=2400Width=510EndBeginCmd_fractionCaption="1/x"Height=390Left=5025Tabindex=17Top=1935Width=510EndBeginCmd_sqrtCaption="Sqrt"Height

9、=390Left=5025Tabindex=16Top=960Width=510EndBeginCmd_CCaption="C"Height=405Left=4785Tabindex=15Top=405Width=750EndBeginCmd_CECaption="CE"Height=405Left=3975Tabindex=14Top=405Width=750EndBeginCmd_BackspaceCaption="BackspaceHeight=405Left=2820Tabindex=13Top=405Width=1110EndBegi

10、nCmd_OperatorCaption="-"390HeightIndex=2Left=4470Tabindex=12Top=1935Width=510EndBeginCmd_OperatorCaption="*"Height=390Index=1Left=4470Tabindex=11Top=1455Width=510EndBeginCmd_OperatorCaption="/"Height=390Index=0Left=4470Tabindex=10Top=960Width=510EndBeginCommandlCaption=

11、"9"Height=390Index=9Left=3915TabIndex=9Top=960Width=510EndBeginCommandlCaption="8"Height=390Index=8Left=3360TabIndex=8Top=960Width=510EndBeginCommand1Caption="7"Height=390Index=7Left=2820TabIndex=7960Top510WidthEndBeginCommandlCaption="6"Height=390Index=6Left=

12、3915TabIndex=6Top=1455Width=510EndBeginCommand1Caption="5"Height=390Index=5Left=3360TabIndex=5Top=1455Width=510EndBeginCommand1Caption="4"Height=390Index=4Left2820TabindexTop=1455Width=510EndBeginCommandlCaption="3"Height=390Index=3Left=3915Tabindex=3Top=1935Width=510En

13、dBeginCommand1Caption="2"Height=390Index=2Left=3360Tabindex=2Top=1935Width=510EndBeginCommand1Caption="1"390HeightIndexLeft=2820Tabindex=1Top=1935Width=510EndBeginTxt_ResultAlignment=1'RightJustifyHeight=315Left=90Locked=-1'TrueTabindex=0Text="0."Top=0Width=5385

14、EndBeginMenu_EditCaption="編輯（&E）”BeginMenu_CopyCaption=，復制”Shortcut=ACEndBeginMenu_PasteCaption=，粘貝占"ShortcutavEndBeginMenu_CutCaption=，剪切"Shortcut=AXEndBeginlinelCaption="-"EndBeginMenu_AllCaption=，全選"Shortcut=aaEndBeginline2Caption="-"EndBeginMenu_ExitCa

15、ption=，退出"EndEndBeginMenu_HelpCaption="幫助（&H）”BeginMenu_HelpSubjectCaption=，幫助主題（&H）"EndBeginMenu_AboutCaption='關于計算器"EndEndEndAttributeVB_Name="Frm_Scientific"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttribut

16、eVB_Exposed=FalseOptionExplicitDimque(25)AsDoublePublicqtAsIntegerPublicqhAsIntegerPublicqvAsIntegerPublicangAsDoublePublicmemoAsDoubleDimdflagAsIntegerDimiAsIntegerDimopnreAsIntegerDimprevAsDoubleDimoflagAsIntegerDimindAsIntegerPrivateSubCmd_Atan_Click()'Atan函數=Str(Atn(Val)/ang)EndSubPrivateSub

17、Cmd_Backspace_Click()'退格If="0."ThenExitSubEndIfIf<>"")Then=Mid,1,Len-1)ElseIf=""Then="0."EndIfEndSubPrivateSubCmd_C_Click()'清零="0"prev=0EndSubPrivateSubCmd_CE_Click()dflag=0prev=0oflag=0ind=0opnre=0Txt_Result="0"EndSubPrivateS

18、ubCmd_Cos_Click()'Cos值=Str(Cos(ang * Val)prev=EndSubPrivateSubCmd_Cube_Click()=Val人3prev=EndSubPrivateSubCmd_Exp_Click()'計算Exp的值=Expprev=EndSubPrivateSubCmd_Fact_Click()'N!=Str(fac(Val)prev=EndSubPrivateSubCmd_fraction_Click()'倒數DimTempTemp=ValIfTemp<>0Then=Str(1/Temp)Else=除數不能

19、為零。”EndIfprev=EndSubPrivateSubCmd_Ln_Click()'LNIfVal>0Then=Str(Log(Val)Else='輸入有誤。"EndIfprev=EndSubPrivateSubCmd_Log_Click()'LogIfVal>0Then=Str(Log(Val)/Log(10)Else='輸入有誤。"EndIfprev=EndSubPrivateSubCmd_Operator_Click(IndexAsInteger)'單擊操作符按鈕Ifopnre=0OrIndex=4ThenIf

20、ind=3Then'力口號prev=prev+ValElseIfind=2Then'減號prev=prev-ValElseIfind=0Then'除號IfVal=0Then=除數不能為零。”ExitSubElseprev=prev/ValEndIfElselfind=5Then'XAYprev=prevaValElselfind=1Then乘號prev=prev*ValEndIfIfprev=0Then'如果前一個操作數為0prev=將當前的值傳給操作數日se否則=Str(prev)'將操作數的值傳遞給文本框顯示EndIfoflag=0EndIf

21、opnre=1ind=Indexdflag=0EndSubPrivateSubCmd_PI_Click()'PIprev=EndSubPrivateSubCmd_Rnd_Click()'產生一個隨機數EndSubPrivateSubCmd_Sin_Click()'Sin值=Str(Sin(ang*Val)prev=EndSubPrivateSubCmd_sqrt_Click()'求平方根DimTempAsIntegerTemp=ValIfTemp>0OrTemp=0Then=Str(Sqr(Val)Else="函數輸入無效。"EndIf

22、EndSubPrivateSubCmd_Square_Click()'求平方=Val人2prev=EndSubPrivateSubCmd_Tan_Click()'Tan函數If(Cos(Val)<>0Then=Str(Sin(ang*Val)/Cos(ang*Val)Else=除數不能為零。”End Ifprev =數字鍵EndSubPrivateSubCommand1_Click(IndexAsInteger)Ifind=4Thenprev=0=""ind=0EndIfopnre=0Ifoflag=0Then=""EndIf

23、oflag=1IfCommand1(Index).Caption<>"."ThenIf<>"0."Then=&Command1(Index).CaptionElse=""&Command1(Index).CaptionEndIfElseIfdflag=0Then=&"."dflag=1Else='輸入有誤。"EndIfEndSubPrivateSubForm_Load()dflag=0prev=0oflag=0ind=0opnre=0EndSubPrivateSubMenu_All_Cl