В одномерном массиве, содержащим N элементов найти сумму положительных элементов - VB

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

В одномерном массиве, содержащим N элементов найти сумму положительных элементов.

                    Листинг программы
                
 
                        
                          
                    
Dim Am(50) As Double
Private Sub Command1_Click()
Picture1.Cls
    n = Val(Text1)
    summ = 0
    av = Split(Text2, " ") ' разбивает строку по разделителю '
    For i = 0 To n - 1
      Am(i) = Val(av(i)) (выделяет желтым эту строку!)
      If Am(i) > 0 Then summ = summ + Am(i)
    Next
    Picture1.Print summ
End Sub

ошибка 'Runtime error '9': Subscript out of range'

Решение задачи: «В одномерном массиве, содержащим N элементов найти сумму положительных элементов»

textual
                            Листинг программы 
                        
av = Split(Text2, " ") ' разбивает строку по разделителю '
 * *tt = 0
* * For j = 1 To Len(Text2) ' находим кол-во пробелов
 * * * *If Mid(Text2, j, 1) = " " Then tt = tt + 1 *''tt кол-во пробелов
 * *Next j

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

15 голосов , оценка 3.867 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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