vba 构建坐标系数据纵坐标是0-35横坐标是0-556条不一样的向上曲线

以下是 VBA 代码，用于生成坐标系数据和六条不同的向上曲线：

Sub GenerateData()
    Dim xValues(1000) As Double
    Dim yValues(1000) As Double
    Dim i As Integer
    
    '生成横坐标数据
    For i = 0 To 1000
        xValues(i) = i / 200
    Next i
    
    '生成纵坐标数据和曲线数据
    For i = 0 To 1000
        yValues(i) = i / 285.7
        Select Case i Mod 6
            Case 0
                yValues(i) = yValues(i) ^ 2
            Case 1
                yValues(i) = 3 * yValues(i) ^ 2 - 2 * yValues(i) ^ 3
            Case 2
                yValues(i) = 1 / (yValues(i) + 0.1)
            Case 3
                yValues(i) = Sin(10 * yValues(i))
            Case 4
                yValues(i) = Cos(10 * yValues(i))
            Case 5
                yValues(i) = Abs(yValues(i) - 1)
        End Select
    Next i
    
    '将数据写入工作表
    Range("A1:B1001").Value = Application.Transpose(Array(xValues, yValues))
End Sub

代码中，我们首先生成了横坐标数据，即从0到5.0，间隔为0.005的1001个数字。然后，我们生成纵坐标数据和曲线数据，其中纵坐标的范围为0到3.5，即与题目描述相符。曲线数据则分别使用了六种不同的函数，包括二次函数、三次函数、反比例函数、正弦函数、余弦函数和绝对值函数。

最后，我们将生成的坐标系数据写入工作表的A1:B1001范围内。在写入数据后，你可以使用 Excel 的绘图功能，将这些数据绘制成一张坐标系图