задача на Visual Basic

[marina_lk]

Задачата е следната:

Дадена е квадратна матрица NxN. Да се запълни със стойности от клавиатурата и след това елементите на матрицата да се поставят в ListBox, разгърнати по колони, нечетните колони отгоре-надолу, четните отдолу-нагоре.

[crio]

Това е една наистина интересна задача.

Създай един NumericUpDown контрол, един Button и един ListBox. Остави имената по подразбиране. И копирай следния код в събитието Button1_Click:

Dim arr(1, 1) As Integer, N As Integer, X As Integer, Y As Integer, line As String

	'// ИЗЧИСТВАНЕ НА N
	ListBox1.Items.Clear()

	'// ПРЕОРАЗМЕРЯВАНЕ НА ДВУМЕРНИЯ МАСИВ (МАТРИЦАТА) СПОРЕД СТОЙНОСТТА НА "N"
	N = NumericUpDown1.Value
	ReDim arr(N, N)

	'// ДАВАНЕ НА СТОЙНОСТИ НА ВСИЧКИ ЕЛЕМЕНТИ ОТ МАТРИЦАТА.
	For X = 0 To N - 1
		For Y = 0 To N - 1
			arr(X, Y) = Val(InputBox("Стойност за Array(" & X.ToString & "," & Y.ToString & "):"))
		Next
	Next

	For X = 0 To N - 1
		line = ""
		For Y = 0 To N - 1
			If Y Mod 2 = 0 Then 'ЧЕТНА ЛИ Е КОЛОНАТА.
				line = line & arr((N - 1) - X, Y) & Chr(9)
			Else 'КОЛОНАТА Е НЕЧЕТНА.
				line = line & arr(X, Y) & Chr(9)
			End If
		Next
		ListBox1.Items.Add(line)
	Next

 

Ето и моя вариант на програмата:

Matrix_NxN.rar