菜鸟求助VB “随机画10个圆” 30
设计要求：单击按钮“随机画10个圆”时，画出10个大小、位置、颜色随机的圆，其中：圆心的范围从窗体的最左边起到框架的右边，圆的半径范围是（100-1000），颜色是Qbc...
设计要求：
单击按钮“随机画10个圆”时，画出10个大小、位置、颜色随机的圆，其中：圆心的范围从窗体的最左边起到框架的右边，圆的半径范围是（100-1000），颜色是Qbcolor(n)函数的16种颜色中的一种。
提示：
分别用一维数组保存每个圆心X坐标，Y坐标，圆的半径；
随机产生第i个圆心的X坐标：x(i)=int(rnd*frame1.left)
随机产生第i个圆心的Y坐标：x(i)=int(rnd*scaleheight)
随机产生第i个圆的半径：r(i)=int(901*rnd+100)
随机产生颜色参数：c=int(rnd*15)
随机产生第i个圆:Circle(x(i),y(i),r(i),qbcolor(c)
如图效果
急需有追加
请发到邮箱1456068782@qq.com 展开
单击按钮“随机画10个圆”时，画出10个大小、位置、颜色随机的圆，其中：圆心的范围从窗体的最左边起到框架的右边，圆的半径范围是（100-1000），颜色是Qbcolor(n)函数的16种颜色中的一种。
提示：
分别用一维数组保存每个圆心X坐标，Y坐标，圆的半径；
随机产生第i个圆心的X坐标：x(i)=int(rnd*frame1.left)
随机产生第i个圆心的Y坐标：x(i)=int(rnd*scaleheight)
随机产生第i个圆的半径：r(i)=int(901*rnd+100)
随机产生颜色参数：c=int(rnd*15)
随机产生第i个圆:Circle(x(i),y(i),r(i),qbcolor(c)
如图效果
急需有追加
请发到邮箱1456068782@qq.com 展开
1个回答
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
