Тема: «Разветвляющиеся алгоритмы. Оператор выбора - VB

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

если можно со скрипштонами Среда разработки – Visual BASIC 6.0. Разработать приложение, реализующее подсчет числа броуновских частиц, попадающих в объектив (фиксированная область в форме окружности) электронного микроскопа. При достижении числа частиц заранее заданного значения внутри области, программа должна завершить свою работу, выдать соответствующее сообщение. Указание. Частицы изображаются с помощью метода Pset, а попадания фиксируются с помощью проверки условия x2 + y2  R (R - радиус объектива).

Решение задачи: «Тема: «Разветвляющиеся алгоритмы. Оператор выбора»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
    Dim i As Single, j As Single, k As Single, r As Single
    Scale (-100, 100)-(100, -100)
    Me.AutoRedraw = True
    DrawWidth = 3
    k = 50
    For i = -35 To 0 Step 0.1
          r = 70 - Abs(i * 2)
          Circle (i, -i), r, RGB(210 - r * 2, 210 - r * 3, 210 - r * 3)
    Next i
End Sub
                        