Dim 坐标Y As Single
Dim X As Integer
Const n As Integer = 11
Const j As Integer = 10 'X间距
方案1：
For X = 0 To n
坐标Y = Val(txtGet(i))
If X = 0 Then
Me.PSet (j * X + 坐标原点x, 坐标Y) '绝对坐标画点
Else
Me.Line -(j * X + 坐标原点x, 坐标Y) '绝对坐标画线
End If
Next X
方案2：
使用PRINTER打印对象，将MSCHART中的统计图当作图形来打印
