程序代码：

Picture2.Cls
Picture2.Line (0, 0)-(0, 210), QBColor(0)
Picture2.Line (0, 90)-(1250, 90), QBColor(0)

For i = 0 To 6
    s1 = CStr(i * 50 - 150)
    Picture2.CurrentX = -Picture2.TextWidth(s1)
    Picture2.CurrentY = (i * 50 - Picture2.TextHeight(s1) / 2) / 1.5
    Picture2.Print s1
Next i

Picture2.PSet (0, py(k - 1)), QBColor(2)
For i = 0 To 绘图大小 - 1
    'If py(k + i) > 0 Then           '因为是从最左边开始绘图，所以要先判断一下数据是否有效
        Picture2.Line ((i * 40) / 2, (py(k + i - 1)) / 2)-((i * 40 + 40) / 2, (py(k + i)) / 2), QBColor(1)
    'End If
Next i
    
Picture1.PaintPicture Picture2.Image, 0, 0

[此贴子已经被作者于2016-12-18 11:43编辑过]