Нужно решить задание по информатике (срочна)

@vikoula · Регистрация: 25.10.2010

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

Доброго время суток!
Помогите пожалуйста решить задачку по информатике!
Очень надо на завтра!
2 кнопки первоы Ввести 10 чисел а вторая Вычислить количество положительных и отрицательных чисел !!!

Dim b(1 To 10) As Single
Private Sub CmdVvod_Click()
Dim i As Byte
MsgBox "Введите десять чисел", vbOKOnly + vbInformation
For i = 1 To 10
b(i) = Val(InputBox("Введите" + Str(i) + "число", "Ввод числа"))
Next
End Sub

а дальше я не знаю =( помогите плиз .....

@Alex77755 · 01.11.2010, 18:12

А вот это уже нарушение!
Не плоди топики во всех разделах.
Тебе на VB или на VBA надо было.

@vikoula · 01.11.2010, 18:41 **[ТС]**

Извини это было просто очень нужно

@vikoula 1 / 1 / 0 Регистрация: 25.10.2010 Сообщений: 7
		1
	Нужно решить задание по информатике (срочна) 01.11.2010, 17:44. Показов 752. Ответов 2 Метки нет (Все метки) Доброго время суток! Помогите пожалуйста решить задачку по информатике! Очень надо на завтра! 2 кнопки первоы Ввести 10 чисел а вторая Вычислить количество положительных и отрицательных чисел !!! Dim b(1 To 10) As Single Private Sub CmdVvod_Click() Dim i As Byte MsgBox "Введите десять чисел", vbOKOnly + vbInformation For i = 1 To 10 b(i) = Val(InputBox("Введите" + Str(i) + "число", "Ввод числа")) Next End Sub а дальше я не знаю =( помогите плиз ..... 0

@Alex77755 11517 / 3803 / 681 Регистрация: 13.02.2009 Сообщений: 11,223
	01.11.2010, 18:12	2
	А вот это уже нарушение! Не плоди топики во всех разделах. Тебе на VB или на VBA надо было. 1

@vikoula 1 / 1 / 0 Регистрация: 25.10.2010 Сообщений: 7
	01.11.2010, 18:41 [ТС]	3
	Извини это было просто очень нужно 0