vb实现随机图形

最新推荐文章于 2018-04-12 18:40:29 发布
最新推荐文章于 2018-04-12 18:40:29 发布
阅读量383 收藏 1
点赞数
分类专栏： 计算机 文章标签： vb command 语言 图形
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/f1594601537qq/article/details/7396997
版权
 在窗体上画一个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
F1594601537qq
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
智能放大器(VB6.0源代码编写)智能放大器不但可以放大，还可以放大1到4倍等功能。
02-02
智能放大器(VB6.0源代码编写)智能放大器不但可以放大，还可以放大1到4倍等功能。
vb随机显示图片
于大大大洋
12-05 1819
根目录下建一个文件夹PIC，在PIC下存放5张图片， 名称分虽是1，2，3，4，5 然后添加一个timer1控件，一个image1控件， 它的interval设5000（即5秒） 写如下代码 Private Sub Form_Load() Dim i As Integer Image1.Picture = LoadPicture(App.Path & "pic\1.bmp") End Su
随机生成图形
mahuirong2012的专栏
04-01 1168
实验四：随机生成图形 一、         实验目的 让程序随机不定时间生成随机种类的图形并生成多个 二、         实验内容 Private Sub Command1_Click() Timer1.Enabled = True End Sub   Private Sub Timer1_Timer() Randomize     Cls     Dim MaxX
VB实验报告----制作随机图形，制作动画
七夜雪
03-26 539
一：试验目的： 1利用vb程序设计语言制作随机图形 2利用vb程序设计语言制作动画 二：实验内容： 1先进行界面分布和相应的属性设置 2编写代码如下： 1，Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 100 End Sub Private Sub Command2_Click() F
VB作业之随机生成图形
MAHYBZ的专栏
04-08 828
一、         实验内容 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.ScaleWi
VB：利用嵌套循环输出塔型星号
Caleb Sung的博客
04-12 4313
题目来源：大工慕课 链接 作者：Caleb Sung 题目要求 要求输出以下形状： * ** *** **** ***** 参考代码 Private Sub Command1_Click() Print For i = 1 To 5 Print String(i, "*") Print String(i, " ") ...
控件ChartControl的完美示例
lovejesuslove的博客
03-21 4973
在网上找了很长时间，自己也钻研了挺长时间，终于把ChartControl控件的饼状图和柱状图弄得不错了 现在分享一下代码，如有不明白的可以直接留言，欢迎看完之后，给个评论哦！   功能介绍：使用控件ChartControl动态生成饼状图和柱状图，并保存到Word里面 饼状图：使用3D模式，实现了：如果分类过多，也不会造成引线文字相互覆盖的功能  图示：（饼状图2个，柱状图1个） 柱状图：（
VB 如何实现随机图形验证码
09-30
VB 如何实现随机图形验证码 VB 如何实现随机图形验证码
VB随机画图源码实例，实现几何图形效果.rar
07-09
VB随机画图的一些源码实例，画一些几何图形。有一些圆形、矩形、圆角矩形和网格等，这些都是规则图形。
VB088-画随机图形,源代码
06-17
VB088-画随机图形,源代码
Vb图形验证码生成及判断程序
05-07
摘要:VB源码,图形处理,验证码　本程序通过VB编写实现验证码生成，并根据用户的输入判断验证码是否相同，程序实现思路大致是这样的：初始化随机种子，生成随机校验码，显示校验码，添加噪点（防止自动图像识别），...
vb程序求出100以内素数的和
F1594601537qq的专栏
04-19 8731
一·实验目的 实现100以内所有素数的和。 二·实验内容 打开vb6.0正式版之后，在窗体上画出一个command按钮，点击command按钮，输入以下程序语言： Private Sub Command1_Click() Dim s As Integer Dim n As Integer Dim m As Integer Dim x As Integer Dim flag As
vb两位数相乘程序
F1594601537qq的专栏
03-28 1797
一·实验目的      实现两位数相乘。实现两位数的逐一相乘，并实现加法和乘法的进位。例如：27乘以34，4乘以7等于28进2，各位保留下8,2乘以4等于8加上2等于10 ，进1。然后3乘以7等于21，进2,1加上0等于1,2乘以3等于6加上2等于8，加上1等于9结果为0918。 二·实验内容      首先打开vb6.0中文版，在窗体上画出三个label,前两个label分别写上n,m,第
vb判断生日是星期几
F1594601537qq的专栏
04-19 1614
一·实验目的 输入生日，让程序判断出你的生日是星期几。 二·实验内容 1·首先打开vb6·0正式版，在窗体上画出三个label框，分别写上年月日，在分别在后面留上三个text框，在在顶部画上一个label框，写上“请你输入你的生日，让程序判断出你的生日是星期几”再画出一个command按钮，再画出一个label框，让程序输出你的生日是星期几。 2·编写程序语言，在通用字段输入以下语言：
比较十个数的大小
F1594601537qq的专栏
04-25 867
一·实验目的 实现十个数的大小比较，最终输出最大的一个数。 二·实验内容 在对象窗口划出一个command按钮，点击command按钮输入以下vb程序语言： Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim max As Integer Dim c As Integer Dim d As Inte
比较三个数的大小
F1594601537qq的专栏
04-25 637
一·实验目的     实现三个数的大小比较，比较出最大的一个数。 二·实验内容    在对象窗口画出一个command按钮，点击command按钮，输入以下vb程序语言： Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim max As Integer Dim c As Integer    a
VB6 随机返回Byte
最新发布
05-26
在 VB6 中，可以使用 Rnd 函数和 Randomize 语句来生成随机数。如果要生成随机的 Byte 类型数据，可以使用以下代码： ``` Randomize Dim b As Byte b = CByte(Rnd * 256) ``` 这里，Randomize 语句用于初始化...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值