Получить последовательность b1, b2, ... , bn, где при i =1,2,...,n значение bi = i! - VB

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

в Visual Basic Циклы 1.Дано натуральное n. Получить последовательность b1, b2, ... , bn, где при i =1,2,...,n значение bi = i!

Решение задачи: «Получить последовательность b1, b2, ... , bn, где при i =1,2,...,n значение bi = i!»

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

                            Private Sub Command1_Click()
Form1.AutoRedraw = True
Dim i, n, m As Integer
Dim a() As Double
Cls
n = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ®  ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў", "ГќГ«ГҐГ¬ГҐГ*ГІГ»")
m = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ®  ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Гў Г±ГІГ°Г®ГЄГҐ", "ГЉГЋГ«ГЁГ·ГҐГ±ГўГІГ® ГЅГ«-Г®Гў Гў Г±ГІГ°Г®ГЄГҐ")
 
ReDim a(1 To n)
For i = 1 To n
      a(i) = i
 
      Print a(i);
If a(i) Mod m = 0 Then Print
Next i
End Sub
                        

Оцени полезность:

8 голосов , оценка 3.875 из 5

Похожие ответы