VB计算器代码.doc

《VB计算器代码.doc》由会员分享，可在线阅读，更多相关《VB计算器代码.doc（15页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、/calc/Frm_Scientific.frmVERSION 5.00Begin VB.Form Frm_Scientific Caption = 计算器 ClientHeight = 2925 ClientLeft = 165 ClientTop = 735 ClientWidth = 5595 LinkTopic = Form1 LockControls = -1 True MaxButton = 0 False ScaleHeight = 2925 ScaleWidth = 5595 StartUpPosition = 3 窗口缺省 Begin VB.CommandButton Cmd

2、_Rnd Caption = Rnd Height = 390 Left = 5025 TabIndex = 39 Top = 1455 Width = 510 End Begin VB.CommandButton Cmd_PI Caption = PI Height = 390 Left = 1575 TabIndex = 38 Top = 2400 Width = 630 End Begin VB.CommandButton Cmd_Fact Caption = N! Height = 390 Left = 1575 TabIndex = 37 Top = 1935 Width = 630

3、 End Begin VB.CommandButton Cmd_Log Caption = Log Height = 390 Left = 1575 TabIndex = 36 Top = 1455 Width = 630 End Begin VB.CommandButton Cmd_Ln Caption = Ln Height = 390 Left = 1575 TabIndex = 35 Top = 960 Width = 630 End Begin VB.CommandButton Cmd_Square Caption = X2 Height = 390 Left = 840 TabIn

4、dex = 34 Top = 2400 Width = 630 End Begin VB.CommandButton Cmd_Cube Caption = X3 Height = 390 Left = 825 TabIndex = 33 Top = 1935 Width = 630 End Begin VB.CommandButton Cmd_Operator Caption = XY Height = 390 Index = 5 Left = 840 TabIndex = 32 Top = 1455 Width = 630 End Begin VB.CommandButton Cmd_Exp

5、 Caption = Exp Height = 390 Left = 840 TabIndex = 31 Top = 960 Width = 630 End Begin VB.CommandButton Cmd_Sin Caption = Sin Height = 390 Left = 120 TabIndex = 30 Top = 960 Width = 630 End Begin VB.CommandButton Cmd_Cos Caption = Cos Height = 390 Left = 120 TabIndex = 29 Top = 1455 Width = 630 End Be

6、gin VB.CommandButton Cmd_Tan Caption = Tan Height = 390 Left = 120 TabIndex = 28 Top = 1935 Width = 630 End Begin VB.CommandButton Cmd_Atan Caption = Atan Height = 390 Left = 120 TabIndex = 27 Top = 2400 Width = 630 End Begin VB.Frame Frame1 Height = 510 Left = 90 TabIndex = 23 Top = 330 Width = 262

7、5 Begin VB.OptionButton Otn_Grd Caption = 梯度 Height = 180 Left = 1695 TabIndex = 26 Top = 210 Width = 750 End Begin VB.OptionButton Otn_Rad Caption = 弧度 Height = 180 Left = 900 TabIndex = 25 Top = 210 Width = 795 End Begin VB.OptionButton Otn_Deg Caption = 角度 Height = 180 Left = 135 TabIndex = 24 To

8、p = 210 Value = -1 True Width = 675 End End Begin VB.CommandButton Cmd_Operator Caption = = Height = 390 Index = 4 Left = 5025 TabIndex = 22 Top = 2400 Width = 510 End Begin VB.CommandButton Cmd_Operator Caption = + Height = 390 Index = 3 Left = 4470 MaskColor = &H& Style = 1 Graphical TabIndex = 21

9、 Top = 2400 Width = 510 End Begin VB.CommandButton Command1 Caption = . Height = 390 Index = 11 Left = 3915 TabIndex = 20 Top = 2400 Width = 510 End Begin VB.CommandButton Command1 Caption = +/- Height = 390 Index = 10 Left = 3360 TabIndex = 19 Top = 2400 Width = 510 End Begin VB.CommandButton Comma

10、nd1 Caption = 0 Height = 390 Index = 0 Left = 2820 TabIndex = 18 Top = 2400 Width = 510 End Begin VB.CommandButton Cmd_fraction Caption = 1/x Height = 390 Left = 5025 TabIndex = 17 Top = 1935 Width = 510 End Begin VB.CommandButton Cmd_sqrt Caption = Sqrt Height = 390 Left = 5025 TabIndex = 16 Top =

11、960 Width = 510 End Begin VB.CommandButton Cmd_C Caption = C Height = 405 Left = 4785 TabIndex = 15 Top = 405 Width = 750 End Begin VB.CommandButton Cmd_CE Caption = CE Height = 405 Left = 3975 TabIndex = 14 Top = 405 Width = 750 End Begin VB.CommandButton Cmd_Backspace Caption = Backspace Height =

12、405 Left = 2820 TabIndex = 13 Top = 405 Width = 1110 End Begin VB.CommandButton Cmd_Operator Caption = - Height = 390 Index = 2 Left = 4470 TabIndex = 12 Top = 1935 Width = 510 End Begin VB.CommandButton Cmd_Operator Caption = * Height = 390 Index = 1 Left = 4470 TabIndex = 11 Top = 1455 Width = 510

13、 End Begin VB.CommandButton Cmd_Operator Caption = / Height = 390 Index = 0 Left = 4470 TabIndex = 10 Top = 960 Width = 510 End Begin VB.CommandButton Command1 Caption = 9 Height = 390 Index = 9 Left = 3915 TabIndex = 9 Top = 960 Width = 510 End Begin VB.CommandButton Command1 Caption = 8 Height = 3

