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