用VB编程画圆

基本格式Circle (2000, 2000), 1500, vbRed
就是画一横排10个圆，每个圆心相距为半径
还有一种是竖着排的，还有一种是斜着（45度东南方向）
除了排列方式其他都一样求完整程序语句

举报该文章

相关建议 2014-01-07

效果如图:

源程序可以在附件中下载!

"横排画圆"按纽程序如下:

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

其它的程序类似,可以自己阅读...

追问

我知道了，谢谢！

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/f7f4vm42274svms8m77.html

其他看法

第1个回答 2014-01-06

给你一段代码参考吧。

具体的参数，你可以自己修改一下。

上张效果图，代码在后面。

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

相似回答

大家正在搜