科学计算器vb代码

1、用VB写计算器似乎有很多例子，这个代码就是其中之一，科学计算器是在基本计算VB教程中摘录的代码，你器的基础上，加入角度、弧度、梯度、正切、余切、正弦余弦、平方根等的数学计算，当然基础的加减乘除运算就更不用说了，这是在一本可以此为基础完善扩展该计算器的功能，运行截图如下:B SS陰JL聞二11SinEkpLn Cos讥TTin13 1和1At an121F工1CEEiU0.1/hLeft5025Tabln dex39Top1455Width510核心代码，只有一个文件代码:VERSION 5.00Begi n VB.Form Frm_Scie ntificCap ti on计算器Clie ntH

2、eight = 2925Clie ntLeft165Clie ntTop735Clie ntWidth5595Li nkTopicForm1LockCo ntrols = -1 TrueMaxButt on0 FalseScaleHeight2925ScaleWidth5595StartU pP osition = 3 窗口缺省IJIIRnd390Begi n VB.Comma ndButton Cmd_R ndCap ti onHeight精选文档10EndBegi n VB.Comma ndButton Cmd _PICap ti onPIHeight390Left1575Tabln de

3、x38Top2400Width630EndBeg in VB.Comma ndButt on Cmd_FactCap ti onN!Height390Left1575Tabln dex37Top1935Width630EndBegi n VB.Comma ndButt on Cmd_LogCap ti on=LogHeight=390Left=1575Tabln dex=36Top=1455Width=630EndBegi n VB.Comma ndButt on Cmd_LnCap ti on=LnHeight=390Left=1575Tabln dex=35Top=960Width=630

4、EndBeg in VB.Comma ndButt on Cmd_SquareCap ti onXA2Height390Left=840Tabln dex=34Top=2400Width=630EndBegi n VB.Comma ndButtonCap ti on=XTHeight=390Left=825Tabln dex=33Top=1935Width=630EndBegi n VB.Comma ndButtonCap ti on=XYHeight=390Index=5Left=840Tabln dex=32Top=1455Width=630EndBegi n VB.Comma ndBut

5、tonCap ti on=Ex pHeight=390Left=840Tabln dex=31Top=960Width=630EndBegi n VB.Comma ndButtonCap ti on=SinHeight=390Left=120Tabln dex=30Top=960Cmd CubeCmd_Op eratorCmd_Ex pCmd SinWidth630EndBegi n VB.Comma ndButt on Cmd_CosCap ti on=CosHeight=390Left=120Tabln dex=29Top=1455Width=630EndBegi n VB.Comma n

6、dButt on Cmd_TanCap ti on=Ta nHeight=390Left=120Tabln dex=28Top=1935Width=630EndBegi n VB.Comma ndButton Cmd_Ata nCap ti on=Ata nHeight=390Left=120Tabln dex=27Top=2400Width=630EndBeg in VB.Frame Frame1Height510Left90Tabln dex23Top330Width2625Begi n VB.O ptio nButt on Otn_GrdCap ti onHeight180Left169

7、5Tabln dex=26Top=210Width=750EndBegi n VB. Op tio nButt on Otn_RadCap ti on一 弧度Height=180Left一 900Tabln dex一 25Top一 210Width一 795EndBegi n VB. Op tio nButt on Otn_DegCap ti on一 角度Height一 180Left一 135Tabln dex一 24Top一 210Value一 -1 TrueWidth一 675EndEndBeg in VB.Comma ndButt on Cmd_Op eratorCap ti on一

8、一Height一 390Index一 4Left=5025Tabln dex一 22Top一 2400Width一 510EndBeg in VB.Comma ndButt on Cmd_Op eratorCap ti on一 +Height一 390Index一 3Left=4470H11MaskColor=& H00808080&Style=1 Gra phicalTabln dex=21Top=2400Width=510EndBeg in VB.Comma ndButt on Comma nd1Cap ti on_ Height=390Index_ 11Left_ 3915Tabln d

9、ex_ 20Top_ 2400Width_ 510EndBeg in VB.Comma ndButt on Comma nd1Cap ti on_ +/-Height_ 390Index_ 10Left_ 3360Tabln dex_ 19Top_ 2400Width_ 510EndBeg in VB.Comma ndButt on Comma nd1Cap ti on_ 0Height_ 390Index_ 0Left_ 2820Tabln dex_ 18Top_ 2400Width_ 510EndBeg in VB.Comma ndButt on Cmd_fractio nCap ti o

10、n_ 1/xHeight_ 390Left5025Tabln dex17Top1935Width510EndBeg in VB.Comma ndButt on Cmd_sqrtCap ti on=SqrtHeight=390Left=5025Tabln dex=16Top=960Width=510EndBegi n VB.Comma ndButton Cmd_CCap ti onCHeight405Left4785Tabln dex15TopWidth405750EndBegi n VB.Comma ndButton Cmd_CECap ti on=CEHeight=405Left=3975T

