Написать программу, которая генерирует 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