Найти и вывисти на экран Сумму-s1 -элементов с четными номерами и сумму s2 с нечетными номерами

@c_andrey · Регистрация: 08.03.2011

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

Здравствуйте форумчане.
нужна ваша подсказка относительно програмы на vba

Найти и вывисти на экран Сумму-s1 -элементов с четными номерами и сумму s2 с нечетными номерами.
Вот тело программы

Но что то она не совсем верно подсчитывает...

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim Am(50) As Double
Private Sub Command1_Click()
Picture1.Cls
s = 0
av = Split(Text2, " ")
For i = 0 To Text1 - 1
Next i
For i = 2 To Text1 - 1 Step 2
 
Am(i) = Val(av(i))
If Am(i) Mod 2 = 0 Then s = s + Am(i)
Next i
Picture1.Print s
 
End Sub

@Busine2009 · 09.03.2011, 07:51

c_andrey,
нужно различать:

порядковый номер элемента массива;
содержимое элемента массива.

В данном задании имеется ввиду не содержимое элементов массива, а их порядковые номера, которые могут быть чётными и нечётными.
Соответственно на чётность нужно проверять номер элемента массива, а не его содержимое.
Для выполнения задания нужно сделать две переменные s1 и s2.

Visual Basic
1
2
3
4
5
If i Mod 2 = 0 Then 
    s1 = s1 + Am(i)
Else
    s2 = s2 + Am(i)
End If

И i должен начинаться с 1, т.к. ноль не является ни чётным, ни нечётным числом.

@mc-black · 09.03.2011, 09:08

Вот пример полной реализации. Если там сделано через форму, тогда вместо InputBox поставить TextBoxN.Text, а вместо MsgBox - LabelN.Caption:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Calc()
    Dim arrText() As String, s1 As Long, s2 As Long, i As Long
    
    arrText = Split(InputBox("Введите массив действительных целых, разделяя элементы пробелами", "Ввод данных"), " ")
    
    s1 = 0
    s2 = 0
    For i = 0 To UBound(arrText)
        If i Mod 2 = 0 Then
            s2 = s2 + CLng(arrText(i))
        Else
            s1 = s1 + CLng(arrText(i))
        End If
    Next i
    
    MsgBox "Сумма чертых элементов с четными номерами (s1): " & s1 & vbCrLf & _
           "Сумма чертых элементов с нечетными номерами (s2): " & s2
End Sub

@c_andrey · 09.03.2011, 09:59 **[ТС]**

Спасибо сейчас буду править код.

Новые блоги и статьи Все статьи Все блоги /
WebAssembly в Kubernetes stackOverflow 03.03.2025 В современной экосистеме облачных технологий WebAssembly (Wasm) становится все более значимым компонентом, предлагая уникальный подход к выполнению кода в распределенных системах. Эта технология. . .	GitHub Actions или Jenkins: Выбираем CI/CD платформу stackOverflow 03.03.2025 Непрерывная интеграция и развертывание (CI/ CD) изменили подход к разработке программного обеспечения, превратив его в бесшовный процесс от написания кода до развертывания в продакшн. GitHub Actions и. . .	Автоматизация тестирования Pull Request в Kubernetes: Интеграция с GitHub Actions и GKE stackOverflow 03.03.2025 Масштабные проекты с использованием Kubernetes требуют надежной системы тестирования изменений перед их внедрением в продакшн-среду. Традиционный подход с ручной проверкой Pull Request не справляется. . .	Tестирование Pull Request в Kubernetes с помощью vCluster stackOverflow 03.03.2025 При работе с микросервисной архитектурой критически важно обеспечить качественное тестирование каждого изменения перед его слиянием в основную кодовую базу. Однако тестирование Pull Request в. . .	Использование пакета Context в Golang bytestream 03.03.2025 Управление параллельными процессами в современных приложениях - сложная задача, особенно когда речь идет о микросервисной архитектуре и распределенных системах. Пакет context в Go - это гибкое. . .
WebAssembly и Go: Работа с DOM и обработка ошибок bytestream 03.03.2025 WebAssembly представляет собой технологию, позволяющую запускать низкоуровневый код в браузере практически на нативной скорости. Особенно интересные возможности открываются при использовании. . .	WebAssembly и Go: Создание высокопроизводительных веб-приложений bytestream 03.03.2025 WebAssembly - это технология, изменившая подход к созданию высокопроизводительных веб-приложений. До появления WebAssembly JavaScript оставался единственным языком программирования, который понимали. . .	Контексты в Go: отмена, тайм-ауты и распространение bytestream 03.03.2025 В многопоточном программировании существует множество ситуаций, когда необходимо прерывать выполнение горутин или ограничивать время их работы. Отсутствие грамотного управления параллельными. . .	WebSocket в Go: создание масштабируемых real-time приложений bytestream 03.03.2025 Веб-приложения все чаще требуют обработки данных в режиме реального времени. Традиционный подход с использованием HTTP-запросов имеет существенные ограничения для таких сценариев. При каждом запросе. . .	Как дебажить в Go: Руководство по отладке bytestream 03.03.2025 Отладка в Go имеет свои особенности, связаные с строгой типизацией, моделью конкурентности и управлением памятью. Go предоставляет богатый набор встроеных средств для отладки, которые дополняются. . .

@c_andrey 0 / 0 / 0 Регистрация: 08.03.2011 Сообщений: 13
	09.03.2011, 09:59 [ТС]	4
	Спасибо сейчас буду править код. 0