vb计算器代码

vb计算器代码 ///calc/Frm_Scientific.frm VERSION 5.00 Begin 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_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 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 = "X^2" Height = 390 Left = 840 TabIndex = 34 Top = 2400 Width = 630 End Begin VB.CommandButton Cmd_Cube Caption = "X^3" Height = 390 Left = 825 TabIndex = 33 Top = 1935 Width = 630 End Begin VB.CommandButton Cmd_Operator Caption = "X^Y" Height = 390 Index = 5 Left = 840 TabIndex = 32 Top = 1455 Width = 630 End Begin VB.CommandButton Cmd_Exp 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 Begin 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 = 2625 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 Top = 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 = &H00808080& Style = 1 'Graphical TabIndex = 21 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 Command1 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 = 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 = 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 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 = 390 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 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 Index = 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 Begin 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.Menu 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 = "帮助主题(&H)" End Begin VB.Menu Menu_About Caption = "关于计算器" End End End Attribute VB_Name = "Frm_Scientific" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Dim que(25) As Double Public qt As Integer Public qh As Integer Public qv As Integer Public ang As Double Public memo As Double Dim dflag As Integer Dim i As Integer Dim opnre As Integer Dim prev As Double Dim oflag As Integer Dim ind As Integer Private Sub Cmd_Atan_Click() 'Atan函数 Txt_Result.Text = Str((Atn(Val(Txt_Result.Text))) / ang) prev = Txt_Result.Text End Sub Private Sub 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 If End Sub Private Sub Cmd_C_Click() '清零 Txt_Result.Text = "0" prev = 0 End Sub Private Sub Cmd_CE_Click() dflag = 0 prev = 0 oflag = 0 ind = 0 opnre = 0 Txt_Result = " 0" End Sub Private Sub Cmd_Cos_Click() 'Cos值 Txt_Result.Text = Str(Cos(ang * Val(Txt_Result.Text))) prev = Txt_Result.Text End Sub Private Sub Cmd_Cube_Click() Txt_Result.Text = Val(Txt_Result.Text) ^ 3 prev = Txt_Result.Text End Sub Private Sub Cmd_Exp_Click() '计算Exp的值 Txt_Result.Text = Exp(Txt_Result.Text) prev = Txt_Result.Text End Sub Private Sub Cmd_Fact_Click() 'N～ Txt_Result.Text = Str(fac(Val(Txt_Result.Text))) prev = Txt_Result.Text End Sub Private Sub Cmd_fraction_Click() '倒数 Dim Temp Temp = Val(Txt_Result.Text) If Temp <> 0 Then Txt_Result.Text = Str(1 / Temp) Else Txt_Result.Text = "除数不能为零。" End If prev = Txt_Result.Text End Sub Private 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.Text End Sub Private Sub Cmd_Log_Click() '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.Text End Sub Private Sub Cmd_Operator_Click(Index As Integer) ' 单击操作符按钮 If opnre = 0 Or Index = 4 Then If ind = 3 Then '加号 prev = prev + Val(Txt_Result.Text) 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 'X^Y prev = prev ^ Val(Txt_Result.Text) ElseIf ind = 1 Then '乘号 prev = prev * Val(Txt_Result.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 = 0 End Sub Private Sub Cmd_PI_Click() 'PI Txt_Result.Text = 3.141592654 prev = Txt_Result.Text End Sub Private Sub Cmd_Rnd_Click() '产生一个随机数 Txt_Result.Text = Str(Rnd) End Sub Private Sub Cmd_Sin_Click() 'Sin值 Txt_Result.Text = Str(Sin(ang * Val(Txt_Result.Text))) prev = Txt_Result.Text End Sub Private Sub Cmd_sqrt_Click() '求平方根 Dim Temp As Integer Temp = Val(Txt_Result.Text) If Temp > 0 Or Temp = 0 Then Txt_Result.Text = Str(Sqr(Val(Txt_Result.Text))) Else Txt_Result.Text = "函数输入无效。" End If End Sub Private Sub Cmd_Square_Click() '求平方 Txt_Result.Text = Val(Txt_Result.Text) ^ 2 prev = Txt_Result.Text End Sub Private Sub Cmd_Tan_Click() 'Tan函数 If (Cos(Val(Txt_Result.Text))) <> 0 Then Txt_Result.Text = Str(Sin(ang * Val(Txt_Result.Text)) / Cos(ang * Val(Txt_Result.Text))) Else Txt_Result.Text = "除数不能为零。" End If prev = Txt_Result.Text End Sub Private Sub Command1_Click(Index As Integer) '数字键 If ind = 4 Then prev = 0 Txt_Result.Text = " " ind = 0 End If opnre = 0 If oflag = 0 Then Txt_Result.Text = " " End If oflag = 1 If Command1(Index).Caption <> "." Then If Txt_Result.Text <> "0." Then Txt_Result.Text = Txt_Result.Text & Command1(Index).Caption Else Txt_Result.Text = " " & Command1(Index).Caption End If Else If dflag = 0 Then Txt_Result.Text = Txt_Result.Text & "." dflag = 1 Else Txt_Result.Text = "输入有误。" End If End If End Sub Private Sub Form_Load() dflag = 0 prev = 0 oflag = 0 ind = 0 opnre = 0 Clipboard.Clear End Sub Private Sub Menu_All_Click() '全选 Clipboard.Clear Clipboard.SetText Txt_Result.Text End Sub Private Sub Menu_Copy_Click() '复制 Clipboard.Clear Clipboard.SetText Txt_Result.Text End Sub Private Sub Menu_Cut_Click() '剪切 Clipboard.Clear Clipboard.SetText Txt_Result.Text Txt_Result.Text = "" End Sub Private Sub Menu_Exit_Click() '退出 End End Sub Private Sub Menu_HelpSubject_Click() MsgBox "未开通帮助功能。", vbCritical End Sub Private Sub Menu_Paste_Click() '粘贴 Txt_Result.Text = "" Txt_Result.Text = Clipboard.GetText() End Sub Private Sub Otn_Deg_Click() '角度 If Otn_Deg = True Then ang = 3.141592654 / 180 End If End Sub Private Sub Otn_Grd_Click() '梯度 If Otn_Grd.Value = True Then ang = 3.141592654 / 200 End If End Sub Private Sub Otn_Rad_Click() '弧度 If Otn_Rad.Value = True Then ang = 1 End If End Sub Function fac(num As Long) As Long Dim re If (num < 0 Or num = 0) Then Txt_Result.Text = "输入的数值有误。" fac = num Else If (num > 12) Then Txt_Result.Text = "输入的数值过大。" fac = num Else re = 1 While (num > 0) re = re * num num = num - 1 Wend fac = re End If End If End Function