vba 构建坐标系数据纵坐标是0-35横坐标是0-55成上升的曲线

Sub BuildCoordinateData()

'定义变量
Dim x As Double
Dim y As Double
Dim i As Integer

'设置初始值
x = 0
y = 0

'循环生成数据
For i = 1 To 100

    '计算纵坐标值
    y = 3.5 * x / 5.5
    
    '输出坐标数据
    Cells(i, 1).Value = x
    Cells(i, 2).Value = y
    
    '增加横坐标值
    x = x + 0.055
    
Next i

'绘制曲线图
Dim chartObject As ChartObject
Set chartObject = ActiveSheet.ChartObjects.Add(Left:=100, Width:=400, Top:=100, Height:=300)
chartObject.Chart.ChartType = xlXYScatterSmooth
chartObject.Chart.SetSourceData Source:=Range("A1:B100")

End Su