VBA 生成上升曲线坐标数据 (0-3.5 纵坐标, 0-5.5 横坐标)

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 Sub