用VB编程画圆
基本格式Circle(2000,2000),1500,vbRed就是画一横排10个圆,每个圆心相距为半径还有一种是竖着排的,还有一种是斜着(45度东南方向)除了排列方式其...
基本格式Circle (2000, 2000), 1500, vbRed
就是画一横排10个圆,每个圆心相距为半径
还有一种是竖着排的,还有一种是斜着(45度 东南方向)
除了排列方式其他都一样 求完整程序语句 展开
就是画一横排10个圆,每个圆心相距为半径
还有一种是竖着排的,还有一种是斜着(45度 东南方向)
除了排列方式其他都一样 求完整程序语句 展开
2个回答
展开全部
效果如图:
源程序可以在附件中下载!
"横排画圆"按纽程序如下:
Private Sub Command1_Click()
Dim centerX, centerY As Integer
Dim rad As Integer
Dim i As Integer
'定义并设置画圆的中心坐标(centerX,centerY)及半径 rad
centerX = 100
centerY = 100
rad = 50
'循环画10个圆,中心偏移为一个半径大小
For i = 0 To 9
Me.Circle (centerX + i * rad, centerY), rad, vbRed
Next i
End Sub
其它的程序类似,可以自己阅读...
追问
我知道了,谢谢!
东莞大凡
2024-08-07 广告
2024-08-07 广告
作为东莞市大凡光学科技有限公司的一员,我们深知Matlab圆点标定板在相机标定中的重要性。该标定板通过均匀分布的圆点,帮助精确计算相机参数,优化成像效果。Matlab强大的编程功能,使得我们能够灵活设计标定板,调整圆点大小、数量和分布,以满...
点击进入详情页
本回答由东莞大凡提供
展开全部
给你一段代码参考吧。
具体的参数,你可以自己修改一下。
上张效果图,代码在后面。
Private Sub Command1_Click()
Dim i As Long
Me.Cls
For i = 1 To 10
Me.Circle (i * 600 - 300, 600), 300, vbRed
Next
End Sub
Private Sub Command2_Click()
Dim i As Long
Me.Cls
For i = 1 To 10
Me.Circle (750, i * 600 - 300), 300, vbRed
Next
End Sub
Private Sub Command3_Click()
Dim i As Long, p As Long
Me.Cls
For i = 1 To 10
p = i * 600 - 150
Me.Circle (p, p), 420, vbRed
Next
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询