Курсовые задания по информатике в VB

[student48]

Уважаемы форумчане, учусь на 1 курсе тех университета по специальнсти "Электроэнергетика", и как понимаете информатика мне не особа нужна. У меня по всем дисциплинам отлично за исключением информатики. Препод сказал если сдашь курсовую на отлично, то поставлю автомат, а я с компьютерами совсем не дружу (максимум реферат могу написать). Некоторые задания я сделал сам, а некоторые никак не получается......если у кого нибудь есть время, прошу, посмотрите и помогите написать эти коды. Программа Visual Basic (из Excel).

1) Определить max(a,b) + min(c,d) при заданных a, b, c, d.
2) Дан массив a1, a2,......,a7. Найти среднее арифмитическое Sr для чисел, стоящих на нечетких местах.
3)Вычислить среднее арифмитическое положительных Srp2 и отрицательных Sro2 элементов второй строки матрицы {Aij}, где i=j=1,5.
4)Определить максимальное значение xy max = max {xmin, ymin} минимальных элементов xmin = min {Xi} массива Xi и ymin {Yi} массива Yi, i = 1, 2, 3.

[Hugo121]

1.

Sub tt()
Dim a&, b&, c&, d&

a = 10
b = 5
c = 15
d = 6

'1) Определить
MsgBox Application.Max(a, b) + Application.Min(c, d) ' при заданных a, b, c, d.

End Sub

То, что в редакторе VBA зелёное - можно удалить (комментарии)

[Hugo121]

2. Вероятно, можно короче и красивее... если я правильно понял "нечетких местах"

Sub ttt()
    Dim a, i&, sum_&, x&
    a = Array(2, 67, 34, 1, 67, 24, 35)
    For i = 0 To UBound(a)
        If i Mod 2 = 0 Then x = x + 1: sum_ = sum_ + a(i)
    Next
    MsgBox sum_ / x
End Sub

[19vitek]

Задание 3. В соответствии с его пониманием.

Sub n()
Cells.Clear
Dim n As Byte
Dim m As Byte
Dim st As Byte
n = InputBox("Введите к-во строк")
m = InputBox("Введите к-во столцов")
Set Rng = Range(Cells(1, 1), Cells(n, m))
Rng.Formula = "=int(rand()*10-5)"
Set rng_2 = Range(Cells(2, 1), Cells(2, m))
Srp2 = Application.WorksheetFunction.AverageIf(rng_2, ">0")
MsgBox "Среднее арифметическое положительных э-тов 2 строки " & Srp2
Sro2 = Application.WorksheetFunction.AverageIf(rng_2, "<0")
MsgBox "Среднее арифметическое отрицательных э-тов 2 строки " & Sro2
End Sub