Составить 3 функции

07.12.2011, 18:47. **Показов** 1310. **Ответов** 4

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста если не сложно вот с этими 3 задачами, очень буду благодарен за помощь просто очень нужно. Если можно по программу от 1 до последней строчки ... т.к я не знаю этот язык

1)ЗАДАЧА:
Составьте функцию, которая проверяет, действительно ли количество положительных
элементов диапазона меньше количества его отрицательных элементов.

2)Разработать функцию, выполняющую указанное задание. Функция должна получать диапазон для обработки, а также, при необходимости, заданное число или заданный интервал, и возвращать массив. Для проверки работоспособности функции использовать её для вставки формулы массива.
ЗАДАЧА:
Составьте функцию, которая находит в каждом столбце диапазона количество элементов, меньших среднего арифметического значения всех элементов диапазона

3)Разработать функцию, выполняющую указанное задание. Функция должна получать диапазон для обработки, а также, при необходимости, заданное число или заданный интервал. Для задания параметров функции разработать пользовательскую форму, которая должна вызываться с помощью пользовательского пункта контекстного меню. Результат функции выводить с помощью стандартной функции MsgBox.
ЗАДАЧА:
Найти сумму элементов, кратных заданному числу.

13.12.2011, 15:38

по первой задаче, предлагаю такое решение:

Visual Basic

Function task1(t As Range) As Boolean
Dim iRow
Dim iCol
Dim iP, iM
 
For iCol = t.Column To t.Columns.Count + t.Column - 1
    For iRow = t.Row To t.Rows.Count + t.Row - 1
        Select Case Cells(iRow, iCol)
            Case Is < 0
                iM = iM + 1
            Case Is >= 0
                iP = iP + 1
        End Select
    Next iRow
Next iCol
 
If iP < iM Then task1 = True Else task1 = False
 
End Function

13.12.2011, 15:55

По задаче №3 предлагаю

Visual Basic

Function task2(t As Range, Number)
Dim iRow
Dim iCol
Dim SumMod
 
For iCol = t.Column To t.Columns.Count + t.Column - 1
    For iRow = t.Row To t.Rows.Count + t.Row - 1
        If (Cells(iRow, iCol) Mod Number) = 0 Then
            SumMod = SumMod + Cells(iRow, iCol)
        End If
    Next iRow
Next iCol
 
task2 = SumMod
 
End Function

15.12.2011, 17:44

Сообщение от MadChildNSK

По задаче №3 предлагаю

Visual Basic

Function task2(t As Range, Number)
Dim iRow
Dim iCol
Dim SumMod
 
For iCol = t.Column To t.Columns.Count + t.Column - 1
    For iRow = t.Row To t.Rows.Count + t.Row - 1
        If (Cells(iRow, iCol) Mod Number) = 0 Then
            SumMod = SumMod + Cells(iRow, iCol)
        End If
    Next iRow
Next iCol
 
task2 = SumMod
 
End Function

а вы не подскажите почему когда я хочу проверить этот код у меня отказывается EXCEL запускать ...

15.12.2011, 17:45

вы можете если не сложно и 1 и 3 записать код в EXCEL и прислать?

ilyha93
		1
	Составить 3 функции 07.12.2011, 18:47. Показов 1310. Ответов 4 Метки нет (Все метки) Помогите пожалуйста если не сложно вот с этими 3 задачами, очень буду благодарен за помощь просто очень нужно. Если можно по программу от 1 до последней строчки ... т.к я не знаю этот язык 1)ЗАДАЧА: Составьте функцию, которая проверяет, действительно ли количество положительных элементов диапазона меньше количества его отрицательных элементов. 2)Разработать функцию, выполняющую указанное задание. Функция должна получать диапазон для обработки, а также, при необходимости, заданное число или заданный интервал, и возвращать массив. Для проверки работоспособности функции использовать её для вставки формулы массива. ЗАДАЧА: Составьте функцию, которая находит в каждом столбце диапазона количество элементов, меньших среднего арифметического значения всех элементов диапазона 3)Разработать функцию, выполняющую указанное задание. Функция должна получать диапазон для обработки, а также, при необходимости, заданное число или заданный интервал. Для задания параметров функции разработать пользовательскую форму, которая должна вызываться с помощью пользовательского пункта контекстного меню. Результат функции выводить с помощью стандартной функции MsgBox. ЗАДАЧА: Найти сумму элементов, кратных заданному числу.

ilyha93
	15.12.2011, 17:45	5
	вы можете если не сложно и 1 и 3 записать код в EXCEL и прислать?

Опции темы