VERSION 5.00
Begin VB.Form frmContinue 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "點群分析"
   ClientHeight    =   9600
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   12225
   LinkTopic       =   "Form1"
   ScaleHeight     =   9600
   ScaleWidth      =   12225
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "frmContinue"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'點群分析
Option Explicit
Dim Id As Integer
Private Sub Form_Load()
    Me.Left = 100: Me.Top = 0: Me.Height = 11000
    Id = -1
    Me.Caption = "單擊窗體可以繪圖！"
End Sub

'繪制譜線圖
Private Sub Form_Click()
    Dim YMS As Single, YMD As Single, KA As Integer, intXS As Integer
'XS為譜系圖中分類統計量的刻度；KW為譜系圖中垂直連線延續(xù)行數
'W為掃描時的工作單元
    Dim XS(102) As Single, KW(102) As Integer, W(102) As String
    Dim A As String, B As String, C As String
    Dim LL As Integer
    If Id = 1 Then
        Unload Me
        End
    End If
    Me.Print " ": Me.Font = "隸書": Me.FontSize = 24
    If Key < 4 Then Me.Print Spc(11); "Q點群分析譜系圖";
    If Key = 4 Then Me.Print Spc(11); "R點群分析譜系圖";
    If Key = 1 Then Me.Print "（距離系數）"
    If Key = 2 Then Me.Print "（夾角余弦）"
    If Key > 2 Then Me.Print "（相關系數）"
    Me.Font = "": Me.FontSize = 10
    Me.CurrentX = 500: Me.CurrentY = 1100
    If Key < 4 Then Me.Print "樣本號" Else Me.Print "變量號"
    YMS = YM1 - YM2                         '分類統計量的變化范圍
    YMD = YMS / 100
    For I = 1 To 102
        XS(I) = YM1 - YMD * (I - 1)         '統計量刻度值
        KW(I) = 0
    Next I
    Me.CurrentX = 900: Me.CurrentY = 700
    For I = 1 To 10
        Me.Print "+";
        Me.Print "---------";
    Next I
    Me.Print "+"
    Me.CurrentY = 850
    For I = 1 To 101 Step 10            '寫刻度
        Me.CurrentX = 500 + I * 108
        intXS = XS(I) * 1000 + 0.5
        XS(I) = intXS / 1000
        Me.Print XS(I);
    Next I
    KA = 0
    For I = 1 To M3                         'M3為掃描行數
        Me.CurrentX = 100: Me.CurrentY = 1100 + I * 200
        For J = 1 To 102
            W(J) = " "
            If KW(J) > 0 Then W(J) = "|"
            KW(J) = KW(J) - 1
        Next J
        For J = 1 To M2                     'M2為譜系圖水平連線數
            If KX1(J) <> I Then GoTo 85
            If Key = 1 Then GoTo 82
            For K = 1 To 101
                If XS(K) <= X1(J) And XS(K) >= X2(J) And W(K) <> "|" Then _
                    W(K) = "-"
                If XS(K + 1) <= X2(J) Then GoTo 84
            Next K
            GoTo 85
82:         For K = 1 To 101
                If XS(K) >= X1(J) And XS(K) <= X2(J) And W(K) <> "|" Then _
                    W(K) = "-"
                If XS(K + 1) >= X2(J) Then GoTo 84
            Next K
84:         If KX2(J) = 0 Then GoTo 85
            KW(K) = KX2(J)
85:     Next J
        If I Mod 2 = 1 Then GoTo 86
        Me.Print Spc(8);
        For LL = 1 To 101
            Me.Print W(LL);             '繪譜線
        Next LL
        GoTo 87
86:     KA = KA + 1
        W(1) = "-"
        If KM(KA) < 10 Then
            Me.Print Spc(5); KM(KA);
        Else
            Me.Print Spc(4); KM(KA);
        End If
        For LL = 1 To 101               '繪譜線
            Me.Print W(LL);
        Next LL
87: Next I
    Id = 1
    Me.Caption = "單擊窗體可以結束程序運行！"
End Sub