请问什么方法实现类似K线图的数据图比较好？我给200分求解。

我给你做的一个例子，但愿对你有帮助Private Sub Command1_Click()
  Dim StrFlNm As String
  StrFlNm = InputBox("Please input a file name", "INPUT")
  SavePicture Picture1.Image, StrFlNm
End SubPrivate Sub Command2_Click()
Picture1.AutoRedraw = True  '注意本语句
Picture1.ScaleMode = 3
For j = 1 To 100
  For i = 1 To 200
   Picture1.PSet (i, 20 + j), RGB(20, j * 2, i)
  Next i
Next jEnd Sub