Выяснить, является ли сумма элементов одномерного массива четным числом

@Daniel12345 · Регистрация: 12.10.2016

Ребята, подскажите.
Задача:
Для целочисленного массива A[1..15] выяснить, является ли сумма его элементов четным числом. Вывести "ДА" или "НЕТ".
Вроде как написал решение, правильно выдает ДА и НЕТ, но в таблицу выводятся одни числа, а MsgBox вообще выдает какое то непонятное 3х значное число. Не могу поянть, где косяк.

Visual Basic

Private Sub CommandButton1_Click()
 Dim a(1 To 15) As Integer
  Dim i As Integer
   Dim s As Variant
s = 0
 For i = 1 To 15
 a(i) = Int(Rnd * 50)
 s = s + a(i)
 Next
  For i = 1 To 15 Step 1
        Cells(i, "A").Value = a(i)
    Next i
If s Mod 2 <> 0 Then
MsgBox "Нет" & s
Else
MsgBox "Да" & s
End If
End Sub

SoftIce · 07.11.2016, 13:07

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

MsgBox вообще выдает какое то непонятное 3х значное число

Значит код не Вы писали...

@Daniel12345 · 07.11.2016, 14:33 **[ТС]**

Ошибаетесь

~~Shersh~~ · 07.11.2016, 14:38

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

Ошибаетесь

А что ещё остается предположить?

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

MsgBox вообще выдает какое то непонятное 3х значное число

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

For i = 1 To 15
a(i) = Int(Rnd * 50)
s = s + a(i) 'КТО СЧИТАЛ СУММУ?
Next

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

MsgBox "Нет" & s 'И ВЫДАЛ ЕЁ В ОТВЕТ?

SoftIce es geht mir gut 11264 / 4746 / 1183 Регистрация: 27.07.2011 Сообщений: 11,437
	07.11.2016, 13:07	2
	Сообщение от Daniel12345 MsgBox вообще выдает какое то непонятное 3х значное число Значит код не Вы писали... 0

@Daniel12345 0 / 0 / 0 Регистрация: 12.10.2016 Сообщений: 10
	07.11.2016, 14:33 [ТС]	3
	Ошибаетесь 0

~~Shersh~~ Заблокирован
	07.11.2016, 14:38	4
	Сообщение от Daniel12345 Ошибаетесь А что ещё остается предположить? Сообщение от Daniel12345 MsgBox вообще выдает какое то непонятное 3х значное число Сообщение от Daniel12345 For i = 1 To 15 a(i) = Int(Rnd * 50) s = s + a(i) 'КТО СЧИТАЛ СУММУ? Next Сообщение от Daniel12345 MsgBox "Нет" & s 'И ВЫДАЛ ЕЁ В ОТВЕТ? 0

Опции темы