模糊数学基础及实用算法 (源码) 科学出版社 www.sciencep.com

VERSION 5.00
Begin VB.Form frmRoCo 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "提供列数和行数"
   ClientHeight    =   2460
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5190
   LinkTopic       =   "Form1"
   ScaleHeight     =   2460
   ScaleWidth      =   5190
   StartUpPosition =   3  '窗口缺省
   Begin VB.OptionButton Option2 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "使用网格录入"
      ForeColor       =   &H80000008&
      Height          =   375
      Left            =   2880
      TabIndex        =   7
      Top             =   1200
      Width           =   1935
   End
   Begin VB.OptionButton Option1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "使用文本框录入"
      ForeColor       =   &H80000008&
      Height          =   375
      Left            =   360
      TabIndex        =   6
      Top             =   1200
      Value           =   -1  'True
      Width           =   2055
   End
   Begin VB.CommandButton cmdExit 
      Cancel          =   -1  'True
      Caption         =   "退  出"
      Height          =   375
      Left            =   2880
      TabIndex        =   5
      ToolTipText     =   "结束程序运行"
      Top             =   1920
      Width           =   1215
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确  定"
      Default         =   -1  'True
      Height          =   375
      Left            =   1200
      TabIndex        =   4
      ToolTipText     =   "按列数和行数，或转到文本框录入，或转到网格录入"
      Top             =   1920
      Width           =   1215
   End
   Begin VB.TextBox txtRow 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   960
      TabIndex        =   0
      Top             =   600
      Width           =   855
   End
   Begin VB.TextBox txtCol 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3360
      TabIndex        =   3
      Top             =   600
      Width           =   975
   End
   Begin VB.Label lblRow 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "在下面的文本框键入行数"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   240
      Width           =   2535
   End
   Begin VB.Label lblCol 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "在下面的文本框键入列数"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   2520
      TabIndex        =   1
      Top             =   240
      Width           =   2655
   End
End
Attribute VB_Name = "frmRoCo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'参数窗体
'提供数据文件的行数和列数
Option Explicit
'确定
Private Sub cmdOK_Click()
    intRow = Val(txtRow)                '行数
    intCol = Val(txtCol)                '列数
    If (intRow > 38 Or intCol > 19) And (Option2.Value <> True) Then
        MsgBox "由于行数或列数超出文本框范围，必须使用网格录入！"
        Option2.Value = True
    End If
    If Option2 Then                     '决定是文本框录入还是网格录入
        frmGrid.Visible = True          '显示网格录入数据窗体
    Else
        frmText.Visible = True          '显示文本框录入数据窗体
    End If
    Unload Me                           '卸载当前窗体
End Sub

'结束
Private Sub cmdExit_Click()
    Unload Me
    End
End Sub