Создать массив и ввести члены геометрической прогрессии - VB
Формулировка задачи:
Создать массив и ввести в него автоматически первый 37 членов геометрической прогрессии с заданными первым членом и знаменателем.
Решение задачи: «Создать массив и ввести члены геометрической прогрессии»
textual
Листинг программы
Private Sub Command1_Click() Dim b(1 To 37) As Single, q As Single, answer answer = "" b(1) = InputBox("First") q = InputBox("q") answer = b(1) & " " For i = 2 To 37 b(i) = b(1) * (q ^ (i - 1)) answer = answer & b(i) & " " Next i MsgBox answer End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д