Question

如何设置vb坐标，并使坐标随着函数的X,Y最值的变化而变化

我想得到图片（1）的效果，麻烦你看看我源代码需要怎么修改。谢谢

Private Sub Command1_Click()
td = Val(Text1.Text)
h = Val(Text2.Text)

Picture1.Cls
Picture1.ScaleMode = 0
Picture1.ScaleMode = 1
Picture1.Scale (-5, td * h)-(h, -5)
'绘坐标系的X轴及箭头线
Picture1.Line (0, 0)-(td * h, 0), vbBlue
Picture1.ForeColor = vbBlue
Picture1.CurrentX = 10
Picture1.CurrentY = -2
Picture1.Print "t/oC"
For j = 5 To td * h Step 10
Picture1.CurrentX = j
Picture1.CurrentY = -0.5
Picture1.Print j
Next j

'绘坐标系的Y轴及箭头线
Picture1.Line (0, 0)-(0, h), vbBlue
Picture1.ForeColor = vbBlue
Picture1.CurrentX = -4
Picture1.CurrentY = 10
Picture1.Print "H/m"

For k = 50 To h Step 50
Picture1.CurrentX = -3
Picture1.CurrentY = k
Picture1.Print k
Next k
vb截图

Answer 1

坐标系设置有误
Picture1.Scale (-5, td * h)-(h, -5)
改成
Picture1.Scale (-5, -5)-(25, 1200)'不知道你的坐标轴怎么来的，只能根据图的尺寸大概设置

Scale 的4个数字表示两个点，表示 PictureBox 的两个点（左上角和右下角）在新的坐标系中的位置。

Answer 2

设置括号中的数值就行了。

Answer 3

Line (0, 0)-(0, h)中的数值改一下