VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5610
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   9615
   LinkTopic       =   "Form1"
   ScaleHeight     =   5610
   ScaleWidth      =   9615
   StartUpPosition =   3  '窗口缺省
   Begin VB.ListBox List1 
      Height          =   1500
      Left            =   5640
      TabIndex        =   1
      Top             =   1320
      Width           =   2175
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   1455
      Left            =   960
      TabIndex        =   0
      Top             =   600
      Width           =   1575
   End
   Begin VB.Shape Shape1 
      Height          =   1815
      Left            =   720
      Top             =   3120
      Width           =   4215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    Min = List1.List(0)     '這里獲取最大 最小值 作為曲線的最高點和最低點=====
    Max = List1.List(0)
    
    For i = 1 To List1.ListCount - 1
        If List1.List(i) = "" Then Exit For
        If Min < Val(List1.List(i)) Then Min = Min Else Min = Val(List1.List(i))
        If Max > Val(List1.List(i)) Then Max = Max Else Max = Val(List1.List(i))
    Next i
'=============================================================================
X = Shape1.Left        '記錄的起始的橫坐標
y = Shape1.Top + Shape1.Height  '記錄起始的豎坐標
h = Shape1.Height       '記錄總高度
w = Shape1.Width / 31   '記錄每次橫坐標移動的數值
For i = 0 To List1.ListCount - 2  '循環繪制曲線
    If List1.List(i) = "" Then Exit For   '這里判斷若有項數據空就退出循環
        '重點看這句： 畫線 x=起始橫坐標點  y=起始坐標-(當前數據-最小數據)除以 最大最小差[這里相當于獲取位置的比例] 乘以高度
        '說不太清楚  請仔細體會 明白這句的作用 這個例題你就看懂了
        Me.Line ((X), y - Int((List1.List(i) - Min) / (Max - Min) * h))-(X + w, y - Int((List1.List(i + 1) - Min) / (Max - Min) * h))
        '下面這句 改變了起始點的位置 下次可以繼續從這里畫起
        X = X + w
    Next i
End Sub
Private Sub Form_Load()
Randomize     '讓程序真正的隨機
For i = 0 To 30   '循環向list內添加31個數據
    a = Int(Rnd * 80 + 30)
    List1.AddItem a
Next i
End Sub