<?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/zadachi/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/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>Определения принадлежности точек полигону</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>Функция возвращает количество заглавных русских букв в строке</title>
		<link>http://www.vbfaq.ru/2011/03/funkciya-vozvrashhaet-kolichestvo-bukv-v-stroke/</link>
		<comments>http://www.vbfaq.ru/2011/03/funkciya-vozvrashhaet-kolichestvo-bukv-v-stroke/#comments</comments>
		<pubDate>Wed, 16 Mar 2011 10:49:01 +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=488</guid>
		<description><![CDATA[Функция возвращает количество заглавных русских букв в строке Public Function GetQuantity(ByVal strText As String) As Long Dim i As Long Dim lngQuantity As Long Dim intTempCharCode As Integer lngQuantity = 0 For i = 1 To Len(strText) Step 1 intTempCharCode = Asc(Mid(strText, i, 1)) If intTempCharCode >= 192 And intTempCharCode < = 223 Then lngQuantity [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/03/funkciya-vozvrashhaet-kolichestvo-bukv-v-stroke/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Определить день недели</title>
		<link>http://www.vbfaq.ru/2011/03/opredelit-den-nedeli-2/</link>
		<comments>http://www.vbfaq.ru/2011/03/opredelit-den-nedeli-2/#comments</comments>
		<pubDate>Wed, 16 Mar 2011 10:45:24 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Задачи]]></category>
		<category><![CDATA[день]]></category>
		<category><![CDATA[неделя]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=486</guid>
		<description><![CDATA[Определить день недели Определить день недели Private Sub Command1_Click() Dim b As Integer Dim otvet As String b = Text1.Text Select Case Combo1.ListIndex Case 0 b = (b - 1) Mod 7 otvet = Combo1.List(b) MsgBox otvet Case 1 b = (b - 0) Mod 7 otvet = Combo1.List(b) MsgBox otvet Case 2 b = [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/03/opredelit-den-nedeli-2/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Определить, является ли дробь периодической</title>
		<link>http://www.vbfaq.ru/2011/03/opredelit-yavlyaetsya-li-drob-periodicheskoj/</link>
		<comments>http://www.vbfaq.ru/2011/03/opredelit-yavlyaetsya-li-drob-periodicheskoj/#comments</comments>
		<pubDate>Wed, 16 Mar 2011 10:41: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=481</guid>
		<description><![CDATA[Определить, является ли дробь периодической Private Function RoundDigit(digit As Double) As Integer If (digit - Int(digit) > 0) Then RoundDigit = Int(digit) + 1 Else RoundDigit = Int(digit) End If End Function Private Function splitstr(ByVal str As String, ByVal lenght As Integer) As String() Dim arr() As String Dim s As String ReDim arr(RoundDigit(Len(str) / [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/03/opredelit-yavlyaetsya-li-drob-periodicheskoj/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Определить впишется ли треугольник в окружность</title>
		<link>http://www.vbfaq.ru/2011/03/opredelit-vpishetsya-li-treugolnik-v-okruzhnost/</link>
		<comments>http://www.vbfaq.ru/2011/03/opredelit-vpishetsya-li-treugolnik-v-okruzhnost/#comments</comments>
		<pubDate>Wed, 16 Mar 2011 10:38:00 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Задачи]]></category>
		<category><![CDATA[окружность]]></category>
		<category><![CDATA[треугольник]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=477</guid>
		<description><![CDATA[Определить впишется ли треугольник в окружность Dim R As Integer R = (TextBox1.Text * Sqr(3)) / 3 If TextBox2.Text > R Then Label1.Caption = "Треугольник поместится" End If If TextBox2.Text < R Then Label1.Caption = "Треугольник не поместится" End If]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/03/opredelit-vpishetsya-li-treugolnik-v-okruzhnost/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Выполнить перерасчет зарплаты, увеличив ее на 10%</title>
		<link>http://www.vbfaq.ru/2010/02/pereraschet-zarplaty/</link>
		<comments>http://www.vbfaq.ru/2010/02/pereraschet-zarplaty/#comments</comments>
		<pubDate>Sun, 21 Feb 2010 10:40:39 +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=416</guid>
		<description><![CDATA[Выполнить перерасчет зарплаты, увеличив ее на 10% Имеются данные о зарплате работников фирмы из N человек. Выполнить перерасчет зарплаты, увеличив ее на 10%. Private Type qFormat qName As String s As Currency End Type Private Sub Command1_click() Dim i As Integer, n As Integer i = Val(InputBox("Введите кол-во сотрудников")) If i = 0 Then Exit [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2010/02/pereraschet-zarplaty/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Вывести наименьшее из трех чисел</title>
		<link>http://www.vbfaq.ru/2010/02/naimenshee-iz-trex-chisel/</link>
		<comments>http://www.vbfaq.ru/2010/02/naimenshee-iz-trex-chisel/#comments</comments>
		<pubDate>Sun, 21 Feb 2010 10:39:42 +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=414</guid>
		<description><![CDATA[Вывести наименьшее из трех чисел a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a < b Then min = a Else min = b If c < min Then min = c Label1.Caption = min]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2010/02/naimenshee-iz-trex-chisel/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>
	</channel>
</rss>