11、abln dex=14Top=405Width=750EndBeg in VB.Comma ndButt on Cmd_Backs paceCap tio n= BacHeight=405Left=2820Tabln dex=13Top=405Width=1110精选文档EndBeg in VB.Comma ndButt on Cmd_Op eratorCap ti on_ Height=390Index_ 2Left_ 4470Tabln dex_ 12Top_ 1935Width_ 510EndBeg in VB.Comma ndButt on Cmd_Op eratorCap ti on

12、一 11*11Height_ 390Index_ 1Left_ 4470Tabln dex_ 11Top_ 1455Width_ 510EndBeg in VB.Comma ndButt on Cmd_Op eratorCap ti on_ /Height_ 390Index_ 0Left_ 4470Tabln dex_ 10Top_ 960Width_ 510EndBeg in VB.Comma ndButt on Comma nd19390Cap ti onHeightIndex9Left3915Tabln dex9Top960Width51011精选文档Index5Left3360Tab

13、ln dex5Top1455Width51013EndBeg in VB.Comma ndButt on Comma nd1Cap ti on8Height390IndexLeft3360Tabln dexTop960Width510EndBeg in VB.Comma ndButt on Comma nd1Cap ti on7Height390IndexLeft2820Tabln dexTop960Width510EndBeg in VB.Comma ndButt on Comma nd1Cap ti on6Height390IndexLeft3915Tabln dexTop1455Widt

14、h510EndBeg in VB.Comma ndButt on Comma nd1Cap ti on5Height390精选文档Index1Left2820Tabln dex1Top1935Width51015EndBeg in VB.Comma ndButt on Comma nd1Cap ti on4Height390IndexLeft2820Tabln dexTop1455Width510EndBeg in VB.Comma ndButt on Comma nd1Cap ti on3Height390IndexLeft3915Tabln dexTop1935Width510EndBeg

15、 in VB.Comma ndButt on Comma nd1Cap ti on2Height390IndexLeft3360Tabln dexTop1935Width510EndBeg in VB.Comma ndButt on Comma nd1Cap ti on1Height390精选文档EndBegi n VB.TextBox Txt_Result29Alig nment1 Right Justify31590HeightLeftLocked-1 True0.5385Tabln dexTextTopWidthEndBegi n VB.Me nu Me nu_EditCap ti on

16、编辑(&E)Begi n VB.Me nu Menu_Copy复制Cap ti onShortcutEndBegi n VB.Me nu Menu_P aste粘贴Cap ti onShortcutEndBegi n VB.Me nu Men u_CutCap ti onShortcutAXEndH IIBegi n VB.Me nu linelCap ti onEndBegi n VB.Me nu Men u_All全选Cap ti onShortcutaaEndBegi n VB.Me nu line2Cap ti onEndBegi n VB.Me nu Me nu_Exit退岀“Cap

17、 ti onEndEndBeg in VB.Me nu Men u_HelpCap ti on帮助(&H)Begi n VB.Me nu Men u_Hel pSubjectCap ti on帮助主题(&H)EndBegi n VB.Me nu Men u_AboutCap ti on关于计算器“EndEndEndAttribute VB Name = Frm ScientificAttribute VB_GlobalNameS pace = FalseAttribute VB Creatable = FalseAttribute VB Predeclaredid = TrueAttribut

18、e VB_Ex posed = FalseOp ti on Exp licitDim que(25) As DoubleP ublic qt As In tegerP ublic qh As In tegerP ublic qv As In tegerP ublic ang As DoubleP ublic memo As DoubleDim dflag As In tegerDim i As In tegerDim opnre As In tegerDim p rev As DoubleDim oflag As In tegerDim ind As In tegerPrivate Sub C

