Понятие из популяционной генетики, описывающее совокупность всех генных вариаций определённой популяции

Счетчик Гейгера состоит из герметичной стеклянной трубки, заполненной разреженным газом, например, аргоном. В нее впаяны электроды (катод и анод), подключенные через сопротивление R к источнику высокого напряжения. Принцип счетчика Гейгера следующий. При пролете внутри трубки какой-нибудь быстрой частицы, способной ионизировать атомы газа, образуется некоторое число электрон-ионных пар. Электроны начинают двигаться к аноду, а положительные ионы — к катоду. Если напряженность поля достаточно велика, то электрон, ускоряясь, может приобрести энергию, достаточную для ионизации атомов газа. Вновь образовавшие электроны ускоряются полем и в свою очередь производят ионизацию, давая начала новым электронам и ионам. В трубке образуется так называемая электронно-ионная лавина. В результате этого в трубке возникает разряд, и в цепи счетчика происходит кратковременное и резкое возрастание силы тока, которое регистрируется специальным устройством. Разряд длится примерно микросекунду и затем прекращается, т.к. основная часть напряжения падает на сопротивлении R, и в результате этого напряжение между катодом и анодом резко уменьшается.

   '     1)Напиши программу, выводящую на экран степени числа 3 в интервале от а до b включительно (а и b задаются пользователем).    
    
Dim a As Integer
Dim b As Integer  
Dim i As Integer    

a = InputBox("Введите а") 
b = InputBox("Введите b")
   
Dim msg As String      
msg = ""   
     
For i = a To b     
       msg = msg &  3 в степени " & i & " равно " & 3 ^ i & vbCrLf    
 Next    

MsgBox(msg)

2)Найти все делители числа 1204.   

Dim i As Integer       
Dim msg As String   
msg = ""      

For i = 1 To 1204  
          If 1204 Mod i = 0 Then      
                  msg = msg & "Число " & i & " является делителем 1204." & vbCrLf                  End If    
Next 
  MsgBox(msg)