В массиве A каждый элемент, кроме первого, заменить суммой всех предыдущих элементов - VB
Формулировка задачи:
Привет. Очень нужна ваша помощь в решении задачи: "В массиве A каждый элемент, кроме первого, заменить суммой всех предыдущих элементов", я записала ее на паскале....но с VBasic пока проблемы....помогите записать программу в VB плиз!!!
Решение задачи: «В массиве A каждый элемент, кроме первого, заменить суммой всех предыдущих элементов»
textual
Листинг программы
Private Sub Command1_Click() Dim a(20) As Integer Dim i As Integer Dim s As String Randomize For i = 1 To 20 a(i) = 10 * Rnd() s = s & a(i) & " " Next Print (s) s = a(1) & " " For i = 2 To 20 a(i) = a(i - 1) + a(i) s = s & a(i) & " " Next Print (s) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д