关闭

四,随机生成图形

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

一、    实验目的

让程序随机不定时间生成随机种类的图形并生成多个

二、    实验内容

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

 

Private Sub Timer1_Timer()

Randomize

    Cls

    Dim MaxX As Long

    Dim MaxY As Long

    MaxX = Form1.ScaleWidth

    MaxY = Form1.ScaleHeight

    For I = 1 To Int(Rnd * 50 + 1)

        x = Int(Rnd * (MaxX - 500))

        y = Int(Rnd * (MaxY - 500))

       Shape1.Shape = Int(Rnd * 5 + 1)

    Next

End Sub

三、    心得体会

VB程序设计理论对我们这些初学者来说还是一个非常高深的领域,一些语言还需要我们的不断学习和把握。我们只有不断地深入了解弄清这些程序语言,不断的操作练习,加强训练,才能更掌握VB.

四、    遇到的问题及解决问题的方法

不太了解过多的程序语言,无法编写完整的程序理论。

通过百度查询不了解的知识,使得程序编写完成。

五、    没有解决的问题

不能完成多个图形的生成,只随机产生了一个

 

0
0

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

    dzwlove: 多模仿,找感觉!查阅资料"程序",到底是什么?