<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Visual Basic FAQ &#187; Массив</title>
	<atom:link href="http://www.vbfaq.ru/category/array/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.vbfaq.ru</link>
	<description>База готовых кодов на Visual Basic - бесплатно, бери и используй. Научимся программировать для себя, ведь писать программы - это просто интересно. Авторы: BiT, МП41А, Chan и Desant</description>
	<lastBuildDate>Wed, 21 Sep 2011 12:01:28 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.3</generator>
		<item>
		<title>Четные числа увеличить в 2 раза, а нечетные &#8212; уменьшить на min элемент</title>
		<link>http://www.vbfaq.ru/2011/09/chetnye-chisla-uvelichit-v-2-raza/</link>
		<comments>http://www.vbfaq.ru/2011/09/chetnye-chisla-uvelichit-v-2-raza/#comments</comments>
		<pubDate>Wed, 21 Sep 2011 12:01:28 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Массив]]></category>
		<category><![CDATA[массив]]></category>
		<category><![CDATA[увеличить]]></category>
		<category><![CDATA[уменьшить]]></category>
		<category><![CDATA[числа]]></category>
		<category><![CDATA[элемент]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=512</guid>
		<description><![CDATA[Четные числа увеличить в 2 раза, а нечетные &#8212; уменьшить на min элемент Дан одномерный массив A(7). Получить массив B(7) такой, у которого Ai=Bi, четные числа и 0 увеличить в 2 раза, а нечетные &#8212; уменьшить на min элемент Private Sub Form_Load() Dim i As Integer, a(7) As Integer, b As Integer, min As Integer, [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/09/chetnye-chisla-uvelichit-v-2-raza/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Получить массив и в нем найти числа больше 7</title>
		<link>http://www.vbfaq.ru/2011/09/poluchit-massiv-i-v-nem-najti-chisla-bolshe-7/</link>
		<comments>http://www.vbfaq.ru/2011/09/poluchit-massiv-i-v-nem-najti-chisla-bolshe-7/#comments</comments>
		<pubDate>Wed, 21 Sep 2011 09:27:29 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Массив]]></category>
		<category><![CDATA[массив]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=493</guid>
		<description><![CDATA[Получить массив и в нем найти числа больше 7 Private Sub Command1_Click() Dim a() As Integer, I As Integer, J As Integer, k As Integer ReDim a(1 To 23, 1 To 43) k = 0 For I = 1 To 23 For J = 1 To 43 If I > J Then a(I, J) = [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/09/poluchit-massiv-i-v-nem-najti-chisla-bolshe-7/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Подсчитать число и сумму положительных элементов массива</title>
		<link>http://www.vbfaq.ru/2011/03/podschitat-chislo-polozhitelnyx-elementov/</link>
		<comments>http://www.vbfaq.ru/2011/03/podschitat-chislo-polozhitelnyx-elementov/#comments</comments>
		<pubDate>Wed, 16 Mar 2011 10:44:33 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Массив]]></category>
		<category><![CDATA[положительные]]></category>
		<category><![CDATA[элементы]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=484</guid>
		<description><![CDATA[Подсчитать число и сумму положительных элементов массива dim A(4) as integer 'Объявляем массив (из пяти элементов) Dim P As Integer 'количество положительных элементов Dim O As Integer 'количество отрицательных элементов Dim Sum as Double 'сумма Dim Pr as Double 'произведение Sum = 0 Pr = 1 A(0)=0 A(1)=1 A(2)=2 A(3)=3 A(4)=4 'перебираем весь массив For [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/03/podschitat-chislo-polozhitelnyx-elementov/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Определить количество значений отрицательных элементов массива</title>
		<link>http://www.vbfaq.ru/2011/03/opredelit-kolichestvo-otric-elementov/</link>
		<comments>http://www.vbfaq.ru/2011/03/opredelit-kolichestvo-otric-elementov/#comments</comments>
		<pubDate>Wed, 16 Mar 2011 10:40:05 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Массив]]></category>
		<category><![CDATA[количество]]></category>
		<category><![CDATA[определить]]></category>
		<category><![CDATA[отрицательные]]></category>
		<category><![CDATA[элементы]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=479</guid>
		<description><![CDATA[Определить количество значений отрицательных элементов массива Private Sub () Dim V() As Integer Dim K As Integer Dim P As Double Dim N, i As Integer N = InputBox("Введите число элементов массива") ' i = 1 'не обязательно ReDim V(1 To N) K = 0 P = 1 ' V(i) = Int(Rnd * 100) - [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/03/opredelit-kolichestvo-otric-elementov/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Напечатать в алфавитном порядке все звонкие согласные буквы</title>
		<link>http://www.vbfaq.ru/2011/02/vse-zvonkie-bukvy/</link>
		<comments>http://www.vbfaq.ru/2011/02/vse-zvonkie-bukvy/#comments</comments>
		<pubDate>Fri, 25 Feb 2011 04:33:15 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Массив]]></category>
		<category><![CDATA[алфавит]]></category>
		<category><![CDATA[алфавитный]]></category>
		<category><![CDATA[буквы]]></category>
		<category><![CDATA[звонкие]]></category>
		<category><![CDATA[напечатать]]></category>
		<category><![CDATA[порядок]]></category>
		<category><![CDATA[согласные]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=464</guid>
		<description><![CDATA[Напечатать в алфавитном порядке все звонкие согласные буквы Dim SLOV$() ' массив слов. без размера, размер определяется в программе Dim SOGL$(22) 'массив согласных букв Dim GL$(20) 'массив гласных букв Dim K_S(22) As Integer 'массив встретившихся согласных букв (кол-во букв) Dim K_GL(20) As Integer 'массив встретившихся гласных букв (кол-во букв) Dim N, NSL, NS, NG Dim [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/02/vse-zvonkie-bukvy/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Создать вектор, содержащий суммы элементов строк массива</title>
		<link>http://www.vbfaq.ru/2011/02/sozdat-vektor/</link>
		<comments>http://www.vbfaq.ru/2011/02/sozdat-vektor/#comments</comments>
		<pubDate>Fri, 25 Feb 2011 04:31:44 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Массив]]></category>
		<category><![CDATA[вектор]]></category>
		<category><![CDATA[массив]]></category>
		<category><![CDATA[матрица]]></category>
		<category><![CDATA[сортирока]]></category>
		<category><![CDATA[строка]]></category>
		<category><![CDATA[сумма]]></category>
		<category><![CDATA[убывание]]></category>
		<category><![CDATA[элемент]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=462</guid>
		<description><![CDATA[Создать вектор, содержащий суммы элементов строк массива Дана матрица A(2,2). Получить из нее вектор, содержащий суммы элементов строк. Отсортировать его в порядке убывания элементов. Создать подпрограмму для вычисления суммы элементов строк. Option Explicit Private Sub Form_Load() Dim i%, j%, m%, z%, Max% Dim A(5, 5) As Integer, B(5) As Integer, S1 As Integer, S2 As [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/02/sozdat-vektor/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как разделить строку на массив</title>
		<link>http://www.vbfaq.ru/2008/11/kak-razdelit-stroku-na-massiv/</link>
		<comments>http://www.vbfaq.ru/2008/11/kak-razdelit-stroku-na-massiv/#comments</comments>
		<pubDate>Wed, 12 Nov 2008 17:57:12 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Массив]]></category>
		<category><![CDATA[Строки]]></category>
		<category><![CDATA[scrollbar]]></category>
		<category><![CDATA[trim]]></category>
		<category><![CDATA[разделение]]></category>
		<category><![CDATA[функции]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=85</guid>
		<description><![CDATA[Как разделить строку на массив? Один из читателей &#8212; Ринат, попросил помочь ему и навести на мысль при написании программы обработки большого фрагмента текста. Так что с удовольствием помогу и приведу не большой кусок кода, который позволит разделить строку на массив и далее оперировать с элементами массива. В исходных данных такая строка: спасите &#038; помогите [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/11/kak-razdelit-stroku-na-massiv/feed/</wfw:commentRss>
		<slash:comments>4</slash:comments>
		</item>
		<item>
		<title>Автоматическое заполнение массива</title>
		<link>http://www.vbfaq.ru/2008/10/avtomaticheskoe-zapolnenie-massiva/</link>
		<comments>http://www.vbfaq.ru/2008/10/avtomaticheskoe-zapolnenie-massiva/#comments</comments>
		<pubDate>Fri, 17 Oct 2008 05:03:28 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Массив]]></category>
		<category><![CDATA[автоматически]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=47</guid>
		<description><![CDATA[Как автоматически заполнить массив? Option Explicit Dim bytA(1 To 5) As Byte Dim I As Byte Private Sub Command1_Click() Label1.Caption = "" For I = 1 To 5 bytA(I) = Int(Rnd * 5) 'Массив выводим в метку для наглядности примера Label1.Caption = Label1.Caption &#038; vbCrLf &#038; bytA(I) Next I End Sub Private Sub Form_Load() Label1.Caption [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/10/avtomaticheskoe-zapolnenie-massiva/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

