<?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/matrica/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/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>Как заполнить матрицу в Visual Basic</title>
		<link>http://www.vbfaq.ru/2011/01/kak-zapolnit-matricu-v-visual-basic/</link>
		<comments>http://www.vbfaq.ru/2011/01/kak-zapolnit-matricu-v-visual-basic/#comments</comments>
		<pubDate>Sat, 15 Jan 2011 07:49:37 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Арифметика]]></category>
		<category><![CDATA[заполнение]]></category>
		<category><![CDATA[матрица]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=446</guid>
		<description><![CDATA[Как заполнить матрицу в Visual Basic Dim Matrix(1 To 4, 1 To 4) as Integer, i as Integer, j As integer Dim D as Integer For i=1 To 4 If I Mod 2 Then D=2 Else D=0 For j=1 To 4 Matrix(i,j)=D Nexi j Next i]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/01/kak-zapolnit-matricu-v-visual-basic/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Заполнить двумерную квадратную матрицу</title>
		<link>http://www.vbfaq.ru/2009/12/zapolnit-dvumernuyu-kvadratnuyu-matricu-3/</link>
		<comments>http://www.vbfaq.ru/2009/12/zapolnit-dvumernuyu-kvadratnuyu-matricu-3/#comments</comments>
		<pubDate>Wed, 23 Dec 2009 04:00:30 +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=388</guid>
		<description><![CDATA[Заполнить двумерную квадратную матрицу k=1 For i=1 To n For j = 1 To n A(i, j) = k k = k + 1 Next Next]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/12/zapolnit-dvumernuyu-kvadratnuyu-matricu-3/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Заполнить двумерную квадратную матрицу</title>
		<link>http://www.vbfaq.ru/2009/12/zapolnit-dvumernuyu-kvadratnuyu-matricu-2/</link>
		<comments>http://www.vbfaq.ru/2009/12/zapolnit-dvumernuyu-kvadratnuyu-matricu-2/#comments</comments>
		<pubDate>Tue, 22 Dec 2009 04:00: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=386</guid>
		<description><![CDATA[Заполнить двумерную квадратную матрицу Private Sub Command1_Click() Dim A() As Integer, i As Integer, j As Integer, n As Integer n = InputBox("Введите размерность матрицы") If n < 2 Then MsgBox "Недопустимое значение": Exit Sub ReDim A(n, n) For i = 1 To n Print For j = 1 To n If i = 1 [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/12/zapolnit-dvumernuyu-kvadratnuyu-matricu-2/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Заполнить двумерную квадратную матрицу</title>
		<link>http://www.vbfaq.ru/2009/12/zapolnit-dvumernuyu-kvadratnuyu-matricu/</link>
		<comments>http://www.vbfaq.ru/2009/12/zapolnit-dvumernuyu-kvadratnuyu-matricu/#comments</comments>
		<pubDate>Mon, 21 Dec 2009 04:00:04 +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=384</guid>
		<description><![CDATA[Заполнить двумерную квадратную матрицу Private Sub Form_Load() Dim A() As Integer N = 7 'РАЗМЕР МАТРИЦЫ ReDim A(N, N) For Y = 1 To N For X = 1 To N A(X, Y) = X + (Y - 1) * N 'ВОТ И ВСЯ ФОРМУЛА Print A(X, Y), Next X Print Next Y End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/12/zapolnit-dvumernuyu-kvadratnuyu-matricu/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Заполнить в памяти матрицу В размерности m на n</title>
		<link>http://www.vbfaq.ru/2009/12/zapolnit-v-pamyati-matricu-v-razmernosti-m-na-n-2/</link>
		<comments>http://www.vbfaq.ru/2009/12/zapolnit-v-pamyati-matricu-v-razmernosti-m-na-n-2/#comments</comments>
		<pubDate>Sun, 20 Dec 2009 04:00: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=382</guid>
		<description><![CDATA[Заполнить в памяти матрицу В размерности m на n Заполнить в памяти ЭВМ матрицу В размерности m*n так, чтобы каждый элемент был равен сумме его индексов строки и столбца. Полученную матрицу напечатать. Проанализировать выполнение программы на примере m=3, n=4. Dim MaxI As Integer, i As Integer Dim MaxJ As Integer, j As Integer MaxI = [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/12/zapolnit-v-pamyati-matricu-v-razmernosti-m-na-n-2/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Заполнить в памяти матрицу В размерности m на n</title>
		<link>http://www.vbfaq.ru/2009/12/zapolnit-v-pamyati-matricu-v-razmernosti-m-na-n/</link>
		<comments>http://www.vbfaq.ru/2009/12/zapolnit-v-pamyati-matricu-v-razmernosti-m-na-n/#comments</comments>
		<pubDate>Sat, 19 Dec 2009 04:50:12 +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=380</guid>
		<description><![CDATA[Заполнить в памяти матрицу В размерности m на n Заполнить в памяти ЭВМ матрицу В размерности m*n так, чтобы каждый элемент был равен сумме его индексов строки и столбца. Полученную матрицу напечатать. Проанализировать выполнение программы на примере m=3, n=4. Private Sub Command1_Click() For i = 1 To MSFlexGrid1.Cols For t = 1 To MSFlexGrid1.Rows MSFlexGrid1.TextMatrix(t [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/12/zapolnit-v-pamyati-matricu-v-razmernosti-m-na-n/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Вычислить сумму элементов матрицы В(20,20)</title>
		<link>http://www.vbfaq.ru/2009/12/vychislit-summu-elementov-matricy-v2020/</link>
		<comments>http://www.vbfaq.ru/2009/12/vychislit-summu-elementov-matricy-v2020/#comments</comments>
		<pubDate>Wed, 09 Dec 2009 04:00:52 +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=358</guid>
		<description><![CDATA[Вычислить сумму элементов матрицы В(20,20) Private Sub Command1_Click() Dim B(1 To 20, 1 To 20) As Integer m = o For i = 1 To 20 For j = 1 To 20 B(i, j) = Rnd * 20 + 1 If j > i Then m = m + B(i, j) Print B(i, j); Next [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/12/vychislit-summu-elementov-matricy-v2020/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>В матрице n умноженное на n найти все числа кратные 3</title>
		<link>http://www.vbfaq.ru/2009/11/v-matrice-n-umnozhennoe-na-n-najti-vse-chisla-kratnye-3/</link>
		<comments>http://www.vbfaq.ru/2009/11/v-matrice-n-umnozhennoe-na-n-najti-vse-chisla-kratnye-3/#comments</comments>
		<pubDate>Fri, 20 Nov 2009 04:00:19 +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=317</guid>
		<description><![CDATA[В матрице n умноженное на n найти все числа кратные 3 For I=1 to N For J=1 to N If A(I,J) mod 3 =0 then MsgBox "A(" &#038; I &#038; "," &#038; J &#038; ")=" &#038; A(I,J) end if Next Next]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/11/v-matrice-n-umnozhennoe-na-n-najti-vse-chisla-kratnye-3/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

