Показать сообщение отдельно
  #3  
Старый 11.12.2006, 14:02
Новичок

Отправить личное сообщение для IgNik500 Посмотреть профиль Найти все сообщения от IgNik500
 
Регистрация: 11.12.2006
Сообщений: 5

. Хотел бы попытаться помочь.

Dim Ball1 as Integer, Ball2 as Intrger
For n = 1 to 15
If Шарик(n) радиоактивен then
If Ball1 = Empty And Ball2 = Empty Then[/color]
Ball1 = n 'Номер этого шара
Elseif Ball1 >0 And Ball2 = Empty Then
Ball2 = n 'Второй шар
Elseif Ball1 > 0 And Ball2 > 0 Then
MsgBox " Радиоактивных шаров больше 2"
End if
End If
next n

За 15 вычислений VB Вычилсит.