19、md_Atan_Click() Ata n函数Txt_Result.Text = Str(At n( Val(Txt_Result.Text) / ang)p rev = Txt_Result.TextEnd SubPrivate Sub Cmd_Backs pace_Click()退格If Txt Result.Text = 0. ThenExit SubEnd IfIf (Txt_Result.Text ) ThenTxt_Result.Text = Mid(Txt_Result.Text, 1, Le n( Txt_Result.Text)-1)ElseIf Txt Result.Tex

20、t = ThenTxt Result.Text = 0.End IfEnd SubPrivate Sub Cmd_C_Click()清零Txt Result.Text = 0prev = 0End SubPrivate Sub Cmd_CE_Click()dflag = 0prev = 0oflag = 0ind = 0opnre = 0Txt Result = 0End SubPrivate Sub Cmd_Cos_Click() CosTxt_Result.Text = Str(Cos(a ng * Val(Txt_Result.Text)p rev = Txt_Result.TextEn

21、d SubPrivate Sub Cmd_Cube_Click()Txt_Result.Text = Val(Txt_Result.Text)人 3prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Exp_Click()计算Exp的值Txt_Result.Text = Exp (Txt_Result.Text)p rev = Txt_Result.TextEnd SubPrivate Sub Cmd_Fact_Click() NTxt_Result.Text = Str(fac(Val(Txt_Result.Text)p rev = Txt_Result

22、.Text倒数End SubPrivate Sub Cmd_fraction_Click()Dim TempTemp = Val(Txt_Result.Text)If Temp 0 The nTxt_Result.Text = Str(1 / Temp)ElseTxt Result.Text =除数不能为零。“End Ifprev = Txt_Result.TextEnd SubPrivate Sub Cmd_Ln_Click() LNIf Val(Txt_Result.Text) 0 ThenTxt_Result.Text = Str(Log(Val(Txt_Result.Text)Else

23、Txt Result.Text =输入有误。“End Ifprev = Txt_Result.TextEnd SubPrivate Sub Cmd_Log_Click() LogIf Val(Txt_Result.Text) 0 ThenTxt_Result.Text = Str(Log(Val(Txt_Result.Text) / Log(10)ElseTxt Result.Text =输入有误。“End Ifprev = Txt_Result.TextEnd SubPrivate Sub Cmd_O perator_Click(l ndex As In teger)单击操作符按钮If op

24、nre = 0 Or In dex = 4 ThenIf i nd = 3 The n加号prev = prev + Val(Txt_Result.Text)ElseIf i nd = 2 The n减号除号prev = prev - Val(Txt_Result.Text)Elself i nd = 0 The nIf Val(Txt_Result.Text) = 0 ThenTxt Result.Text =除数不能为零。“Exit SubElseprev = prev / Val(Txt_Result.Text)End IfElseIf i nd = 5 The nWY乘号prev =

25、prev 人 Val(Txt_Result.Text)Elself i nd = 1 The nprev = prev * Val(Txt_Result.Text)End IfIf prev = 0 Then如果前一个操作数为 0prev = Txt_Result.Text 将当前的值传给操作数ElseTxt_Result.Text = Str( prev)将操作数的值传递给文本框显示否则End Ifoflag = 0End Ifopnre = 1ind = In dexdflag = 0End SubPrivate Sub Cmd_ PI_ClickO PITxt Result.Text =

26、 3.141592654prev = Txt_Result.Text产生一个随机数End SubPrivate Sub Cmd_R nd_ClickO Txt_Result.Text = Str(R nd)End SubPrivate Sub Cmd_Sin_Click() SinTxt_Result.Text = Str(Si n(ang * Val(Txt_Result.Text)p rev = Txt_Result.TextEnd SubPrivate Sub Cmd_sqrt_ClickO 求平方根Dim Temp As In tegerTemp = Val(Txt_Result.Te

27、xt)If Temp 0 Or Temp = 0 The nTxt_Result.Text = Str(Sqr(Val(Txt_Result.Text)ElseTxt Result.Text =函数输入无效。“求平方函数Txt Result.Text =除数不能为零。“End IfEnd SubPrivate Sub Cmd_Square_Click()Txt_Result.Text = Val(Txt_Result.Text)人 2p rev = Txt_Result.TextEnd SubPrivate Sub Cmd_Tan_Click() TanIf (Cos(Val(Txt_Resu

28、lt.Text) 0 ThenTxt_Result.Text = Str(Si n(a ng * Val(Txt_Result.Text) / Cos(a ng * Val(Txt_Result.Text)ElseEnd Ifprev = Txt_Result.TextEnd Sub数字键Private Sub Comma nd1_Click(l ndex As In teger)If i nd = 4 The nprev = 0Txt Result.Text =ind = 0End Ifopnre = 0If oflag = 0 ThenTxt Result.Text =End Ifofla

29、g = 1If Comma nd1(l ndex).Ca ptio n . ThenIf Txt Result.Text 0. ThenTxt_Result.Text = Txt_Result.Text & Comma nd1(l ndex).Ca ptionElseTxt_Result.Text = & Comma nd1(l ndex).Ca ptionEnd IfElseIf dflag = 0 ThenTxt Result.Text = Txt Result.Text & .dflag = 1ElseTxt Result.Text =输入有误。“End IfEnd IfEnd SubPrivate Sub Form_Load()dflag = 0prev = 0oflag = 0ind = 0opnre = 0Cli pboard.ClearEnd SubPrivate Sub Men u_All_Click()全选Cli