发布网友 发布时间:2024-12-28 11:12
共2个回答
热心网友 时间:9分钟前
CTRL+T里面找Microsoft Chart Control...
Private Sub Form_Load()
MSChart1.chartType = VtChChartType2dLine '设置为二维曲线
Dim a(6, 0) As Integer '声明一个数组
For i = 1 To 6 '遍历循环
a(i, 0) = i * i * i '为每一个数组的元素赋值
Next i
MSChart1.ChartData = a '把数组的数据赋值给MSChart对象的ChartData属性
For i = 1 To 7 '设置8个数据点
MSChart1.Row = i '移动位置,指向第i个位置
MSChart1.RowLabel = i '设置行标签内容
Next i
End Sub
热心网友 时间:1分钟前
如果是折线图,就弄个数组放数字进去,然后算出最大最小,
然后弄一个图片控件,然后在控件里用折线。。。
如果是柱线图
就弄几个数
也求出最大
在控件里画方框