Что в голове у 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.333 из 5
Похожие ответы