資源描述:
《科學(xué)計(jì)算器vb代碼.doc》由會(huì)員上傳分享,免費(fèi)在線閱讀,更多相關(guān)內(nèi)容在教育資源-天天文庫(kù)。
1、·用VB寫(xiě)計(jì)算器似乎有很多例子,這個(gè)代碼就是其中之一,科學(xué)計(jì)算器是在基本計(jì)算器的基礎(chǔ)上,加入角度、弧度、梯度、正切、余切、正弦余弦、平方根等的數(shù)學(xué)計(jì)算,當(dāng)然基礎(chǔ)的加減乘除運(yùn)算就更不用說(shuō)了,這是在一本VB教程中摘錄的代碼,你可以此為基礎(chǔ)完善擴(kuò)展該計(jì)算器的功能,運(yùn)行截圖如下:核心代碼,只有一個(gè)文件代碼:VERSION5.00BeginVB.FormFrm_ScientificCaption="計(jì)算器"ClientHeight=2925ClientLeft=165ClientTop=735ClientWidth=5595LinkTopic="For
2、m1"LockControls=-1'TrueMaxButton=0'FalseScaleHeight=2925ScaleWidth=5595StartUpPosition=3'窗口缺省BeginVB.CommandButtonCmd_RndCaption="Rnd"Height=390Left=5025TabIndex=39Top=1455Width=510EndBeginVB.CommandButtonCmd_PICaption="PI"Height=390Left=1575TabIndex=38Top=2400Width=630EndB
3、eginVB.CommandButtonCmd_FactCaption="N!"Height=390Left=1575TabIndex=37Top=1935Width=630EndBeginVB.CommandButtonCmd_LogCaption="Log"Height=390Left=1575TabIndex=36Top=1455Width=630EndBeginVB.CommandButtonCmd_LnCaption="Ln"Height=390Left=1575TabIndex=35Top=960Width=630EndBegin
4、VB.CommandButtonCmd_SquareCaption="X^2"Height=390Left=840TabIndex=34Top=2400Width=630EndBeginVB.CommandButtonCmd_CubeCaption="X^3"Height=390Left=825TabIndex=33Top=1935Width=630EndBeginVB.CommandButtonCmd_OperatorCaption="X^Y"Height=390Index=5Left=840TabIndex=32Top=1455Width
5、=630EndBeginVB.CommandButtonCmd_ExpCaption="Exp"Height=390Left=840TabIndex=31Top=960Width=630EndBeginVB.CommandButtonCmd_SinCaption="Sin"Height=390Left=120TabIndex=30Top=960Width=630EndBeginVB.CommandButtonCmd_CosCaption="Cos"Height=390Left=120TabIndex=29Top=1455Width=630En
6、dBeginVB.CommandButtonCmd_TanCaption="Tan"Height=390Left=120TabIndex=28Top=1935Width=630EndBeginVB.CommandButtonCmd_AtanCaption="Atan"Height=390Left=120TabIndex=27Top=2400Width=630EndBeginVB.FrameFrame1Height=510Left=90TabIndex=23Top=330Width=2625BeginVB.OptionButtonOtn_Grd
7、Caption="梯度"Height=180Left=1695TabIndex=26Top=210Width=750EndBeginVB.OptionButtonOtn_RadCaption="弧度"Height=180Left=900TabIndex=25Top=210Width=795EndBeginVB.OptionButtonOtn_DegCaption="角度"Height=180Left=135TabIndex=24Top=210Value=-1'TrueWidth=675EndEndBeginVB.CommandButtonCm
8、d_OperatorCaption="="Height=390Index=4Left=5025TabIndex=22Top=2400Width=510EndBegi