vb画扇形源代码

代码如下.单击窗体即可.

＝＝＝＝＝＝＝＝＝＝＝＝

Const pi = 3.1416

Private Sub Form_Click()

FillColor = vbRed

FillStyle = vbSolid

Circle (200,200),200,vbRed,-pi / 2,-pi

End Sub

放入一个按钮复制下面代码即可

Private Sub Command1_Click()

Print "／＼／＼"

Print "＼／"

Print " ＼／"

End Sub

如果 picture，text1,text2dim a as single ,b as single a=val(text1) b=val(text2)dim ox as single,oy as single ox=picture1.scalewidth/2oy = picture1.scaleheight /2 '下面开画你可以循环多次。 dim r as singler=rnd()*(b-a)+apicture1.circle (oa,ob),r

---