将MSChart1.ChartData = MyData '数据放到for循环后面就好了最后部分应该是For i = 0 To 360 MyData(i, 0) = i '-----x轴坐标值-- MyData(i, 1) = 149 * Sin(dblStep * i) + 150 '---Y轴坐标值---------- Next i MSChart1.ChartData = MyData '数据另外,站长团上有产品团购,便宜有保证