form2.frm

牛顿法解方程之混沌情况

         EndProperty
         Height          =   285
         Index           =   14
         Left            =   1125
         TabIndex        =   16
         Top             =   1410
         Width           =   1100
      End
      Begin VB.OptionButton OptionZheSe 
         Caption         =   "图片16"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Index           =   15
         Left            =   1125
         TabIndex        =   15
         Top             =   1680
         Width           =   1100
      End
      Begin VB.OptionButton OptionZheSe 
         Caption         =   "图片17"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Index           =   16
         Left            =   1125
         TabIndex        =   14
         Top             =   1950
         Width           =   1100
      End
      Begin VB.OptionButton OptionZheSe 
         Caption         =   "图片18"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Index           =   17
         Left            =   1125
         TabIndex        =   13
         Top             =   2220
         Width           =   1100
      End
      Begin VB.OptionButton OptionZheSe 
         Caption         =   "图片19"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Index           =   18
         Left            =   1125
         TabIndex        =   12
         Top             =   2490
         Width           =   1100
      End
      Begin VB.OptionButton OptionZheSe 
         Caption         =   "图片20"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Index           =   19
         Left            =   1125
         TabIndex        =   11
         Top             =   2760
         Width           =   1100
      End
      Begin VB.OptionButton OptionZheSe 
         Caption         =   "图片21"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Index           =   20
         Left            =   2385
         TabIndex        =   10
         Top             =   330
         Width           =   1100
      End
      Begin VB.OptionButton OptionZheSe 
         Caption         =   "图片22"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Index           =   21
         Left            =   2385
         TabIndex        =   9
         Top             =   600
         Width           =   1100
      End
      Begin VB.OptionButton OptionZheSe 
         Caption         =   "图片23"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Index           =   22
         Left            =   2385
         TabIndex        =   8
         Top             =   870
         Width           =   1100
      End
      Begin VB.OptionButton OptionZheSe 
         Caption         =   "图片24"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Index           =   23
         Left            =   2385
         TabIndex        =   7
         Top             =   1140
         Width           =   1100
      End
      Begin VB.OptionButton OptionZheSe 
         Caption         =   "图片25"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Index           =   24
         Left            =   2385
         TabIndex        =   6
         Top             =   1410
         Width           =   1100
      End
      Begin VB.OptionButton OptionZheSe 
         Caption         =   "图片26"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Index           =   25
         Left            =   2385
         TabIndex        =   5
         Top             =   1680
         Width           =   1100
      End
      Begin VB.OptionButton OptionZheSe 
         Caption         =   "图片27"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Index           =   26
         Left            =   2385
         TabIndex        =   4
         Top             =   1950
         Width           =   1100
      End
      Begin VB.OptionButton OptionZheSe 
         Caption         =   "图片28"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Index           =   27
         Left            =   2385
         TabIndex        =   3
         Top             =   2220
         Width           =   1100
      End
      Begin VB.OptionButton OptionZheSe 
         Caption         =   "图片29"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Index           =   28
         Left            =   2385
         TabIndex        =   2
         Top             =   2490
         Width           =   1100
      End
      Begin VB.OptionButton OptionZheSe 
         Caption         =   "图片30"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Index           =   29
         Left            =   2385
         TabIndex        =   1
         Top             =   2760
         Width           =   1100
      End
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public checkv As Long
Private Sub Command1_Click()
If checkv = -1 Then checkv = 0
'hs
Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
checkv = -1
Me.OptionZheSe(0).Value = True
End Sub

Private Sub OptionZheSe_Click(Index As Integer)
checkv = Index
End Sub