怎样使用VB来绘制扇形统计图?我知道Circle方法,就是不会用,比如输入30、25、70、220这几个数据,怎么才能把这些数据绘制成扇形统计图呢?我指的是VB6.0.

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 06:39:55
怎样使用VB来绘制扇形统计图?我知道Circle方法,就是不会用,比如输入30、25、70、220这几个数据,怎么才能把这些数据绘制成扇形统计图呢?我指的是VB6.0.
xR[KA+ߣֶk]J"#)4Z]YzZYJ*,,1ڿh(z`89̌;K4Wތ^zR0I&rnHfnō5&=h1{NH^gDQ XUmnjH-V c7._2^!ajLI@ 0o=HDv$9M~ C\RlcqA3<i. KOk[V#>Y֯8_diVa>0\ŋPyFnڻIR -˒bYi.IEa)+7 1

怎样使用VB来绘制扇形统计图?我知道Circle方法,就是不会用,比如输入30、25、70、220这几个数据,怎么才能把这些数据绘制成扇形统计图呢?我指的是VB6.0.
怎样使用VB来绘制扇形统计图?
我知道Circle方法,就是不会用,比如输入30、25、70、220这几个数据,怎么才能把这些数据绘制成扇形统计图呢?
我指的是VB6.0.

怎样使用VB来绘制扇形统计图?我知道Circle方法,就是不会用,比如输入30、25、70、220这几个数据,怎么才能把这些数据绘制成扇形统计图呢?我指的是VB6.0.
Private Sub Form_Load()
Me.Show
Dim angleN,stepN,originX,originY As Double
stepN = 0.01
originX = 2500
originY = 2500
For angleN = 3.134952627 * 3 / 4 To 3.134952627 / 2 Step -stepN
Picture1.Line (originX,originY)-(originX + 1000 * Sin(angleN),originY + 1000 * Cos(angleN)),vbRed
Next
End Sub
.
看看这个吧,希望对你有启发.