<?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</title>
	<atom:link href="http://www.vbfaq.ru/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>Кривая Коха &#8212; как правильно построить рекурсию</title>
		<link>http://www.vbfaq.ru/2011/09/kak-pravilno-postroit-rekursiyu/</link>
		<comments>http://www.vbfaq.ru/2011/09/kak-pravilno-postroit-rekursiyu/#comments</comments>
		<pubDate>Wed, 21 Sep 2011 11:59:57 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Арифметика]]></category>
		<category><![CDATA[Кривая Коха]]></category>
		<category><![CDATA[рекурсия]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=510</guid>
		<description><![CDATA[Кривая Коха &#8212; как правильно построить рекурсию Private Sub Command1_Click() Cls Kohh Text1.Text, 0, Me.ScaleHeight - 10 * Screen.TwipsPerPixelY, _ Me.ScaleWidth, Me.ScaleHeight - 10 * Screen.TwipsPerPixelY End Sub Private Sub Kohh(NumIt As Integer, x1&#038;, y1&#038;, x2&#038;, y2&#038;) If NumIt = 1 Or (x1 \ Screen.TwipsPerPixelX = x2 \ Screen.TwipsPerPixelX And y1 \ Screen.TwipsPerPixelY = y2 [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/09/kak-pravilno-postroit-rekursiyu/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Кривая Коха &#8212; как правильно построить рекурсию</title>
		<link>http://www.vbfaq.ru/2011/09/krivaya-koxa-kak-pravilno-postroit-rekursiyu/</link>
		<comments>http://www.vbfaq.ru/2011/09/krivaya-koxa-kak-pravilno-postroit-rekursiyu/#comments</comments>
		<pubDate>Wed, 21 Sep 2011 11:59:25 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Арифметика]]></category>
		<category><![CDATA[Кривая Коха]]></category>
		<category><![CDATA[рекурсия]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=508</guid>
		<description><![CDATA[Кривая Коха &#8212; как правильно построить рекурсию Option Explicit Dim L, h, xstart, ystart, xend, yend As Double Dim level As Integer Private Sub scaling(xstart, ystart, xend, yend) Picture1.Scale (-xstart, xstart)-(xstart, -xstart) Picture1.DrawWidth = 2 End Sub Private Sub Command1_Click() xstart = -10: ystart = 0: xend = 10: yend = 0: level = Val(Text1.Text) [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/09/krivaya-koxa-kak-pravilno-postroit-rekursiyu/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Сформировать вектор содержащий диагональные элементы матрицы</title>
		<link>http://www.vbfaq.ru/2011/09/sformirovat-vektor/</link>
		<comments>http://www.vbfaq.ru/2011/09/sformirovat-vektor/#comments</comments>
		<pubDate>Wed, 21 Sep 2011 11:58:09 +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=506</guid>
		<description><![CDATA[Сформировать вектор содержащий диагональные элементы матрицы Dim i As Integer, j As Integer, m As Integer, z As Integer, Max As Integer Dim A(6, 6) As Integer, B(6) As Integer Private Sub Command1_Click() ' построение матрицы For i = 0 To 5 For j = 0 To 5 A(i, j) = Int(8 * Rnd + [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/09/sformirovat-vektor/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Указать сколько раз встречается буквенное сочетание</title>
		<link>http://www.vbfaq.ru/2011/09/ukazat-skolko-raz/</link>
		<comments>http://www.vbfaq.ru/2011/09/ukazat-skolko-raz/#comments</comments>
		<pubDate>Wed, 21 Sep 2011 11:56:36 +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=504</guid>
		<description><![CDATA[Указать сколько раз встречается буквенное сочетание Private Sub Command1_Click() Dim i As Long, j As Long Dim StText As String, StrTemp As String StText = Text1.Text StrTemp = Text2.Text For i = 1 To Len(StText) If UCase(Mid(StText, i, Len(StrTemp))) = UCase(StrTemp) Then j = j + 1 Next MsgBox "количество буквенных сочетаний ''" &#038; StrTemp [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/09/ukazat-skolko-raz/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3</title>
		<link>http://www.vbfaq.ru/2011/09/najti-summu-3/</link>
		<comments>http://www.vbfaq.ru/2011/09/najti-summu-3/#comments</comments>
		<pubDate>Wed, 21 Sep 2011 11:55:15 +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=502</guid>
		<description><![CDATA[Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3 For x = 21 to x = 99 step 3 itog = itog + x Next x]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/09/najti-summu-3/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3</title>
		<link>http://www.vbfaq.ru/2011/09/najti-summu-2/</link>
		<comments>http://www.vbfaq.ru/2011/09/najti-summu-2/#comments</comments>
		<pubDate>Wed, 21 Sep 2011 11:54:43 +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=500</guid>
		<description><![CDATA[Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3 For i = 0 To x ' x - кол-во чисел всего, а num(i) = масив ваших чисел If num(i) > 20 And num(i) < 100 And num(i) = Int(num(i)) And (num(i) Mod 3) = 0 Then ' проверка Sum = Sum + [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/09/najti-summu-2/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3</title>
		<link>http://www.vbfaq.ru/2011/09/najti-summu/</link>
		<comments>http://www.vbfaq.ru/2011/09/najti-summu/#comments</comments>
		<pubDate>Wed, 21 Sep 2011 11:53: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=497</guid>
		<description><![CDATA[Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3 For i = 0 To x ' x - кол-во чисел всего, а num(i) = масив ваших чисел If num(i) > 0 And num(i) > 20 And num(i) < 100 And num(i) = Int(num(i)) And num(i) / 3 = Int(num(i) / 3) Then [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/09/najti-summu/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Определения принадлежности точек полигону</title>
		<link>http://www.vbfaq.ru/2011/09/opredeleniya-prinadlezhnosti-tochek-poligonu/</link>
		<comments>http://www.vbfaq.ru/2011/09/opredeleniya-prinadlezhnosti-tochek-poligonu/#comments</comments>
		<pubDate>Wed, 21 Sep 2011 09:28:55 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Задачи]]></category>
		<category><![CDATA[полигон]]></category>
		<category><![CDATA[точка]]></category>
		<category><![CDATA[цвет]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=495</guid>
		<description><![CDATA[Определения принадлежности точек полигону Как идея: закрашивать полигон цветом, а потом проверять цвет точки - если равна цвету полигона, то принадлежит, если нет - не принадлежит. Option Explicit Private Type COORD X As Long Y As Long End Type Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/09/opredeleniya-prinadlezhnosti-tochek-poligonu/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>
	</channel>
</rss>

