vb实现随机图形

原创 2012年03月28日 20:07:51

一·实验目的

   为了实现随机生成不同的图形,满足题目需要,实现vb语言程序的运作,最后画出那令人满意的随机的不同图形。

二·实验内容

   在窗体上画一个commandbutton按钮,双击按钮编写程序语言,其语言如下:

Private Sub Command1_Click()
Show
Me.Scale (0, 0)-(18, 8)
Me.AutoRedraw = True
Me.DrawMode = 2
Circle (3, 4), 3, vbRed
Me.AutoRedraw = False
Line (7, 1)-Step(4, 6), vbGreen, B
Line (13, 7)-Step(4, 0), vbBlue
Line Step(0, 0)-Step(-2, -6), vbBlue
Line Step(0, 0)-Step(-2, 6), vbBlue
End Sub

最后点击运行,出现不同的随机图形,程序成功。

三·心得体会

  通过对vb几个实验题的训练,我能够了解vb的基础运作和编写一些简单的vb程序,同时也使我对vb产生了一些兴趣,最重要的是学习vb使我掌握了一种学习方法就是在遇到困难的时候要尽可能地想办法去解决并且能够充分地利用一切有效的资源,掌握更多的知识。但是我在学习vb的时候也存在着很多问题,比如说作为一个vb语言入门者,觉得很多词汇都很陌生,就觉得很入门很吃力。但我还是尽可能地学好它。

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

不能准确的运用vb语言,在学姐学长的指导下纠正了所犯的错误,常常再输入vb语言的时候出现词汇的拼写错误,解决方法,熟悉vb语言,加上细心耐心专心,突破这个障碍。对于vb的程序语言不能理解,最终通过上网和收集各种资料解决这个问题。

五·没有解决的问题

对于vb语言很陌生,不知道灵活地运用vb语言,脱离了编好的程序语言,自己就不会编写程序语言,对于这个问题我还没有解决,我希望解决这个问题老师能够协助,在学习vb的时候,先给我们讲讲vb语言的基本含义和运用方法。

 

vb实现随机图形

在窗体上画一个commandbutton按钮,双击按钮编写程序语言,其语言如下: Private Sub Command1_Click() Show Me.Scale (0, 0)-(18, 8...
  • F1594601537qq
  • F1594601537qq
  • 2012年03月28日 11:42
  • 153

vb随机图形

代码如下:   Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 100 End Sub Privat...
  • shisuiwuhen
  • shisuiwuhen
  • 2012年03月27日 21:29
  • 210

关于VB调用Access的Rnd函数随机返回表中数据的解决方法

  论坛上问这个问题的人蛮多,最近正好也在写一个小东西遇上了这个问题,在网上搜索了下没找到解决办法。最后在Access版的老大们帮助下解决了,有兴趣的可以交流一下。  SQL server数据库有个N...
  • vbman2003
  • vbman2003
  • 2007年08月25日 10:15
  • 4403

VB实现简单的图形区域选择

程序效果:当点击左边的部件图时,会弹出对话框提示你点击了哪一个区域。程序思路:用一个图片区域码图作为点击区域的参照,根据XY取得的颜色识别出属于哪一个区域程序界面如下:相关代码如下:Visual Ba...
  • supermanking
  • supermanking
  • 2010年04月28日 11:12
  • 3209

VB随机字母的函数

Function RandABC(N As Long, Optional Model As Long = 1) As String ''N是你想要得到字符串的长度 ''Model是你想得到大写还是...
  • liuzhenfang
  • liuzhenfang
  • 2012年05月08日 08:37
  • 401

用vb绘制图形并使其运动

用VB绘制图形并使其运动 绘制圆形并运动的程序代码 打开VB6.0程序,新建一个窗体。应用command画出一个按钮,将command的caption属性改为“开始运动”;插入一个timer,将其...
  • zhaoyadong1234
  • zhaoyadong1234
  • 2012年05月08日 22:39
  • 303

VB写的随机点名器代码

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++1、新建一个工程;2、在窗体Form1内放入Label1、Timer1、Comma...
  • Ant1328
  • Ant1328
  • 2011年06月26日 11:54
  • 1512

VB获取指定长度的随机字符串

'指定长度的祖母数字组合Public Function RandomFix(N As Long) As String Randomize R = R + Chr(Int(Rnd() * 2...
  • weinianjie1
  • weinianjie1
  • 2011年03月25日 12:06
  • 3362

vb实现能动图形

首先,在form1上画出commandbutton,写上开始运动,在画一个闹钟timer1,再点击画图工具选择第三种类型画出一个小球。双击小球进行编程,语言如下; Dim g As Boolean ...
  • F1594601537qq
  • F1594601537qq
  • 2012年03月28日 11:43
  • 170

VB - 数据文件(二)随机文件及文件基本操作

随机文件  随机文件中每一个记录定长,并设置记录号,记录号从1开始。             存取记录时,只要说明所需记录的编号,系统就以此算出记录所在位置,然后加以写入或读出 初步认识 ...
  • alexbnlee
  • alexbnlee
  • 2011年11月04日 17:31
  • 6011
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vb实现随机图形
举报原因:
原因补充:

(最多只允许输入30个字)