1)В массиве У(N) определить количество элементов, являющихся кратными 7 и отрицательными.

[Герман Греф]

создаю стандарт экс или актив экс?

[KooKish]

Погоди. Изоброжение для ясности залью
Вообщем вот скачай. Не разобрался как сюда заливать фотки... http://files.mail.ru/W0V6IJ

[Герман Греф]

это изображение? не отображает

добавил модуль запихал код, не пойму..мы не проходили этого((

так ты в екселе делал? какой тип проекта?

[KooKish]

Вообщем вот с UserForm, добавляешь только Button и TextBox. В TextBox будут выводиться числа массива (<0 и /7). Щелкать можешь много раз, массив будет пересоздаваться, если тебе помоч с вводом массива в ручную, могу и так сделать. Но для тебя лучше будет сделать это самому, тогда поймешь что делаешь.

Dim Array1(1 To 10) As Integer
Dim i As Integer, j As Integer, n As Integer
Dim s As String
Private Sub CommandButton1_Click()
For i = 1 To 10
j = CInt(Int(9 * Rnd() + 1))
n = CInt(Int(3 * Rnd() - 1))
If n <> 0 Then
j = j * n
End If
Array1(i) = j
Next i
s = ""
For i = 1 To 10
If (Array1(i) Mod 7 = 0) Or (Array1(i) < 0) Then
s = s + " " + CStr(Str(Array1(i)))
End If
Next i
TextBox1.Text = s
End Sub

[Герман Греф]

ну вот другое дело, мы кроме как с формой боле ни с чем не работали, спс большое))
с вводом вручную это через инпут бокс?

[KooKish]

Можно через него или как вывод, через TextBox, будет 2 TexBox. Жмем кнопку из 1 во 2 выводится тот же массив только с заданным условием. вообщем все от твоей фантазии зависит) Можно в Label вывести. Вариантов масса