作业帮VB中为何我的坐标轴没有箭头和刻度,我要的是时间温度坐标轴
来源：学生作业帮 编辑：拍题作业网作业帮 分类：数学作业 时间：2024/06/16 03:10:54
Private Sub Command2_Click()
Dim x As Integer
Dim y As Integer
Picture2.Scale (-50, 70)-(1600, -5) '定义坐标系
Picture2.DrawWidth = 1.2
'画x轴坐标系
Picture2.Line (0, 0)-(1550, 0), vbBlue
Picture2.ForeColor = vbBlue
Picture2.Print "h"
'画温度坐标点（以10度为1个单位）
Picture2.DrawWidth = 4
For y = 0 To 60 Step 10
Picture2.PSet (0, y)
Next y
'画温度坐标点（以1度为1个单位）
Picture2.DrawWidth = 1.2
For y = 1 To 59
Picture2.PSet (0, y)
Next y
'画y轴坐标系
Picture2.Line (0, 0)-(0, 65), vbBlue
Picture2.ForeColor = vbBlue
Picture2.Print "℃"
'画时间坐标点（以1小时为1个单位）
For x = 0 To 1440 Step 60
Picture1.PSet (x, 0)
Next x
'画时间坐标点（以6小时为1个单位）
Picture2.DrawWidth = 4
Picture2.PSet (360, 0)
Picture2.PSet (720, 0)
Picture2.PSet (1080, 0)
Picture2.PSet (1440, 0)
'指定位置显示原点o
Picture2.CurrentX = -30
Picture2.CurrentY = -1
Picture2.Print "0"
End Sub
'画温度坐标点（以10度为1个单位）
Picture2.DrawWidth = 4
For y = 10 To 60 Step 10 '原点就跳过吧
Picture2.PSet (0,y) ‘建议画圆
Picture2.CurrentX = 0 '坐标自己微调下更美观
Picture2.CurrentY = y
Picture2.Print y
Next y
（下同略）
箭头就自己画一个吧,两个线段而已,计算出起点终点就可以了.
再问： 线段怎么画啊，我是新手，刻度值现在已经出来了
再答： 两点确定一条线 '画x轴坐标系 Picture2.Line (0, 0)-(1550, 0), vbBlue x轴终点是(1550,0)，那么箭头可以这样： Picture2.Line (1540, 10)-(1550, 0), vbBlue Picture2.Line (1540, -10)-(1550, 0), vbBlue'数字自己微调下 y轴的类似