Разветвляющиеся алгоритмы: Оператор - Select Case! - VB

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

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

Решение задачи: «Разветвляющиеся алгоритмы: Оператор - Select Case!»

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

                                Select Case n
    Case m: PlaySound "0.wav", App.hInstance, SND_ASYNC
        If MsgBox("Поймали " & m & " частиц !" & vbLf & "Выйти из программы ?", 68) = vbNo Then Exit Sub
                        