神马品牌网上海驾考科目二视频:VB又遇到不会做的题了~拜托达人帮忙
来源：百度文库 编辑：神马品牌网 时间：2024/05/06 06:25:39
又遇到不会做的题了~拜托达人帮忙
2.设计一个多种图形在窗体中交替显示的程序。运行界面如下图所示，每隔半分钟在窗体中分别画100个以窗体中心为圆心的多彩同心圆、弧、椭圆和多个多彩的实心矩形
最好有具体的过程~~~谢谢了 就快考试了~~~急啊
谢了谢了谢了~~~~
界面图片在这里~~谢谢了
http://www.vbgood.com/viewthread.php?tid=37745&extra=page%3D1
2.设计一个多种图形在窗体中交替显示的程序。运行界面如下图所示，每隔半分钟在窗体中分别画100个以窗体中心为圆心的多彩同心圆、弧、椭圆和多个多彩的实心矩形
最好有具体的过程~~~谢谢了 就快考试了~~~急啊
谢了谢了谢了~~~~
界面图片在这里~~谢谢了
http://www.vbgood.com/viewthread.php?tid=37745&extra=page%3D1
点击参数随机正方形
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Me.Cls //每次刷新form
If Me.Width > Me.Height Then
HH = Me.Height
Else
HH = Me.Width
End If
HH = (((HH - 900) + 1) * Rnd) / 2
Me.FillStyle = 1
For i = 0 To 9
r = Rnd * 255
g = Rnd * 255
B = Rnd * 255
Me.FillColor = RGB(r, g, B)
Line (X - HH - i * 50, Y - HH - i * 50)-(X + HH + i * 50, Y + HH + i * 50), RGB(r, g, B), B
Next i
End Sub
随机产生圆
Private Sub Form_Load()
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
Randomize Timer
r = Rnd * 255
g = Rnd * 255
b = Rnd * 255
Form1.FillColor = RGB(r, g, b)
Form1.Circle (Rnd * Form1.Width, Rnd * Form1.Height), Rnd * 1000, RGB(r, g, b)
End Sub
修改一下就可以了
要相信自己～