Написать программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 10 - VB

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

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

Написать программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 10, выводит эти числа на экран и вычисляет их среднее арифметическое.

Решение задачи: «Написать программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 10»

textual
Листинг программы
Dim i(1 To 10) As Integer
Dim a As Integer
Dim c(1 To 10) As Integer
Private Sub Command1_Click()
Randomize
For a = 1 To 10
i(a) = Int(Rnd * 10) + 1
Print i(a)
Next
Print 'Сейчас пойдёт средние арифметическое
Print (i(1) + i(2) + i(3) + i(4) + i(5) + i(6) + i(7) + i(8) + i(9) + i(10)) / 10
End Sub

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


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

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

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