请教高手们关于vb数据库数据显示为饼状图的例子？

Question

计算比例，然后自己画也可以下面是一个有趣的画图例子：Private Sub Command1_Click()
Dim PI, circStart, circEnd, gPercent, jPercent, nX, nY, rad
nX = Picture1.ScaleWidth \ 2
nY = Picture1.ScaleHeight \ 2rad = 1000
gPercent = 75
jPercent = 25PI = 22 / 7
circStart = (gPercent * PI) / 180
circEnd = (jPercent * PI) / 180Picture1.DrawWidth = 1
Picture1.FillStyle = 0
Picture1.FillColor = vbBlue
'The For - Next is not nested for clarity
For i = 1 To 200
Picture1.Circle (nX, nY), rad, vbRed, -circStart, -circEnd, -1
nX = nX + 1
nY = nY + 1
Next iPicture1.FillColor = vbRed
For j = 1 To 200
'Adjusting the nX and nY moves the wedge
Picture1.Circle (nX + 200, nY - 500), rad, vbBlue, -circEnd, -circStart, -1
nX = nX + 1
nY = nY + 1
Next jEnd Sub