Массив в VBA!! - Помощь студентам

NitriNKa · 15.04.2009, 17:22

Помогите пожалуйста, очень срочно надо

Задан массив с количеством элементов N. Найти все положительные значения элементов массива, среди положительных значений выбрать наименьшее.

Sasha_Smirnov · 16.04.2009, 03:14

http://www.programmersforum.ru/forumdisplay.php?f=18

NitriNKa, переспроси в разделе форума, где больше любят VBA.

А то здесь тебя, похоже, не видят.

EvKont · 16.04.2009, 03:45

Public Sub massiv()
Dim mas() As Single
Dim num, max As Integer

num = InputBox("Размерность")
ReDim mas(num)

For i = 1 To num
mas(i) = Int(Rnd * 10) - 5
Mat = Mat + str(mas(i)) + " "
Next i

For i = 1 To num
If mas(i) > 0 Then pol = pol + str(mas(i)) + " "
Next i

max = mas(1)

For i = 1 To num
If mas(i) > max Then max = mas(i)
Next i

MsgBox ("Массив: " & Mat & Chr(13) & "Положительные: " & pol & Chr(13) & "Максимум: " & max)

End Sub

15.04.2009, 17:22	#1
NitriNKa Пользователь Регистрация: 29.03.2009 Сообщений: 45	Массив в VBA!! Помогите пожалуйста, очень срочно надо Задан массив с количеством элементов N. Найти все положительные значения элементов массива, среди положительных значений выбрать наименьшее.

16.04.2009, 03:14	#2
Sasha_Smirnov Особый статус Участник клуба Регистрация: 24.11.2008 Сообщений: 1,535	http://www.programmersforum.ru/forumdisplay.php?f=18 NitriNKa, переспроси в разделе форума, где больше любят VBA. А то здесь тебя, похоже, не видят. Формула 1 (календарь чемпионата-2016): 26.11.2016 15:55 — Абу-Даби: http://ru.wikipedia.org/wiki/Гран-при_Абу-Даби — (квалификация)! Эфир: http://lion-tv.com/28-match-tv.html

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Упорядочить массив в порядке возрастания и напечатать входной и исходный массив.	TheVenny	Помощь студентам	3	26.11.2008 15:06
VBA	Pinya	Microsoft Office Excel	2	19.09.2008 11:51
VBA. Одномерный массив	ExMatiss	Microsoft Office Excel	9	07.05.2008 05:57

16.04.2009, 03:45	#3
EvKont Пользователь Регистрация: 06.01.2009 Сообщений: 26	Public Sub massiv() Dim mas() As Single Dim num, max As Integer num = InputBox("Размерность") ReDim mas(num) For i = 1 To num mas(i) = Int(Rnd * 10) - 5 Mat = Mat + str(mas(i)) + " " Next i For i = 1 To num If mas(i) > 0 Then pol = pol + str(mas(i)) + " " Next i max = mas(1) For i = 1 To num If mas(i) > max Then max = mas(i) Next i MsgBox ("Массив: " & Mat & Chr(13) & "Положительные: " & pol & Chr(13) & "Максимум: " & max) End Sub