Что в голове у Visual Basic 6.0? - VB
Формулировка задачи:
Прошу помощи. Не понимаю, что в голове у Visual Basic 6.0?
Пусть дан массив двузначных чисел через пробел:
23 76 12 98 67 82 15 16 61 58
"Мудрствование" через генератор и перебор — уже набило оскомину своей тривиальностью.
Упрощаем:
Суть вопроса (проблемы): 1) Как мне указать VB6 —
только коротко
, сложи три крайние справа числа? 2) Или так, сложи три числа под индексами: 3, 7 и 8 (по смыслу: 12 + 15 + 16 = 43 — как сумма минимальных). Вижу по Интернету, вопрос всё чаще встаёт ребром — алюди стесняются спросить напрямую
. Мне не нравятся долгие и утомительные алгоритмы, например как в теме Массив: Найти сумму трех минимальных из массива двузначных чисел — по-моему, схоластика чистой воды. Нет красивой и оригинальной идеи.Решение задачи: «Что в голове у Visual Basic 6.0?»
textual
Листинг программы
Option Explicit Private Sub Command1_Click() 'Dim s As String, i As Long, p As Long Dim s$(), p%, i& s = Split(InputBox("Введите 10 чисел, разделённых пробелами", , "23 76 12 98 67 82 15 16 61 58")) ReDim Arr(0 To UBound(s)) For i = UBound(s) To UBound(s) - 2 Step -1 p = p + Val(s(i)) Next MsgBox p End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д