Сортировка(Visual basik)

[mikelugansk]

Дабы не засорять форум кучей тем, я создал одну двумя задачами. Помогите пожалуйста, я к сожалению не понимаю.

1. Упорядочить строки матрицы D(m, n) лексикографически по неубыванию первых k элементов строки.
2. Упорядочить строки матрицы К(m,n), содержащей натуральные числа, по возрастанию суммы цифр в десятичной системе счисления, используемых для записи элементов строки.

[fimaxe]

через функцию HEX мути, или как она там так проще всего

[Serge_Bliznykov]

Сообщение от fimaxe

через функцию HEX мути, или как она там так проще всего

ОМГ! А это за что ужас?! При чём здесь HEX ?!
fimaxe, Вы пишете для того, что лишь бы написать что-нибудь?!
Это называется ФЛУДОМ и запрешено на форуме (за это легко можно схлопотать штраф!)
Не путайте, пожалуйста, форум с чатом!
Есть что сказать ПО ДЕЛУ - пишите.
А ваши домыслы и рефлексию публиковать не стоит.

[challengerr]

Задание 1 ( VBSE, сохраняется как файл с расширением vbs и выполняется непосредственно после запуска файла)

dim D
dim L

' ввод размерностей матрицы
m = inputbox("m-?")
n = inputbox("n-?")

redim D(m,n)
redim L(m)

' ввод матрицы
for i = 1 to m step 1 'строки
for j = 1 to n step 1 'столбцы
D(i,j) =  inputbox("D("&i&","&j&")-?")
next
next


' количество неубывающих элементов

for i = 1 to m step 1
L(i) = 1
next

'

u1 = 0

for i = 1 to m step 1 'строки
for j = 2 to n step 1 'столбцы
if u1 = 0 and D(i, j) >= D(i, j-1) then
L(i) = j
else
u1 = 1
end if
next
u1 = 0
next

' вывод начальной матрицы
s = ""

for i = 1 to m step 1
for j = 1 to n step 1
s = s & D(i,j) & " "
next
s = s &  vbcrlf
next

s = s &  vbcrlf


' сортировка матрицы


for i = 1 to m step 1
for j = i+1 to n-1 step 1
 if L(j) < L(i) then
  for k = 1 to n step 1
   tmp = D(i, k)
   D(i, k) = D(j, k)
   D(j, k) = tmp
  next
 end if
next
next




' вывод конечной матрицы

for i = 1 to m step 1
for j = 1 to n step 1
s = s & D(i,j) & " "
next
s = s &  vbcrlf
next

s = s &  vbcrlf

msgbox s

[mikelugansk]

Не работает, все параметры по описывал и выдает ошибку

s = ""

в этой строке

s = s & D(i,j) & " "

и в этой строке.
Если не сложно, то пришли сам фаил пожалуйста

[challengerr]

Вам на каком Visual Basicе надо? Есть скриптовый бейсик, есть бейсик встроенный в Office (Visual Basic for Applications (VBA)) , есть Visual Basic 6, Visual Basic .NET и др. Тот вариант, который я представил написан на скриптовом Visual Basic то есть на Visual Basic Script. Visual Basic Script в операционной системе Windows запускается после двойного щелчка мыши как файл с расширением .vbs. У Visual Basic. NET и Visual Basic 6 расширение файлов .vb . VBS может использоваться на HTML страницах в качестве альтернативы JavaScript-у посредством использования внутри тэгов <SCRIPT> и </SCRIPT>.

[mikelugansk]

Visual Basic 6

[challengerr]

По поводу такого варианта что говорит компилятор?

dim D(,) as long
dim L() as long
dim s as string
dim i as long
dim j as long
dim m as long
dim n as long
dim u1 as long

' ввод размерностей матрицы
m = inputbox("m-?")
n = inputbox("n-?")

redim D(m,n)
redim L(m)

' ввод матрицы
for i = 1 to m step 1 'строки
for j = 1 to n step 1 'столбцы
D(i,j) =  inputbox("D("&i&","&j&")-?")
next
next


' количество неубывающих элементов

for i = 1 to m step 1
L(i) = 1
next

'

u1 = 0

for i = 1 to m step 1 'строки
for j = 2 to n step 1 'столбцы
if u1 = 0 and D(i, j) >= D(i, j-1) then
L(i) = j
else
u1 = 1
end if
next
u1 = 0
next

' вывод начальной матрицы
s = ""

for i = 1 to m step 1
for j = 1 to n step 1
s = s & D(i,j) & " "
next
s = s &  vbcrlf
next

s = s &  vbcrlf


' сортировка матрицы


for i = 1 to m step 1
for j = i+1 to n-1 step 1
 if L(j) < L(i) then
  for k = 1 to n step 1
   tmp = D(i, k)
   D(i, k) = D(j, k)
   D(j, k) = tmp
  next
 end if
next
next




' вывод конечной матрицы

for i = 1 to m step 1
for j = 1 to n step 1
s = s & D(i,j) & " "
next
s = s &  vbcrlf
next

s = s &  vbcrlf

msgbox s

[mikelugansk]

Компилятор? нет к сожалению. Он переделывает код?

[challengerr]

Visual Basic Script (VBS) является интерпретируемым языком, который выполняется непосредственно без компиляции.

Visual Basic 6 и Visual Basic .NET являются компилируемыми языками, которые требуют среды разработки для преобразования исходного кода в исполняемый код (т.е. в exe) Visual Basic 6 входит в состав Visual Studio 6.0 вышедшей в 1998 году. Платформе .NET в этом году будет 11 лет, так как она была представлена в 2002 году.