CHill60
Судя по внешнему виду вашего кода, Вы пытаетесь пузырьковая сортировка[^]
Первое, что нужно сделать, это поместить вашу строку в массив символов - строго говоря, вы этого не делаете иметь чтобы сделать это, но это облегчит чтение остальной части кода. Что-то вроде этого:
ReDim chars(strlength - 1) As String
For i = 1 To strlength
chars(i - 1) = Mid$(str, i, 1)
Next
После этого ваша попытка не слишком далека от цели, за исключением того, что вам нужно смотреть и менять местами фактические символы, а не счетчики циклов.
Напр.
If chars(i) > chars(j) Then
TempValue = chars(j)
etc...
Поскольку это, очевидно, домашнее задание, я не собираюсь давать вам полный код - попробуйте сами с этой дополнительной информацией ... но я дам тебе один намек:
For j=0 to strlength-1
...0, что неверно. Проверьте документацию по ссылке, которую я вам дал, чтобы узнать, какой она должна быть.
Member 13107348
спасибо за ответ, на самом деле я изучаю vbscript, вот почему я попросил код..все еще не могу понять
CHill60
Вы посмотрели на ссылку, которую я вам предоставил? В самом первом пункте этой ссылки?
Чуть дальше находится ссылка на Викибуки. Оба они дают полный код. Этот второй пункт дает полное объяснение алгоритма.
Member 13107348
Вы говорите о ссылке сортировки пузырьков, после нажатия на которую мы перейдем на страницу google, пожалуйста, дайте мне знать, если я ошибаюсь
CHill60
Я уже говорил тебе, как обращаться с твоей веревкой! Поместите символы в массив - в соответствии с моим решением. Отсортировать этот массив. Сложите символы обратно в цепочку.
Вам никогда не дадут точного решения всех ваших проблем-научитесь экстраполировать.