科学计算器vb代码

用 VB 写计算器似乎有很多例子 这个代码就是其中之一 科学计算器是在基本计算 器的基础上 加入角度 弧度 梯度 正切 余切 正弦余弦 平方根等的数学计 算 当然基础的加减乘除运算就更不用说了 这是在一本 VB 教程中摘录的代码 你 可以此为基础完善扩展该计算器的功能 运行截图如下 核心代码 只有一个文件代码 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 全选