Заполнить массив десятью целыми случайными числами, каждое из которых не превышает 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

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


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

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

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