用VB绘制饼图，用不同颜色表示学生成绩的及格与不及格比率 50

并在饼图旁边标示出比率，及格不及格人数用户输入。。VB课程设计急需求大神指点... 并在饼图旁边标示出比率，及格不及格人数用户输入。。VB课程设计急需
求大神指点展开

 我来答

1个回答

#热议# 上班途中天气原因受伤算工伤吗？

创作者zUzVB1Sl31
2013-05-12 · 编程类资料、英语学习资料

创作者zUzVB1Sl31

采纳数：1331 获赞数：5974

向TA提问私信TA

关注

展开全部

我写的实例复制给你看一下，用的是ADO控件（打包方便）

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "/DB.mdb;Jet OLEDB:DataBase PassWord=8712"
Adodc1.RecordSource = "Select * from 判定批数"
Adodc1.Refresh    '//连接数据库
If Not Adodc1.Recordset.EOF Then      '//抛出连接异常
MSChart1.ColumnCount = 1          '//画一条线
MSChart1.RowCount = 8             '//数据表列数
MSChart1.Plot.Axis(VtChAxisIdX).CategoryScale.Auto = False  '//自己定义坐标
Dim i As Integer
MSChart1.AllowSelections = False
Set MSChart1.DataSource = Adodc1.Recordset    '//给数据源
MSChart1.AllowSelections = True
For i = 1 To MSChart1.Plot.SeriesCollection.Count
MSChart1.Plot.SeriesCollection(i).DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeAbovePoint
MSChart1.Plot.SeriesCollection(i).DataPoints(-1).DataPointLabel.Component = VtChLabelComponentPercent  '//给块百分比数据
MSChart1.Plot.SeriesCollection(i).DataPoints(-1).DataPointLabel.PercentFormat = "0%"    '//给数据集合值类型
Next
End If

上面确切说不是画一条形，是画一个饼图，你把MSChart1设置成饼图样式，然后显示图例