Всем привет! Люди, помогите пожалуйста сделать лабораторную работу. Выручите студента.

И так перейдем собственно к лабораторной.
Нужно сделать задания в Excell + VBA. Сам я программирую на php и С++. Но тут застрял, ниже в картине задание.
Помогите чем сможете, в понедельник сдавать!

Не понял сарказма. Нужно сделать все 8 заданий.
Помогите. Объясните хотя б.

м, А примерно написать сможете?
Я просто 5 лаб, по 8 заданий уже сделал, крыша едет )))

от первое задание начинал как то так:
КодOption Base 1
Sub primer()
Dim i As Integer
Dim k As Integer
Dim n As Integer
Dim B(1 To 100) As Integer
n = InputBox("Введите n от 1 до 100", n)
k = 0
For i = 1 To n
If IsOdd(B(i)) = True Then
k = k + 1
End If
Cells(1, 1).Value = k
Next i
End Sub


"Или документ. первые 8 заданий. " Быстро сарафанное радио работает))))))

Свояить по возможности и силе знаний)))

Фиг знает))) в инете надыбал, я синтаксис ваще не знаю... Ну как я понял ISODD() - проверяет на нечетность. ISEVEN - проверка четности. но они не работают... :(

не работает. Вводишь когда n. он его принимает, и тупо выводит тоже самое число в ячейку A1

непонятно :(

ока гостем тут был, лазил тут

/topic/723754&pg=2

Аааааа... У меня паника! Ничего не работает! ))))))

Че делать то?

Попробуй с нуля написать. Я хз. написал Cells(1, 1).Value = B(i), он мне в ячейку 0 забацал

Во я попал блин.
А знакомые User'ы есть кто шарит в этом?
В-первом задании, код ваще непонятный. Он цикл не считает, и условие не проверяет, а просто введенное n выводит в A1

DI KING,
Добавляю типо примера лекции. мало ли, может поможет.

Ципихович ЭндрюDI KING,
там с ошибкой http://www.cyberforum.ru/vba/thread312449.html
но начало верное

Там ругается на: For i = 1 To c
А вот почему непонятно.

да. я тоже. Надеюсь на твою помощь! Хоть кто то отозвался!

Я второе задание сделал! Помогите с остальными.

Это вот 2 задача.
Код 2 задачаSub InforLabs3()
Cells.Clear
Dim a() As Integer, n, i, g As Single
n = InputBox("Введите размерность массива", "Ввод", "10")
n = Val(n)
ReDim a(n)
s = 0
c = 0
Randomize
For i = 1 To n
a(i) = Int(50 * Rnd())
Worksheets(1).Cells(1, i).Value = a(i)
If a(i) <> 0 And a(i) Mod 3 = 0 And a(i) Mod 5 > 0 Then
s = s + a(i)
c = c + 1
End If
Next i
Worksheets(1).Cells(2, 1).Value = s
Worksheets(1).Cells(3, 1).Value = c
End Sub


Я думаю что 7 тоже самое только вот че:
Код 7 заданияIf a(i) <> 0 And a(i) Mod 7 = 1.2 Or a(i) Mod 7 = 5 Then
s = s + a(i)
c = c + 1
End If

Круто! 2 задания сделано.

А первое задание чет неправильно он там считает, который ты присылал.

Ципихович Эндрю, Выручай)))) С остальными что делать?

Ну да. кол-во так он в цикле, и 56 с 34... их может быть так много??? я просто не понимаю эту тему немного)))

Ды бог с ними с 4,8 хотя б эти сделать!

Да именно так. массив от 1 до 100, тобишь 1,2,3,4,5,6....
Надо вывести количество нечетных, в этом массиве, по придел n, например массив 1 до 100, а я ввожу придел 20.
И он мне должен вывести Ak, кол-во нечетных в массиве от 1 до 20.
Можно выводить через MsgBox

На первую задачу нет рабочего кода.
Я раньше выкладывал, Вы потом изменили... и все. есть только 2,7. остальных нет :(

Я не понимаю какой рабочий код?

А. вот че...
Код для 2
Sub InforLabs3()
Cells.Clear
Dim a() As Integer, n, i, g As Single
n = InputBox("Введите размер массива", "Ввод", "10")
n = Val(n)
ReDim a(n)
s = 0
c = 0
Randomize
For i = 1 To n
a(i) = Int(50 * Rnd())
Worksheets(1).Cells(1, i).Value = a(i)
If a(i) <> 0 And a(i) Mod 3 = 0 And a(i) Mod 5 > 0 Then
s = s + a(i)
c = c + 1
End If
Next i
Worksheets(1).Cells(2, 1).Value = s
Worksheets(1).Cells(3, 1).Value = c
End Sub



Больше ничего нет. ну и 7 по подобию, все.

еще вот какие есть, но это из лекции... я по мойму выкладывал.
Реализовать на языке VBA алгоритм поиска наибольшего элемента последовательности с определением его местонахожденияSub primer()
Const n = 10
Dim N_max As Integer
Dim i As Integer
Dim Max As Single
Dim B(1 To n) As Single
B(1) = 0.2: B(2) = 1.4: B(3) = 0.6
B(4) = 0.121: B(5) = 0.77: B(6) = 9.45
B(7) = 8.21: B(8) = 0.4: B(9) = 0.3
B(10) = 4.11
Max = B(1)
N_max = 1
For i = 2 To n
If B(i) > Max Then
Max = B(i)
N_max = i
End If
Next i
Cells(1,1).Value = “max =”
Cells(1,2).Value = max
Cells(2,1).Value = “N_max =”
Cells(2,2).Value = N_max
End Sub



И вот такая

Постановка задачи ПрежняяOption Base 1
Sub primer()
Dim i As Integer
Dim Max As Single
Dim N_Max As Integer
Dim B As Variant
B = Array(0.1, 1.12, 3.12, 0.45, 101.47, 12.4, 10.12, 10.11, 6.47, 13.4)
Max = B(1)
N_Max = 1
For i = 2 To 10
If B(i) > Max Then
Max = B(i)
N_Max = i
End If
Next i
Cells(1,1).Value = “max =”
Cells(1,2).Value = max
Cells(2,1).Value = “N_max =”
Cells(2,2).Value = N_max
End Sub

Да что нужно то? Объясни по человечески. Я не понимаю, то код то теги... Аська есть? давай там. чтоб форум не захломлять!

автори потом лишь отвечаете в виде МсгБокса:
количество ak последовательности a1,a2,…,an являющихся нечётными числами равно: xxx

Можно через MsgBox/ вот что это.

У меня ничего не получается. С написанием этих лаб. я в скайп постучался. добавь.

Блин! Я ж в 1000 раз говорю! Мне алгоритм нужен как делать, а то я непонимаю. написать хоть б 1 задачу. и объяснить.

А Skype, чтоб проще было... там же есть мгновенные сообщения. Там бы и поговорили.

Гы, Я на словах это уже выучил. На словах алгоритм и у меня есть.)))

Мне кодом надо показать. Вот тут то-то, вот тут так-то, вот так условие...

например:

Массив -> вот так закидываем.
-Тут нужно условие с такой то проверкой.
-тут цикл с увеличением.
На коде объяснить нужно.
Сделайте первое задание хотя б ды на нем и объясните.

Круто! работает. и код маленький.
А остальные как делать? Условия только менять?

Вот 3 задание там тоже самое только.

являющихся квадратами чётных чисел.

Эт как объяснить сможете, или условие написать?

PS в ящик вчера заглядывали? кое что спрашивал

Проверил. пусто. Ящик di_king@live.ru ?