rpncalc.frm

一个VB小程序,能够进行大数的计算,可以作为学习的参考

VERSION 5.00
Begin VB.Form Slate 
   BackColor       =   &H00000000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "RPNcalculator"
   ClientHeight    =   5085
   ClientLeft      =   345
   ClientTop       =   1410
   ClientWidth     =   9255
   BeginProperty Font 
      Name            =   "Arial Unicode MS"
      Size            =   8.25
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H00E0E0E0&
   Icon            =   "RPNCalc.frx":0000
   MaxButton       =   0   'False
   ScaleHeight     =   1024
   ScaleLeft       =   -1
   ScaleMode       =   0  'User
   ScaleWidth      =   1024
   Begin VB.Frame Opframe 
      BackColor       =   &H00000000&
      Height          =   2175
      Index           =   0
      Left            =   120
      TabIndex        =   49
      Top             =   2768
      Width           =   1048
      Begin VB.CommandButton MixdOps 
         Caption         =   "confrc"
         Height          =   320
         Index           =   5
         Left            =   120
         TabIndex        =   39
         ToolTipText     =   " continued fraction (a, b, >= n) "
         Top             =   240
         Width           =   830
      End
      Begin VB.CommandButton MixdOps 
         Caption         =   "farey"
         Height          =   320
         Index           =   6
         Left            =   120
         TabIndex        =   38
         ToolTipText     =   " next Farey term (a, b, <= n) "
         Top             =   610
         Width           =   830
      End
      Begin VB.CommandButton MixdOps 
         Caption         =   "bezout"
         Height          =   320
         Index           =   7
         Left            =   120
         TabIndex        =   37
         ToolTipText     =   " solve B閦out's identity ax - by = c "
         Top             =   985
         Width           =   830
      End
      Begin VB.CommandButton BinOps 
         Caption         =   "gcd"
         Height          =   320
         Index           =   1
         Left            =   120
         TabIndex        =   36
         ToolTipText     =   " gcd (a, b) "
         Top             =   1360
         Width           =   830
      End
      Begin VB.CommandButton BinOps 
         Caption         =   "lcm"
         Height          =   320
         Index           =   2
         Left            =   120
         TabIndex        =   35
         ToolTipText     =   " lcm (a, b) "
         Top             =   1740
         Width           =   830
      End
   End
   Begin VB.Frame Opframe 
      BackColor       =   &H00000000&
      Height          =   2175
      Index           =   1
      Left            =   1274
      TabIndex        =   48
      Top             =   2768
      Width           =   1094
      Begin VB.CommandButton MixdOps 
         Caption         =   "modpwr"
         Height          =   320
         Index           =   4
         Left            =   130
         TabIndex        =   34
         ToolTipText     =   " a^ k (mod m) "
         Top             =   240
         Width           =   855
      End
      Begin VB.CommandButton MixdOps 
         Caption         =   "modord"
         Height          =   320
         Index           =   0
         Left            =   130
         TabIndex        =   33
         ToolTipText     =   " smallest k for which a^ k = 1 (mod m) "
         Top             =   610
         Width           =   855
      End
      Begin VB.CommandButton MixdOps 
         Caption         =   "modinv"
         Height          =   320
         Index           =   1
         Left            =   130
         TabIndex        =   32
         ToolTipText     =   " solve ax = 1 (mod m) "
         Top             =   985
         Width           =   855
      End
      Begin VB.CommandButton MixdOps 
         Caption         =   "modsqr"
         Height          =   320
         Index           =   2
         Left            =   130
         TabIndex        =   31
         ToolTipText     =   " solve x^2 = a (mod m) "
         Top             =   1360
         Width           =   855
      End
      Begin VB.CommandButton MixdOps 
         Caption         =   "chinese"
         Height          =   320
         Index           =   3
         Left            =   130
         TabIndex        =   30
         ToolTipText     =   " solve x = a (mod m), x = b (mod n) "
         Top             =   1740
         Width           =   855
      End
   End
   Begin VB.Frame Mainf 
      BackColor       =   &H00000000&
      Caption         =   "Z"
      ForeColor       =   &H00C0C0C0&
      Height          =   2175
      Left            =   2472
      TabIndex        =   46
      Top             =   2768
      Width           =   2296
      Begin VB.CommandButton BinOps 
         Caption         =   "mod"
         Height          =   375
         Index           =   4
         Left            =   140
         TabIndex        =   21
         ToolTipText     =   " a (mod m) "
         Top             =   240
         Width           =   615
      End
      Begin VB.CommandButton BinOps 
         Caption         =   "a^k"
         Height          =   375
         Index           =   3
         Left            =   140
         TabIndex        =   20
         ToolTipText     =   " power (a, k) "
         Top             =   720
         Width           =   615
      End
      Begin VB.CommandButton UnOps 
         Caption         =   "a^2"
         Height          =   375
         Index           =   6
         Left            =   140
         TabIndex        =   19
         ToolTipText     =   " square of a "
         Top             =   1200
         Width           =   615
      End
      Begin VB.CommandButton UnOps 
         Caption         =   "sqrt"
         Height          =   375
         Index           =   7
         Left            =   140
         TabIndex        =   18
         ToolTipText     =   " integer square root of a "
         Top             =   1680
         Width           =   615
      End
      Begin VB.CommandButton BinOps 
         Caption         =   "x"
         BeginProperty Font 
            Name            =   "Fixedsys"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   5
         Left            =   860
         TabIndex        =   12
         ToolTipText     =   "