vb随机出现同心圆的编程
1个回答
展开全部
Private Sub P1_Click()
Dim x, y, r
Randomize '初始化
P1.ScaleMode = 3 '设置单位为像素
P1.AutoRedraw = True '允许图形自动重画
P1.Width = P1.Height '设置图片框为正方形
x = P1.ScaleWidth / 2 '设置坐标值
y = P1.ScaleHeight / 2
Max = x '限制圆半径的最值
For r = 0 To Max
P1.Circle (x, y), r, RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) '画圆
Next r
SavePicture P1.Image, App.Path + "\circle.bmp" '图形存盘
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
--
2022-12-05 广告
图形化编程简单理解为用积木块形式编程，scratch和python也是其中的一种，属于入门级编程，以其简单生动的画面获得无数学生的喜爱，深圳市创客火科技有限公司是一家做教育无人机的公司，旗下有编程无人机，积木无人机及室内外编队，每款飞机含有...
点击进入详情页
本回答由--提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
