vba 构建6条坐标系数据纵坐标范围是0-35横坐标范围是0-55呈开口向上的曲线

下面是一个VBA代码示例，可以构建6条开口向上的曲线坐标系数据：

Sub CreateData()

Dim x As Double, y As Double Dim r As Double, theta As Double Dim i As Integer, j As Integer

'设置纵坐标范围 Dim yMin As Double, yMax As Double yMin = 0 yMax = 3.5

'设置横坐标范围 Dim xMin As Double, xMax As Double xMin = 0 xMax = 5.5

'设置点数 Dim nPoints As Integer nPoints = 100

'创建6个坐标系数据 For j = 1 To 6 '清除之前的数据 If Not Worksheets("Sheet1").ChartObjects("Chart" & j) Is Nothing Then Worksheets("Sheet1").ChartObjects("Chart" & j).Delete End If

'创建新的图表
Dim chartObj As ChartObject
Set chartObj = Worksheets("Sheet1").ChartObjects.Add(Left:=300 * (j - 1), Top:=0, Width:=300, Height:=300)
chartObj.Name = "Chart" & j

'设置图表类型为散点图
Dim chart As Chart
Set chart = chartObj.Chart
chart.ChartType = xlXYScatter

'设置纵坐标范围
chart.Axes(xlValue).MinimumScale = yMin
chart.Axes(xlValue).MaximumScale = yMax

'设置横坐标范围
chart.Axes(xlCategory).MinimumScale = xMin
chart.Axes(xlCategory).MaximumScale = xMax

'添加曲线数据
For i = 1 To nPoints
    x = xMin + (i - 1) * (xMax - xMin) / (nPoints - 1)
    r = Sqrt(1 - Sqr((2 * x - 5.5) / 5.5))
    theta = (j - 1) * Pi / 3
    y = r * Cos(theta) * (yMax - yMin) + yMin
    chart.SeriesCollection.NewSeries
    chart.SeriesCollection(i).Values = y
    chart.SeriesCollection(i).XValues = x
Next i

Next j

End Sub

运行上述代码后，会在工作表“Sheet1”中创建6个散点图，每个图形呈开口向上的曲线形状，纵坐标范围为0-3.5，横坐标范围为0-5.5。可以根据需要调整上述代码中的参数值，以生成不同的坐标系数据