用vba编写程序画一个正弦曲线

以下是使用VBA编写的画正弦曲线的程序：

Sub DrawSineCurve()
    Dim x As Double
    Dim y As Double
    Dim i As Integer
    
    '设置图表属性
    ActiveSheet.Shapes.AddChart2(227, xlLine).Select
    ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$B$361")
    ActiveChart.ChartType = xlLine
    ActiveChart.Axes(xlCategory).TickLabels.NumberFormat = "0.0"
    ActiveChart.HasTitle = True
    ActiveChart.ChartTitle.Text = "正弦曲线"
    
    '计算正弦曲线上每个点的坐标
    For i = 0 To 360
        x = i * 2 * Application.WorksheetFunction.Pi / 360
        y = Sin(x)
        Range("A" & i + 1).Value = x
        Range("B" & i + 1).Value = y
    Next i
End Sub

该程序首先创建一个图表，并设置其类型为线性图表。然后使用循环计算正弦曲线上每个点的坐标，并将其保存到工作表中的两列中。最后，将这两列作为数据源，绘制正弦曲线。