comput.frm

计算器,和windows系统的相似的一个计算器

VERSION 5.00
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form Form1 
   Caption         =   "计算器"
   ClientHeight    =   3150
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4635
   LinkTopic       =   "Form1"
   ScaleHeight     =   3150
   ScaleWidth      =   4635
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text1 
      Alignment       =   1  'Right Justify
      Height          =   375
      HideSelection   =   0   'False
      Left            =   120
      Locked          =   -1  'True
      TabIndex        =   26
      Text            =   "0."
      Top             =   120
      Width           =   4215
   End
   Begin VB.OptionButton Option4 
      Caption         =   "Option4"
      Height          =   255
      Left            =   960
      TabIndex        =   25
      Top             =   2520
      Width           =   255
   End
   Begin VB.OptionButton Option3 
      Caption         =   "Option3"
      Height          =   255
      Left            =   960
      TabIndex        =   24
      Top             =   1800
      Width           =   255
   End
   Begin VB.OptionButton Option2 
      Caption         =   "Option2"
      Height          =   255
      Left            =   960
      TabIndex        =   23
      Top             =   1080
      Value           =   -1  'True
      Width           =   255
   End
   Begin MSForms.CommandButton ds 
      Height          =   375
      Left            =   3840
      TabIndex        =   28
      Top             =   2040
      Width           =   520
      ForeColor       =   16711680
      Caption         =   "1/x"
      Size            =   "917;661"
      FontName        =   "宋体"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton CommandButton1 
      Height          =   375
      Left            =   3840
      TabIndex        =   27
      Top             =   2520
      Width           =   520
      ForeColor       =   255
      Caption         =   "="
      Size            =   "917;661"
      FontName        =   "宋体"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin VB.Label Label4 
      Caption         =   "二进制"
      Height          =   255
      Left            =   120
      TabIndex        =   22
      Top             =   2520
      Width           =   735
   End
   Begin VB.Label Label3 
      Caption         =   "八进制"
      Height          =   255
      Left            =   120
      TabIndex        =   21
      Top             =   1800
      Width           =   735
   End
   Begin VB.Label Label2 
      Caption         =   "十进制"
      Height          =   255
      Left            =   120
      TabIndex        =   20
      Top             =   1080
      Width           =   735
   End
   Begin MSForms.CommandButton ysf 
      Height          =   375
      Index           =   4
      Left            =   3840
      TabIndex        =   19
      Top             =   1560
      Width           =   520
      ForeColor       =   16711680
      Caption         =   "%"
      Size            =   "917;661"
      FontName        =   "宋体"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton sqrt 
      Height          =   375
      Left            =   3840
      TabIndex        =   18
      Top             =   1080
      Width           =   520
      ForeColor       =   16711680
      Caption         =   "sqrt"
      Size            =   "917;661"
      FontName        =   "宋体"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton clear 
      Height          =   375
      Left            =   3000
      TabIndex        =   17
      Top             =   600
      Width           =   1095
      ForeColor       =   255
      Caption         =   "归 零"
      Size            =   "1931;661"
      FontName        =   "宋体"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton del 
      Height          =   375
      Left            =   1800
      TabIndex        =   16
      Top             =   600
      Width           =   1095
      ForeColor       =   255
      Caption         =   "删 除"
      Size            =   "1931;661"
      FontName        =   "宋体"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton ysf 
      Height          =   375
      Index           =   3
      Left            =   3240
      TabIndex        =   15
      Top             =   2520
      Width           =   520
      ForeColor       =   255
      Caption         =   "+"
      Size            =   "917;661"
      FontName        =   "宋体"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton ysf 
      Height          =   375
      Index           =   2
      Left            =   3240
      TabIndex        =   14
      Top             =   2040
      Width           =   520
      ForeColor       =   255
      Caption         =   "-"
      Size            =   "917;661"
      FontName        =   "宋体"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton ysf 
      Height          =   375
      Index           =   1
      Left            =   3240
      TabIndex        =   13
      Top             =   1560
      Width           =   520
      ForeColor       =   255
      Caption         =   "*"
      Size            =   "917;661"
      FontName        =   "宋体"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton ysf 
      Height          =   375
      Index           =   0
      Left            =   3240
      TabIndex        =   12
      Top             =   1080
      Width           =   520
      ForeColor       =   255
      Caption         =   "/"
      Size            =   "917;661"
      FontName        =   "宋体"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton dot 
      Height          =   375
      Left            =   2640
      TabIndex        =   11
      Top             =   2520
      Width           =   520
      ForeColor       =   16711680
      Caption         =   "."
      Size            =   "917;661"
      FontName        =   "宋体"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton fh 
      Height          =   375
      Left            =   2040
      TabIndex        =   10
      Top             =   2520
      Width           =   520
      ForeColor       =   16711680
      Caption         =   "+/-"
      Size            =   "917;661"
      FontName        =   "宋体"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton b1 
      Height          =   375
      Index           =   0
      Left            =   1440
      TabIndex        =   9
      Top             =   2520
      Width           =   520
      ForeColor       =   16711680
      Caption         =   "0"
      Size            =   "917;661"
      FontName        =   "宋体"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton b1 
      Height          =   375
      Index           =   9
      Left            =   2640
      TabIndex        =   8
      Top             =   1080
      Width           =   525
      ForeColor       =   16711680
      Caption         =   "9"
      Size            =   "917;661"
      FontName        =   "宋体"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton b1 
      Height          =   375
      Index           =   8
      Left            =   2040
      TabIndex        =   7
      Top             =   1080
      Width           =   525
      ForeColor       =   16711680
      Caption         =   "8"
      Size            =   "917;661"