Написать процедуру поиска в заданном массиве В, состоящем из 20-ти элементов, третьего положительного элемента и его индекса

@iNomad · Регистрация: 26.04.2013

Visual Basic

Sub Lab_5()
Dim A(1 To 20)
Dim ind As Integer, K As Integer, P As Integer
Dim Tittle As String
Dim String1 As String
Dim String2 As String
Dim String3 As String
Title = " Индексы элементов одномерного массива "
String1 = " Третье положительное число = "
String2 = " Индекс числа ="
For b = 1 To 20
A(b) = Int(21 * Rnd - 10)
Next
     ind = 0
For q = 1 To 10
  If A(q) > 0 Then
     ind = ind + 1
  End If
  If ind = 3 Then
     K = A(q)
     P = q
     Exit For
  End If
Next
MsgBox String2 & P & Chr(13) & String1 & K, , Title
End Sub

Вот собственно я составил, НО я просто заполнил массив случайными числами.
Если кто может помочь, нужно :
Для заданного условия составить процедуру и придумать несколько наборов тестовых данных для отладки. Возможно использование как статических массивов, так и динамических. Ввод исходных данных осуществить из файла. Предусмотреть вывод результата в файл или на лист рабочей книги Excel.
Спасибо за помощь

@Igor_Tr · 21.05.2013, 16:59

Создайте две процедуры. Одна - запись массива на лист (через Randomize). И вторая - уже работа с полученной матрицей на листе, которюу Вы быстро заганяете в массив, в нем обрабатываете и на лист результаты. А это я не понял:

...и придумать несколько наборов тестовых данных...

Что-то в стиле debug.print? Или несколько матриц? Если последнее - тогда вложите первую процедуру в вторую. Самая первая операция - очистка листа от данных. Вторая - вызов процедуры записи массива... И щелкайте запуск с утра до вечера - всегда новые результаты.

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	21.05.2013, 16:59	2
	Создайте две процедуры. Одна - запись массива на лист (через Randomize). И вторая - уже работа с полученной матрицей на листе, которюу Вы быстро заганяете в массив, в нем обрабатываете и на лист результаты. А это я не понял: ...и придумать несколько наборов тестовых данных... Что-то в стиле debug.print? Или несколько матриц? Если последнее - тогда вложите первую процедуру в вторую. Самая первая операция - очистка листа от данных. Вторая - вызов процедуры записи массива... И щелкайте запуск с утра до вечера - всегда новые результаты. 1

Опции темы