Моделирование игры в дартс VB 6.0

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

Нужно создать игру дартс для двух игроков Круговая мишень как в дартс, за один бросок можно набрать от 0 до 50 очков. игроки по очереди бросают по три дротика. Каждая сторона начинает со счёта 301. Метод ведения счёта заключается в выитании полученного кол-во оков из оставшихся. Победителем считается тот, кто сумел свести свой счёт до нуля первым. Вопрос, как вести итоговую таблицу бросков? Как программе определить в зависимости от рандомной координаты на поле кол-во выбитых очков?

Решение задачи: «Моделирование игры в дартс VB 6.0»

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

                            zena = Split("1,18,4,13,6,10,15,2,17,3,19,7,16,8,11,14,9,12,5,20", ",")
 
        For i = 0 To 360 Step 18
            a = (i + 9) * Pi / 180
            If a1 > i + 9 Then
               If a1 < i + 27 Then
               n = (i) / 18
               zn = Val(zena(n))
               GoTo 2
               End If
            End If
        Next i
2
                        