Сумма цифр чисел одномерного массива

@Gerasim971 · Регистрация: 17.11.2015

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

Вот такой код получился,выдает ошибку next without for

Visual Basic

Sub summa(a)
Dim i, s
s = 0
n = TextBox1
For i = 1 To n
While a(i) <> 0
s = s + (a(i) / 100)
a(i) = a(i) / 10
Next
Next
MsgBox "Ñóììà ýëåìåíòîâ ìàññèâà=  " & s
End Sub
Private Sub æìè_Click()
Dim a(1 To 100) As Integer
Dim n, i, s As Integer
n = TextBox1
For i = 1 To n
a(i) = InputBox("Ââåäèòå ýëåìåíò ìàññèâà")
Next
Call summa(a)
End Sub

@Vlad999 · 30.11.2015, 16:56

Visual Basic

1
2
3

While
.....
End While

@m-ch · 30.11.2015, 17:16

Сообщение от Vlad999

End While

Наверное имелось в виду "Wend"

Visual Basic

For ...
    While ...
        ...
    Wend
Next

@Vlad999 · 01.12.2015, 08:30

Сообщение от m-ch

Наверное имелось в виду "Wend"

Вы правы. я не пользовался таким циклом, но точно знал что не NEXT подсмотрел в VB оказывается не всегда совпадает.

@Vlad999 3897 / 2302 / 776 Регистрация: 02.11.2012 Сообщений: 6,123
	01.12.2015, 08:30	4
	Сообщение от m-ch Наверное имелось в виду "Wend" Вы правы. я не пользовался таким циклом, но точно знал что не NEXT подсмотрел в VB оказывается не всегда совпадает. 0