<?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/tag/poryadok/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>Напечатать в алфавитном порядке все звонкие согласные буквы</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/2010/01/izmenit-poryadok-sledovaniya-elementov-v-massive-na-obratnyj-2/</link>
		<comments>http://www.vbfaq.ru/2010/01/izmenit-poryadok-sledovaniya-elementov-v-massive-na-obratnyj-2/#comments</comments>
		<pubDate>Mon, 11 Jan 2010 04:00:55 +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>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=403</guid>
		<description><![CDATA[Изменить порядок следования элементов в массиве на обратный Dim A(n) As Integer Private Sub Command1_Click() Dim buf As Integer y = Int(UBound(A)) / 2 For x = 0 To UBound(A) If x < y Then buf = A(x) A(x) = A(UBound(A) - x) A(UBound(A) - x) = buf End If Next x End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2010/01/izmenit-poryadok-sledovaniya-elementov-v-massive-na-obratnyj-2/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Изменить порядок следования элементов в массиве на обратный</title>
		<link>http://www.vbfaq.ru/2010/01/izmenit-poryadok-sledovaniya-elementov-v-massive-na-obratnyj/</link>
		<comments>http://www.vbfaq.ru/2010/01/izmenit-poryadok-sledovaniya-elementov-v-massive-na-obratnyj/#comments</comments>
		<pubDate>Fri, 08 Jan 2010 04:00:05 +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>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=400</guid>
		<description><![CDATA[Изменить порядок следования элементов в массиве на обратный Const N=10 Dim Z as double Dim A(1 to N) as Double Sub NNN() Dim I as integer For I=1 to N\2 Z=A(I) A(I)=A(Ubound(A)-I+1) A(Ubound(A)-I+1)=Z Next End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2010/01/izmenit-poryadok-sledovaniya-elementov-v-massive-na-obratnyj/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

