Заполнить массив десятью целыми случайными числами, каждое из которых не превышает 20 - VB
Формулировка задачи:
Скорей всего это последнее задание которое дали...т.к. я уже писал в прошлой теме,что скоро контрольная, хотя кто их знает...этих преподавателей,что у них там на уме.
В этот раз дали такое вот задание:
Заполнить массив десятью целыми случайными числами, каждое из которых не превышает 20. Вывести значения в компонент ListBox. Расположите соответствующие компоненты на форме для вывода ответов и напишите процедуры для поиска:
а) суммы первого и последнего элементов
б) среднего значения первых пяти элементов
в) количества элементов, значения которых больше числа 10.
Примечание:
для получения случайного числа, не превышающего N необходимо воспользоваться формулой A(i)=int(rnd*N)Решение задачи: «Заполнить массив десятью целыми случайными числами, каждое из которых не превышает 20»
textual
Листинг программы
Private Sub Command1_Click() Dim a(10) List1.Clear s = 0: c = 0 For i = 1 To 10 a(i) = Int(Rnd * 20) List1.AddItem a(i) If i < 6 Then s = s + a(i) If a(i) > 10 Then c = c + 1 Next i List1.AddItem "-------------" List1.AddItem "a(1) + a(10)=" & a(1) + a(10) List1.AddItem "-------------" List1.AddItem "S5/5 = " & s / 5 List1.AddItem "-------------" List1.AddItem "a(i) > 10 --- " & c End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д