Найти три максимальных элемента и их сумму в массиве - VB

Узнай цену своей работы

Формулировка задачи:

Всем привет. Помогите с задачей, если не затруднит. Звучит она так: "Дан одномерный массив, состоящий из десяти целых двузначных чисел в диапазоне от 10 до 99. Найти три максимальных элемента и их сумму." Выводит все три элемента либо одинаковые, либо не правильно их складывает. В чем проблема?

Решение задачи: «Найти три максимальных элемента и их сумму в массиве»

textual
Листинг программы
Option Explicit
 
Const r = 90
Dim WithEvents c As CommandButton, m&
 
Private Sub c_Click()
    If c.Caption <> m Then
        MsgBox "Это не самое большое число в массиве"
    Else
        If MsgBox("Ты угадал ! Молодец, хочешь еще ?", 68) = vbNo Then End
        Call Form_Load: Call c_LostFocus
    End If
End Sub
 
Private Sub c_LostFocus()
    Set c = ActiveControl
End Sub
 
Private Sub Form_Load()
    Dim i&, j&, v
    For Each v In Controls
        Controls.Remove v
    Next
    Randomize Timer
    For i = 0 To 9: For j = 0 To 9
        With Controls.Add("vb.CommandButton", "c" & i & j)
            .Move i * r * 5, j * r * 5, r * 5, r * 5
            .Caption = Fix(Rnd * 100)
            If .Caption > m Then m = .Caption
            .Visible = 1
        End With
    Next j, i
    Me.Move 0, 0, i * r * 6, j * r * 6
End Sub
 
Private Sub Form_Activate(): Call c_LostFocus: End Sub

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


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

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

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