Найти три максимальных элемента и их сумму в массиве - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д