关闭

随机生成圆

134人阅读 评论(0) 收藏 举报

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就不行了。我发现基础的知识不会,你真的寸步难行啊。所以最后只有各种百度、谷歌等。。终于弄出来了,但是我还是觉得百度不怎么靠谱。

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:4897次
    • 积分:161
    • 等级:
    • 排名:千里之外
    • 原创:14篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章存档