vb编程序 输出同心圆

2024-12-17 08:27:42
推荐回答(1个)
回答1:

Dim i As Integer
Dim j As Integer
For i = 1 To 3
If i = 1 Then
For j = 1 To 2
Circle (2000 * i, 2000), 150 * j
Next
ElseIf i = 2 Then
For j = 1 To 4
Circle (2000 * i, 2000), 150 * j
Next
ElseIf i = 3 Then
For j = 1 To 6
Circle (2000 * i, 2000), 150 * j
Next
End If
Next