关闭

几个实验之四

110人阅读 评论(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是一个深奥的学科,对于我们这些新手来说。但他有自己的规律,只要掌握其规律,戒骄戒躁,逐步完善,就可以完成任务。最大的收获:戒骄戒躁,循序渐进。不要妄想一蹴而就,踏实的一步一步来,总会成功。

五、    没有解决的问题

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

0
0

猜你在找
【直播】机器学习&数据挖掘7周实训--韦玮
【套餐】系统集成项目管理工程师顺利通关--徐朋
【直播】3小时掌握Docker最佳实战-徐西宁
【套餐】机器学习系列套餐(算法+实战)--唐宇迪
【直播】计算机视觉原理及实战--屈教授
【套餐】微信订阅号+服务号Java版 v2.0--翟东平
【直播】机器学习之矩阵--黄博士
【套餐】微信订阅号+服务号Java版 v2.0--翟东平
【直播】机器学习之凸优化--马博士
【套餐】Javascript 设计模式实战--曾亮
查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:1308次
    • 积分:61
    • 等级:
    • 排名:千里之外
    • 原创:6篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章存档