Задание массива с индексом от 1 до k - VB

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

Задать массив A(n), n=k+m. Элементы массива с индексом от 1 до к - члены натурального ряда кратные 2, остальные - кратные 5. Найти сумму и произведение элементов массива и частное от деления суммы на произведение. Помогите! как прописать эти элементы массива кратные....

                    Листинг программы
                
 
                            
                        
Dim a() ' Г·ГЁГ±Г«Г®ГўГ®Г© Г¬Г*Г±Г±ГЁГў ГЂ
Private Sub Command1_Click() ' ГЄГ*Г®ГЇГЄГ* ГЏГіГ±ГЄ
Print "ГЊГ*Г±Г±ГЁГў ГЂ" ' ГЏГҐГ·Г*ГІГј Г*Г* Г”Г®Г°Г¬ГҐ1 - ГЊГ*Г±Г±ГЁГў ГЂ
n = Val(InputBox("Г‚ГўГҐГ±ГІГЁ N")) 'ГўГўГ®Г¤ГЁГ¬ Г± ГЄГ«Г*ГўГЁГ*ГІГіГ°Г» ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г·ГЁГ±ГҐГ« Гў Г¬Г*Г±Г±ГЁГўГҐ
ReDim a(1 To n)
n = k + m
 
For i = 1 To n ' Г§Г*ГЈГ®Г«Г®ГўГ®ГЄ Г¶ГЁГЄГ«Г*, i ГЇГ°ГЁГ*ГЁГ¬Г*ГҐГІ Г§Г*Г*Г·ГҐГ*ГЁГї Г®ГІ 1 Г¤Г® n
a(i) = Int(Rnd * 100 + 1) ' ГґГ®Г°Г¬ГЁГ°Г®ГўГ*Г*ГЁГҐ Г¬Г*Г±Г±ГЁГўГ* Г±Г«ГіГ·Г*Г©Г*Г»Гµ Г·ГЁГ±ГҐГ« Гў ГЁГ*ГІГҐГ°ГўГ*Г«ГҐ [1,100] ГЇГ® ГґГ®Г°Г¬ГіГ«ГҐ Int(RND*(B-A+1)+A)
Print a(i); ' ГўГ»ГўГ®Г¤ Г¬Г*Г±Г±ГЁГўГ* Гў Г±ГІГ°Г®ГЄГі Г*Г* ГґГ®Г°Г¬Гі
Next 'Г§Г*ГЄГ°Г»ГІГЁГҐ Г¶ГЁГЄГ«Г*
 
'ГЇГ°Г®ГЁГ§ГўГҐГ¤ГҐГ*ГЁГҐ ГўГ±ГҐГµ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г¬Г*Г±Г±ГЁГўГ*
p = 1
For i = 1 To n ' Г§Г*ГЈГ®Г«Г®ГўГ®ГЄ Г¶ГЁГЄГ«Г*, i ГЇГ°ГЁГ*ГЁГ¬Г*ГҐГІ Г§Г*Г*Г·ГҐГ*ГЁГї Г®ГІ 1 Г¤Г® n
p = p * a(i) 'ГЇГ®Г¤Г±Г·ГҐГІ ГЇГ°Г®ГЁГ§ГўГҐГ¤ГҐГ*ГЁГї ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г¬Г*Г±Г±ГЁГўГ*
Next
Print 'ГЇГҐГ°ГҐГўГ®Г¤ Г±ГІГ°Г®ГЄГЁ
Print "ГЇГ°Г®ГЁГ§ГўГҐГ¤ГҐГ*ГЁГҐ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў: " & p 'ГўГ»ГўГ®Г¤ Г*Г* ГґГ®Г°Г¬Гі Г±ГіГ¬Г¬Г» ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г¬Г*Г±Г±ГЁГўГ*
 
'Г±ГіГ¬Г¬Г* ГўГ±ГҐГµ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г¬Г*Г±Г±ГЁГўГ*
s = 0 'Г®ГЎГ*ГіГ«ГҐГ*ГЁГҐ Г±ГіГ¬Г¬Г»
For i = 1 To n ' Г§Г*ГЈГ®Г«Г®ГўГ®ГЄ Г¶ГЁГЄГ«Г*, i ГЇГ°ГЁГ*ГЁГ¬Г*ГҐГІ Г§Г*Г*Г·ГҐГ*ГЁГї Г®ГІ 1 Г¤Г® n
s = s + a(i) 'ГЇГ®Г¤Г±Г·ГҐГІ Г±ГіГ¬Г¬Г» ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г¬Г*Г±Г±ГЁГўГ*
Next
Print 'ГЇГҐГ°ГҐГўГ®Г¤ Г±ГІГ°Г®ГЄГЁ
Print "Г±ГіГ¬Г¬Г* ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў: " & s 'ГўГ»ГўГ®Г¤ Г*Г* ГґГ®Г°Г¬Гі Г±ГіГ¬Г¬Г» ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г¬Г*Г±Г±ГЁГўГ*
 
'Г·Г*Г±ГІГ*Г®ГҐ Г®ГІ Г¤ГҐГ«ГҐГ*ГЁГї cГіГ¬Г¬Г» Г*Г* ГЇГ°Г®ГЁГ§ГўГҐГ¤ГҐГ*ГЁГҐ
ch = s/p
Print "Г·Г*Г±ГІГ*Г®ГҐ Г®ГІ Г¤ГҐГ«ГҐГ*ГЁГї ГЇГ°Г®ГЁГ§ГўГҐГ¤ГҐГ*ГЁГї ГЁ Г±ГіГ¬Г¬Г»: " & ch 'ГўГ»ГўГ®Г¤ Г*Г* ГґГ®Г°Г¬Гі Г±ГіГ¬Г¬Г» ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г¬Г*Г±Г±ГЁГўГ*
 
End Sub

Решение задачи: «Задание массива с индексом от 1 до k»

textual
                            Листинг программы 
                        
  Dim A() As integer
  
  Redim A(1 to k%+m%) As integer
 
  For i%=1 to k%
       A(i%)=2*i%
  Next i%
 
  For i%=1 to m%
       A(i%+k)=5*i%
  Next i%