Question

用VB编程画圆

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

Answer 1

效果如图:

 

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

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

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

 

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

 

追问

我知道了，谢谢！

Answer 2

给你一段代码参考吧。

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

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

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