Выяснить, сколько элементов массива, начиная с первого, нужно сложить, чтобы сумма превысила число 100

@Newbie) · Регистрация: 15.12.2011

Author24 — интернет-сервис помощи студентам

Выяснить, сколько элементов массива, начиная с первого, нужно сложить, чтобы сумма превысила число 100.

Вот моя программа

Visual Basic

Private Sub CommandButton1_Click()
Dim A(1 To 20) As Integer
Dim I As Integer
Dim N As Integer
Dim S As Single
For I = 1 To 20
A(I) = Cells(I, 1).Value
Next I
S = 0
N = 0
For I = 1 To 20
If S <= 100 Then S = S + A(I) And N = N + 1
If S > 100 Then N = I
Next I
Cells(2, 3) = "Количество элементов массива, сумма которых превышает 100=" & N
End Sub

пожалуйста, подскажите ошибку

@Димит · 15.12.2011, 09:18

в цикле

Visual Basic

For I = 1 To 20
S = S + A(I)
If S > 100 Then
    N = I
    Exit For
End If
Next I

@Newbie) · 15.12.2011, 11:27 **[ТС]**

Спасибо большое

@Newbie) 0 / 0 / 0 Регистрация: 15.12.2011 Сообщений: 3
	15.12.2011, 11:27 [ТС]	3
	Спасибо большое 0

Опции темы