计算器vb源代码.txt性格本身没有好坏，乐观和悲观对这个世界都有贡献，前者发明了飞机，后者发明了降落伞。完全版的前后台代码...
'请把下面的保存为 form1.frm
VERSION 5.00
Begin VB.Form Calculator
BorderStyle = 1 'Fixed Single Caption = \计算器\ ClientHeight = 2970 ClientLeft = 2580 ClientTop = 1485 ClientWidth = 3270
ClipControls = 0 'False BeginProperty Font
Name = \ Size = 9.75 Charset = 0 Weight = 700
Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty
Icon = \ LinkMode = 1 'Source LinkTopic = \
MaxButton = 0 'False PaletteMode = 1 'UseZOrder ScaleHeight = 2970 ScaleWidth = 3270
WhatsThisHelp = -1 'True Begin VB.CommandButton Number
Caption = \ Height = 480 Index = 7 Left = 120 TabIndex = 7
Top = 600 Width = 480 End
Begin VB.CommandButton Number
Caption = \ Height = 480 Index = 8
Left = 720 TabIndex = 8
Top = 600 Width = 480 End
Begin VB.CommandButton Number
Caption = \ Height = 480 Index = 9 Left = 1320 TabIndex = 9
Top = 600 Width = 480 End
Begin VB.CommandButton Cancel
Caption = \ Height = 480 Left = 2040 TabIndex = 10
Top = 600 Width = 480 End
Begin VB.CommandButton CancelEntry Caption = \ Height = 480 Left = 2640 TabIndex = 11
Top = 600 Width = 480 End
Begin VB.CommandButton Number
Caption = \ Height = 480 Index = 4 Left = 120 TabIndex = 4
Top = 1200 Width = 480 End
Begin VB.CommandButton Number
Caption = \ Height = 480 Index = 5 Left = 720
TabIndex = 5
Top = 1200 Width = 480 End
Begin VB.CommandButton Number
Caption = \ Height = 480 Index = 6 Left = 1320 TabIndex = 6
Top = 1200 Width = 480 End
Begin VB.CommandButton Operator
Caption = \ Height = 480 Index = 1 Left = 2040 TabIndex = 12
Top = 1200 Width = 480 End
Begin VB.CommandButton Operator
Caption = \ Height = 480 Index = 3 Left = 2640 TabIndex = 13
Top = 1200 Width = 480 End
Begin VB.CommandButton Number
Caption = \ Height = 480 Index = 1 Left = 120 TabIndex = 1
Top = 1800 Width = 480 End
Begin VB.CommandButton Number
Caption = \ Height = 480 Index = 2
Left = 720 TabIndex = 2
Top = 1800 Width = 480 End
Begin VB.CommandButton Number
Caption = \ Height = 480 Index = 3 Left = 1320 TabIndex = 3
Top = 1800 Width = 480 End
Begin VB.CommandButton Operator
Caption = \ Height = 480 Index = 2 Left = 2040 TabIndex = 14
Top = 1800 Width = 480 End
Begin VB.CommandButton Operator
Caption = \ Height = 480 Index = 0 Left = 2640 TabIndex = 15
Top = 1800 Width = 480 End
Begin VB.CommandButton Number
Caption = \ Height = 480 Index = 0 Left = 120 TabIndex = 0
Top = 2400 Width = 1080 End
Begin VB.CommandButton Decimal
Caption = \ Height = 480
Left = 1320 TabIndex = 18
Top = 2400 Width = 480 End
Begin VB.CommandButton Operator
Caption = \ Height = 480 Index = 4 Left = 2040 TabIndex = 16
Top = 2400 Width = 480 End
Begin VB.CommandButton Percent
Caption = \ Height = 480 Left = 2640 TabIndex = 17
Top = 2400 Width = 480 End
Begin VB.Label Readout
Alignment = 1 'Right Justify BackColor = &H0000FFFF&
BorderStyle = 1 'Fixed Single Caption = \ BeginProperty Font
Name = \ Size = 12 Charset = 0 Weight = 700
Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty
ForeColor = &H00000000& Height = 375 Left = 120 TabIndex = 19
Top = 105 Width = 3000 End End
计算器vb源代码
