随机生成圆

Private Sub Command1_Click()

Form1.Cls

End Sub

Private Sub Form_Mousedown(Button As Integer,Shift As Integer,X As Single,Y As Single)

FillColor=QBColor(Int(Rnd*15))

FillStyle=Int(Rnd*8)

Circle(X,Y),300

End Sub

       又是一次计算机课，这节课老师让我们自己设计，突然发现好难。如果用数学的思维加汉字做，我想我一定没有问题，可是VB就不行了。我发现基础的知识不会，你真的寸步难行啊。所以最后只有各种百度、谷歌等。。终于弄出来了，但是我还是觉得百度不怎么靠谱。