14、90 Index = 8 Left = 3360 TabIndex = 8 Top = 960 Width = 510 End Begin VB.CommandButton Command1 Caption = 7 Height = 390 Index = 7 Left = 2820 TabIndex = 7 Top = 960 Width = 510 End Begin VB.CommandButton Command1 Caption = 6 Height = 390 Index = 6 Left = 3915 TabIndex = 6 Top = 1455 Width = 510 End

15、 Begin VB.CommandButton Command1 Caption = 5 Height = 390 Index = 5 Left = 3360 TabIndex = 5 Top = 1455 Width = 510 End Begin VB.CommandButton Command1 Caption = 4 Height = 390 Index = 4 Left = 2820 TabIndex = 4 Top = 1455 Width = 510 End Begin VB.CommandButton Command1 Caption = 3 Height = 390 Inde

16、x = 3 Left = 3915 TabIndex = 3 Top = 1935 Width = 510 End Begin VB.CommandButton Command1 Caption = 2 Height = 390 Index = 2 Left = 3360 TabIndex = 2 Top = 1935 Width = 510 End Begin VB.CommandButton Command1 Caption = 1 Height = 390 Index = 1 Left = 2820 TabIndex = 1 Top = 1935 Width = 510 End Begi

17、n VB.TextBox Txt_Result Alignment = 1 Right Justify Height = 315 Left = 90 Locked = -1 True TabIndex = 0 Text = 0. Top = 0 Width = 5385 End Begin VB.Menu Menu_Edit Caption = 编辑(&E) Begin VB.Menu Menu_Copy Caption = 复制 Shortcut = C End Begin VB.Menu Menu_Paste Caption = 粘贴 Shortcut = V End Begin VB.M

18、enu Menu_Cut Caption = 剪切 Shortcut = X End Begin VB.Menu line1 Caption = - End Begin VB.Menu Menu_All Caption = 全选 Shortcut = A End Begin VB.Menu line2 Caption = - End Begin VB.Menu Menu_Exit Caption = 退出 End End Begin VB.Menu Menu_Help Caption = 帮助(&H) Begin VB.Menu Menu_HelpSubject Caption = 帮助主题(

19、&H) End Begin VB.Menu Menu_About Caption = 关于计算器 End EndEndAttribute VB_Name = Frm_ScientificAttribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitDim que(25) As DoublePublic qt As IntegerPublic qh As IntegerPubl

20、ic qv As IntegerPublic ang As DoublePublic memo As DoubleDim dflag As IntegerDim i As IntegerDim opnre As IntegerDim prev As DoubleDim oflag As IntegerDim ind As IntegerPrivate Sub Cmd_Atan_Click() Atan函数 Txt_Result.Text = Str(Atn(Val(Txt_Result.Text) / ang) prev = Txt_Result.TextEnd SubPrivate Sub

21、Cmd_Backspace_Click() 退格 If Txt_Result.Text = 0. Then Exit Sub End If If (Txt_Result.Text ) Then Txt_Result.Text = Mid(Txt_Result.Text, 1, Len(Txt_Result.Text) - 1) ElseIf Txt_Result.Text = Then Txt_Result.Text = 0. End IfEnd SubPrivate Sub Cmd_C_Click() 清零 Txt_Result.Text = 0 prev = 0End SubPrivate

22、 Sub Cmd_CE_Click() dflag = 0 prev = 0 oflag = 0 ind = 0 opnre = 0 Txt_Result = 0End SubPrivate Sub Cmd_Cos_Click() Cos值 Txt_Result.Text = Str(Cos(ang * Val(Txt_Result.Text) prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Cube_Click() Txt_Result.Text = Val(Txt_Result.Text) 3 prev = Txt_Result.TextEnd S

23、ubPrivate Sub Cmd_Exp_Click() 计算Exp的值 Txt_Result.Text = Exp(Txt_Result.Text) prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Fact_Click() N！ Txt_Result.Text = Str(fac(Val(Txt_Result.Text) prev = Txt_Result.TextEnd SubPrivate Sub Cmd_fraction_Click() 倒数 Dim Temp Temp = Val(Txt_Result.Text) If Temp 0 The

24、n Txt_Result.Text = Str(1 / Temp) Else Txt_Result.Text = 除数不能为零。 End If prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Ln_Click() LN If Val(Txt_Result.Text) 0 Then Txt_Result.Text = Str(Log(Val(Txt_Result.Text) Else Txt_Result.Text = 输入有误。 End If prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Log_Click(

25、) Log If Val(Txt_Result.Text) 0 Then Txt_Result.Text = Str(Log(Val(Txt_Result.Text) / Log(10) Else Txt_Result.Text = 输入有误。 End If prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Operator_Click(Index As Integer) 单击操作符按钮 If opnre = 0 Or Index = 4 Then If ind = 3 Then 加号 prev = prev + Val(Txt_Result.Text)

26、 ElseIf ind = 2 Then 减号 prev = prev - Val(Txt_Result.Text) ElseIf ind = 0 Then 除号 If Val(Txt_Result.Text) = 0 Then Txt_Result.Text = 除数不能为零。 Exit Sub Else prev = prev / Val(Txt_Result.Text) End If ElseIf ind = 5 Then XY prev = prev Val(Txt_Result.Text) ElseIf ind = 1 Then 乘号 prev = prev * Val(Txt_Re

27、sult.Text) End If If prev = 0 Then 如果前一个操作数为0 prev = Txt_Result.Text 将当前的值传给操作数 Else 否则 Txt_Result.Text = Str(prev) 将操作数的值传递给文本框显示 End If oflag = 0 End If opnre = 1 ind = Index dflag = 0End SubPrivate Sub Cmd_PI_Click() PI Txt_Result.Text = 3. prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Rnd_Click() 产生一个随机数 Txt_Result.Text = Str(Rnd)End SubPrivate Sub Cmd_Sin_Click() Sin值 Txt_Result.Text