《科学计算器vb代码》可供会员共享，在线阅读。 更多相关《科学计算器vb代码(30页珍藏版)》请在人人文库网搜索。
1、用VB写计算器好像有很多例子，这个代码就是其中之一。 科学计算器是基本计算器加上角度、弧度、梯度、相切、馀切、正弦余弦、平方根等数学计算。 当然，基础加减乘除运算自不必说，这是VB教程中摘录的代码。 以此为基础可以扩展计算器的功能。 截图执行：LnAtaiLFI核心代码，如下所示： 文件代码为： versionbeginfrm _ scientific caption=计算机clientheight=2925 client left=165 client top=735 clie
2， -1truemaxbutton=0false scale height=2925 scale width=5595 startup position=3窗口中的默认begin cmd _ rndcaptionrndheight 390 lll tionpiheight 390 left 1575 tabl ndex 38 top 2400 width 630 endbegincmd _ factcaptionn！ 高390左1575 tabl NDE x37 top 1935 width 630 end beg。
3、 in cmd _ logcaptionlogheight=390 left=1575 tabl ndex=36 top=1455 width=630 endbegincmd _ ln caption=ln height=390 le fheight 40 tabl ndex=34 top=2400 width=630 endbegincmd _ cube caption=xa3height
4， 630 endbegincmd _ operator caption=xay : height=390 index=5left=840 tabl ndex=32 top=1455 width=630 endbegincmd _ _ _=sinheight=390 left=120 tabl ndex=30 top=960 width=630 endbegincmmd
5、 x=29 top=1455 width=630 endbegincmd _ _ tan caption=tanheight=390 left=120 tabl ndex=28 top=1935 width=630 endbeginch ght=510 left=90 tabl ndex=23 top=330 width=2625 begin OTN _ grd caption一iii
6、 op=210 width=750 endbeginotn _ rad caption-ii弧度“height=180 left=900 tabl ndex=25 top=210 width=795 endbeginotn _ iotn gincmd_operatorcaption一ll _ ll height=390 index=4left=5025 tabl ndex=22 top
7、 ion=height=390 index=3left=4470 style=1graphicaltablndex=21 top=2400 width=510 endbegincommand1captioniiiiioheight=1 idth=510 endbegincommand1caption=//-height=390 index=10 left=3360 tabl ndex=19 top=2400 width=510 maskcolorh
8，=0height=390 index=0left=2820 tabl ndex=18 top=2
400Width=510EndBegi n Cmd_.fractionCapti on=1/xHeight=390Left=5025Tabln dex=17Top=1935Width=510EndBeg in Cmd_sqrtCapti on=SqrtHeight=390Left=5025Tabln dex=16Top=960Width=510EndBegi n Cmd__CCapti on=CHeight=405Left=4785Tabln dex=15Top=405Width=750EndBegi n。9、 Cmd__CECapti on=CEHeight=405Left=3975Tabln dex=14Top=405Width=750EndBegi n Cmd_.BackspaceCapti on=BackspaceHeight=405Left=2820Tabln dex=13Top=405Width=1110EndBeg in Cmd_OperatorCapti onII IIHeight=390Index=2Left=4470Tabln dex=12Top=1935Width=510EndBeg in Cmd_OperatorCapti on一 *Height=390Index一 1Lef。
10、t一 4470Tabln dex一 11Top一 1455Width一 510EndBeg in Cmd_OperatorCapti on一 /Height一 390Index一 0Left一 4470Tabln dex一 10Top一 960Width一 510EndBeg in Comma nd1Capti on=9Height=390Index=9Left=3915Tabln dex=9Top=960Width=510EndBeg in Comma nd1Capti on=8Height=390Index=8Left=3360Tabln dex=8Top=960Width=510EndB。
11、eg in Comma nd1Capti on=7Height=390Index=7Left=2820Tabln dex=7Top=960510WidthEndBeg in Comma nd1Capti on=6Height=390Index=6Left=3915Tabln dex=6Top=1455Width=510EndBeg in Comma nd1Capti on=5Height=390Index=5Left=3360Tabln dex=5Top=1455Width=510EndBeg in Comma nd1Capti on=4Height=390Index=4Left=2820Ta。
12、bln dex=4Top=1455Width=510EndBeg in Comma nd1Capti on=3Height=390Index=3Left=3915Tabln dex=3Top=1935Width=510EndBeg in Comma nd1Capti on=2Height=390Index=2Left=3360Tabln dex=2Top=1935Width=510EndBeg in Comma nd1Captio n= 1Height = 390In dex= 1Left= 2820Tabln dex= 1Top= 1935Width= 510EndBegin Txt_Res。
13、ultAlig nment= 1 Right JustifyHeight= 315Left= 90Locked= -1 TrueTabln dex= 0Text= 0.Top= 0Width= 5385EndBegin Men u_EditCapti on=编辑(&E)Begin Me nu_CopyCapti on=复制“Shortcut= ACEndBegin Men u_PasteCapti on=粘贴Shortcut= AEndBegin Me nu_CutCapti on=剪切“Shortcut= AXEndBegi n linelCaptio n=-EndBegin Men u_A。
14、llCapti on=全选Shortcut= aaEndBegi n line2Captio n=-EndBegin Men u_ExitCapti on=退出“EndEndBegin Me nu_HelpCapti on=帮助(&H)Begin Men u_HelpSubjectCapti on=帮助主题(&H)EndBegin Me nu_AboutCaption=关于计算器EndEndEndAttribute VB_Name = Frm_Scie ntificAttribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = Fals。
15、eAttribute VB_Predeclaredld = TrueAttribute VB_Exposed = FalseOpti on ExplicitDim que(25) As DoublePublic qt As In tegerPublic qh As In tegerPublic qv As In tegerPublic ang As DoublePublic memo As DoubleDim dflag As In tegerDim i As In tegerDim opnre As In tegerDim prev As DoubleDim oflag As In tege。
16、rDim ind As In tegerPrivate Sub Cmd_Atan_Click() Ata n函数=Str(At n( Val) / ang)prev =End Sub退格Private Sub Cmd_Backspace_Click()If = 0. The nExit SubEnd IfIf 0 The n=Str(1 / Temp)Else=除数不能为零。“End Ifprev =End SubPrivate Sub Cmd_Ln_Click() LNIf Vai 0 Then=Str(Log(Val)Else=输入有误。“End Ifprev =End SubPrivat。
17、e Sub Cmd_Log_Click() LogIf Val 0 The n=Str(Log(Val) / Log(10)Else=输入有误。“End Ifprev =End Sub单击操作符按钮Private Sub Cmd_Operator_Click( In dex As In teger)If opnre = 0 Or In dex = 4 The nIf i nd = 3 The n 力廿号prev = prev + ValElseIf i nd = 2 The n减号prev = prev - ValElseIf i nd = 0 The n除号If Val = 0 The n=。
18、除数不能为零。“Exit SubElseprev = prev / ValEnd IfElself ind = 5 Then 紬prev = prev A ValElself i nd = 1 The n 乘号prev = prev * ValEnd IfIf prev = 0 The n如果前一个操作数为 0prev =将当前的值传给操作数Else否则=Str(prev)将操作数的值传递给文本框显示End Ifoflag = 0End Ifopnre = 1ind = In dexdflag = 0End SubPrivate Sub Cmd_PI_Click()卩1prev =End Su。
19、bPrivate Sub Cmd_R nd_Click()产生一个随机数=Str(R nd)End SubPrivate Sub Cmd_Sin_Click() Sin值=Str(Si n(ang * Val)prev =End SubPrivate Sub Cmd_sqrt_Click()求平方根Dim Temp As In tegerTemp = ValIf Temp 0 Or Temp = 0 The n=Str(Sqr(Val)Else=函数输入无效。”End IfEnd SubPrivate Sub Cmd_Square_Click()求平方=Val 人 2prev =End SubPrivate Sub Cmd_Tan_Click() Tan函数If (Cos(Val) . ThenIf 12) The n=输入的数值过大。“ffac = numElsere = 1While (num 0)re = re * numnum = num - 1Wendfac = reEnd IfEnd IfEnd Fun cti onVB科学计算器代码，新建一工程后引入上述代码文件编译即可。