Вариант 9. Определить среднее значение диапазона клеток А1:D4 на рабочем листе «Лист1»

  • ID: 25936 
  • 11 страниц
200 рубСкачать

антиплагиат в подарок

Задачи.xls

Отчет.docx

Содержание:


Задача №1

Постановка задачи

Определить среднее значение диапазона клеток А1:D4 на рабочем листе «Лист1».

Текст программы

Sub task1()

Dim i As Integer, j As Integer, s As Single, sr As Single

s = 0

For i = 1 To 4

For j = 1 To 4

Cells(i, j) = Int(Rnd * 100)

s = s + Cells(i, j)

Next j

Next i

sr = s / 16

MsgBox ("Среднее значение диапазона клеток A1:D4 = " & sr)

End Sub

Блок-схема

Начало

Начало

s = 0

i = 1, 4

j = 1, 4

Cells(i, j) = Int(Rnd * 100)

s = s + Cells(i, j)

sr = s / 16

Вывод

sr

Задача №2

Постановка задачи

Вариант 9. Составить блок-схему и написать программу вычисления функции пользователя W:

eb +7b3, если b