【VB开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了VB开源代码-Calc.frm的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
VERSION 5.00
Begin VB.Form Form1
Caption = "复杂数学计算器"
ClientHeight = 3600
ClientLeft = 60
ClientTop = 345
ClientWidth = 6360
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 3600
ScaleWidth = 6360
StartUpPosition = 2 'CenterScreen
Begin VB.Frame Frame1
Height = 495
Left = 240
TabIndex = 40
Top = 840
Width = 2175
Begin VB.OptionButton Option2
Caption = "八进制"
Height = 255
Left = 1080
TabIndex = 43
Top = 120
Width = 975
End
Begin VB.OptionButton Option1
Caption = "十进制"
Height = 255
Left = 120
TabIndex = 42
Top = 120
Value = -1 'True
Width = 855
End
End
Begin VB.CommandButton Command23
Caption = "cot"
Height = 375
Left = 480
TabIndex = 39
Top = 3000
Width = 495
End
Begin VB.CommandButton Command22
Caption = "n!"
Height = 375
Left = 1080
TabIndex = 38
Top = 3000
Width = 495
End
Begin VB.CommandButton Command21
Caption = "pi"
Height = 375
Left = 1680
TabIndex = 37
Top = 3000
Width = 495
End
Begin VB.CommandButton Command20
Caption = "log"
Height = 375
Left = 1680
TabIndex = 36
Top = 2520
Width = 495
End
Begin VB.CommandButton Command19
Caption = "ln"
Height = 375
Left = 1680
TabIndex = 35
Top = 2040
Width = 495
End
Begin VB.CommandButton Command18
Caption = "Exp"
Height = 375
Left = 1680
TabIndex = 34
Top = 1560
Width = 495
End
Begin VB.CommandButton Command17
Caption = "x^2"
Height = 375
Left = 1080
TabIndex = 33
Top = 2520
Width = 495
End
Begin VB.CommandButton Command16
Caption = "x^3"
Height = 375
Left = 1080
TabIndex = 32
Top = 2040
Width = 495
End
Begin VB.CommandButton Operate
Caption = "^"
Height = 375
Index = 4
Left = 1080
TabIndex = 31
Top = 1560
Width = 495
End
Begin VB.CommandButton Command14
Caption = "tan"
Height = 375
Left = 480
TabIndex = 30
Top = 2520
Width = 495
End
Begin VB.CommandButton Command13
Caption = "cos"
Height = 375
Left = 480
TabIndex = 29
Top = 2040
Width = 495
End
Begin VB.CommandButton Command12
Caption = "sin"
Height = 375
Left = 480
TabIndex = 28
Top = 1560
Width = 495
End
Begin
VB.CommandButton Command11
Caption = "M+"
Height = 375
Left = 2640
TabIndex = 27
Top = 3000
Width = 495
End
Begin VB.CommandButton Command10
Caption = "MS"
Height = 375
Left = 2640
TabIndex = 26
Top = 2520
Width = 495
End
Begin VB.CommandButton Command9
Caption = "MR"
Height = 375
Left = 2640
TabIndex = 25
Top = 2040
Width = 495
End
Begin VB.CommandButton Command8
Caption = "MC"
Height = 375
Left = 2640
TabIndex = 24
Top = 1560
Width = 495
End
Begin VB.CommandButton Command7
Caption = "1/x"
Height = 375
Left = 5640
TabIndex = 23
Top = 2520
Width = 495
End
Begin VB.CommandButton Command6
Caption = "%"
Height = 375
Left = 5640
TabIndex = 22
Top = 2040
Width = 495
End
Begin VB.CommandButton Command5
Caption = "sqrt"
Height = 375
Left = 5640
TabIndex = 21
Top = 1560
Width = 495
End
Begin VB.CommandButton Command4
Caption = "+/-"
Height = 375
Left = 3840
MaskColor = &H00808080&
TabIndex = 20
Top = 3000
Width = 495
End
Begin VB.TextBox Result
Alignment = 1 'Right Justify
Enabled = 0 'False
Height = 375
Left = 240
Locked = -1 'True
TabIndex = 19
Text = "0"
Top = 240
Width = 5895
End
Begin VB.CommandButton Calc
Caption = "="
Height = 375
Left = 5640
TabIndex = 18
Top = 3000
Width = 495
End
Begin VB.CommandButton Command3
Caption = "C"
Height = 375
Left = 5280
TabIndex = 17
Top = 960
Width = 855
End
Begin VB.CommandButton Command2
Caption = "CE"
Height = 375
Left = 4320
TabIndex = 16
Top = 960
Width = 855
End
Begin VB.CommandButton Command1
BackColor = &H00C0C0C0&
Caption = "Backspace"
Height = 375
Left = 3240
TabIndex = 15
Top = 960
Width = 1000
End
Begin VB.CommandButton Operate
Caption = "+"
Height = 375
Index = 3
Left = 5040
TabIndex = 14
Top = 3000
Width = 495
End
Begin VB.CommandButton Operate
Caption = "-"
Height = 375
Index = 2
Left = 5040
TabIndex = 13
Top = 2520
Width = 495
End
Begin VB.CommandButton Operate
Caption = "*"
Height = 375
Index = 1
Left = 5040
TabIndex = 12
Top = 2040
Width = 495
End
Begin VB.CommandButton Operate
Caption = "/"
Height = 375
Index = 0
Left = 5040
TabIndex = 11
Top = 1560
Width = 495
End
Begin VB.CommandButton Dot
Caption = "."
Height = 375
Left = 4440
TabIn