科学计算器vb代码

Style = 1 'Graphical
TabIndex = 21
Top = 2400
Width = 510
End
Begin Command1
Caption = "."
Height = 390
Index = 11
Left = 3915
TabIndex = 20
Top = 2400
Width = 510
Top = 1455
Width = 510
End
Begin Command1
Caption = "4"
Height = 390
Index = 4
Left = 2820
TabIndex = 4
Top = 1455
Width = 510
End
Begin Command1
Caption = "3"
Height = 390
End
End
End
Attribute VB_Name = "Frm_Scientific"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Caption = "*"
Height = 390
IndexLeabharlann = 1Left = 4470
TabIndex = 11
Top = 1455
Width = 510
End
Begin Cmd_Operator
Caption = "/"
Height = 390
Index = 0
Left = 4470
TabIndex = 10
Caption = "Exp"
Height = 390
Left = 840
TabIndex = 31
Top = 960
Width = 630
End
Begin Cmd_Sin
Caption = "Sin"
Height = 390
Left = 120
TabIndex = 30
Top = 960
Width = 630
Begin Command1
Caption = "1"
Height = 390
Index = 1
Left = 2820
TabIndex = 1
Top = 1935
Width = 510
End
Begin Txt_Result
Alignment = 1 'Right Justify
Height = 315
Caption = "6"
Height = 390
Index = 6
Left = 3915
TabIndex = 6
Top = 1455
Width = 510
End
Begin Command1
Caption = "5"
Height = 390
Index = 5
Left = 3360
TabIndex = 5
Index = 3
Left = 3915
TabIndex = 3
Top = 1935
Width = 510
End
Begin Command1
Caption = "2"
Height = 390
Index = 2
Left = 3360
TabIndex = 2
Top = 1935
Width = 510
End
Caption = "粘贴"
Shortcut = ^V
End
Begin Menu_Cut
Caption = "剪切"
Shortcut = ^X
End
Begin line1
Caption = "-"
End
Begin Menu_All
Caption = "全选"
Shortcut = ^A
End
Begin line2
TabIndex = 13
Top = 405
Width = 1110
End
Begin Cmd_Operator
Caption = "-"
Height = 390
Index = 2
Left = 4470
TabIndex = 12
Top = 1935
Width = 510
End
Begin Cmd_Operator
End
Begin Cmd_Log
Caption = "Log"
Height = 390
Left = 1575
TabIndex = 36
Top = 1455
Width = 630
End
Begin Cmd_Ln
Caption = "Ln"
Height = 390
Left = 1575
TabIndex = 35
Caption = "-"
End
Begin Menu_Exit
Caption = "退出"
End
End
Begin Menu_Help
Caption = "帮助(&H)"
Begin Menu_HelpSubject
Caption = "帮助主题(&H)"
End
Begin Menu_About
Caption = "关于计算器"
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
TabIndex = 25
Top = 210
Width = 795
End
Begin Otn_Deg
Caption = "角度"
Height = 180
Left = 135
TabIndex = 24
Top = 210
Value = -1 'True
Width = 675
End
End
Begin Cmd_Operator
用VB写计算器似乎有很多例子，这个代码就是其中之一，科学计算器是在基本计算器的基础上，加入角度、弧度、梯度、正切、余切、正弦余弦、平方根等的数学计算，当然基础的加减乘除运算就更不用说了，这是在一本VB教程中摘录的代码，你可以此为基础完善扩展该计算器的功能，运行截图如下：
核心代码，只有一个文件代码：
VERSION
Top = 1935
Width = 630
End
Begin Cmd_Atan
Caption = "Atan"
Height = 390
Left = 120
TabIndex = 27
Top = 2400
Width = 630
End
Begin Frame1
Height = 510
Left = 90
TabIndex = 23
Top = 960
Width = 510
End
Begin Command1
Caption = "9"
Height = 390
Index = 9
Left = 3915
TabIndex = 9
Top = 960
Width = 510
End
Begin Command1
Caption = "8"
Height = 390
Caption = "Sqrt"
Height = 390
Left = 5025
TabIndex = 16
Top = 960
Width = 510
End
Begin Cmd_C
Caption = "C"
Height = 405
Left = 4785
TabIndex = 15
Top = 405
Width = 750
Begin Frm_Scientific
Caption = "计算器"
ClientHeight = 2925
ClientLeft = 165
ClientTop = 735
ClientWidth = 5595
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
Left = 90
Locked = -1 'True
TabIndex = 0
Text = "0."
Top = 0
Width = 5385
End
Begin Menu_Edit
Caption = "编辑(&E)"