Нарисовать квадрат, внутри которого окружность - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте, помогите найти ошибку в коде. Рисует слишком много лишнего. Изменяла центр окружности, радиус - получалось только хуже
В итоге нужно,чтобы получился квадрат, внутри которого окружность и остаться тот треугольник дуг как на картинке,с 4 сторон Как я поняла, радиус рисуется от 1 до 10,хотя нужно наоборот- с движением центра по диагонали - уменьшать радиус. Не понимаю,почему рисует наоборот, и почему откуда он берет так много циклов

Решение задачи: «Нарисовать квадрат, внутри которого окружность»

textual
Листинг программы
Private Sub Command1_Click()
    Const pi As Single = 3.14159265359
    r = 10
    Picture1.Line (-r, r)-(r, r), vbRed
    Picture1.Line (-r, r)-(-r, -r), vbRed
    Picture1.Line (r, r)-(r, -r), vbRed
    Picture1.Line (-r, -r)-(r, -r), vbRed
    For z = r To 0 Step -1
          Picture1.Circle (z, -z), r - z, vbRed, 3 * pi / 2, 2 * pi
          Picture1.Circle (z, z), r - z, vbRed, 2 * pi, pi / 2
          Picture1.Circle (-z, z), r - z, vbRed, pi / 2, pi
          Picture1.Circle (-z, -z), r - z, vbRed, pi, 3 * pi / 2
    Next z
End Sub

Оцени полезность:

14   голосов , оценка 4.286 из 5
Похожие ответы