《黄金分割法VB程序.doc》由会员分享,可在线阅读,更多相关《黄金分割法VB程序.doc(6页珍藏版)》请在金锄头文库上搜索。
1、VERSION 5.00Begin VB.Form Form1 BorderStyle = 4 Fixed ToolWindow Caption = Form1 ClientHeight = 4995 ClientLeft = 5550 ClientTop = 4260 ClientWidth = 5295 BeginProperty Font Name = 宋体 Size = 6.75 Charset = 134 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty Link
2、Topic = Form1 MaxButton = 0 False MinButton = 0 False ScaleHeight = 333 ScaleMode = 3 Pixel ScaleWidth = 353 ShowInTaskbar = 0 False StartUpPosition = 1 所有者中心 Begin VB.TextBox Text5 BeginProperty Font Name = 宋体 Size = 12 Charset = 134 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough =
3、 0 False EndProperty ForeColor = &H00000000& Height = 1140 Left = 2040 MultiLine = -1 True TabIndex = 8 Top = 3600 Width = 2655 End Begin VB.CommandButton Command1 Caption = 求优 BeginProperty Font Name = 楷体_GB2312 Size = 15 Charset = 134 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough
4、 = 0 False EndProperty Height = 480 Left = 360 TabIndex = 7 Top = 3840 Width = 1095 End Begin VB.TextBox Text4 BeginProperty Font Name = 楷体_GB2312 Size = 15 Charset = 134 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty Height = 420 Left = 2040 TabIndex = 6 Text
5、= 0.005 Top = 2760 Width = 2655 End Begin VB.TextBox Text3 BeginProperty Font Name = 楷体_GB2312 Size = 15 Charset = 134 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty Height = 420 Left = 3000 TabIndex = 4 Text = 3 Top = 1920 Width = 615 End Begin VB.TextBox Text
6、2 BeginProperty Font Name = 楷体_GB2312 Size = 15 Charset = 134 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty Height = 420 Left = 2040 TabIndex = 3 Text = -1 Top = 1920 Width = 615 End Begin VB.TextBox Text1 BeginProperty Font Name = 楷体_GB2312 Size = 15 Charset
7、= 134 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty Height = 420 Left = 1320 TabIndex = 0 Text = x2-x+2 Top = 1080 Width = 3375 End Begin VB.Label Label3 Caption = 搜索精度: BeginProperty Font Name = 楷体_GB2312 Size = 15 Charset = 134 Weight = 400 Underline = 0 Fal
8、se Italic = 0 False Strikethrough = 0 False EndProperty Height = 375 Left = 360 TabIndex = 5 Top = 2760 Width = 1575 End Begin VB.Label Label2 Caption = 搜索区间:( , ) BeginProperty Font Name = 楷体_GB2312 Size = 15 Charset = 134 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty Height = 375 Lef