Question

VB中在picturebox中画带刻度的曲线问题！

如果已知了两组数据 如a(1 to 10) 分别为100 150 200 250 300 350 400 450 500 550，b(1 to 10) 为1 2 3 4 5 6 7 8 9 .现在要求以b为横坐标，a为纵坐标，画出他们的关系曲线。带有X轴，Y轴 以及坐标刻度。可以自定！谢谢

Answer 1

Private Sub Command1_Click()
For i = 2 To 10
Picture1.Line (i * 10 + 19.5, (10 - i) * 5 + 9)-(((i - 1) * 10 + 19.5), ((11 - i) * 5 + 9))
Next i
End Sub

Private Sub Form_Load()
Picture1.Line (20, 60)-(120, 60)
Picture1.Line (20, 60)-(20, 3)
For i = 1 To 10
Picture1.Line (i * 10 + 20, 60)-(i * 10 + 20, 59)
Picture1.CurrentX = (i - 1) * 10 + 18: Picture1.CurrentY = 62
Picture1.Print i - 1
Picture1.Line (20, (i - 1) * 5 + 10)-(21, (i - 1) * 5 + 10)
Picture1.CurrentX = 12: Picture1.CurrentY = (10 - i) * 5 + 8
Picture1.Print i * 50 + 50
Picture1.CurrentX = i * 10 + 19.5: Picture1.CurrentY = (10 - i) * 5 + 7.5
Picture1.Print "·"
Next i
End Sub

复制过去就可以用
建一个 Picture1 一个 command 即可 Picture1 AutoRedraw 和 AutoSize 设置成 true 即可

Answer 2

好像这样只显示一堆的曲线，看不到刻度和坐标轴