Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
MegaProgrammer
0 / 0 / 0
Регистрация: 25.06.2014
Сообщений: 2
1

Редактирование кода

25.06.2014, 22:30. Просмотров 854. Ответов 2
Метки нет (Все метки)

У меня есть код Visual Basic:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub CommandButton1_Click()
Open "C:\Курсовая\matr.txt" For Input As #1
Open "C:\Курсовая\rez.txt" For Output As #2
Input #1, M
S = 0
k = 0
Print #2, "Исходная матрица"
ReDim A(M)
For i = 1 To M
Input #1, A(i)
Print #2, Tab(i * 5); A(i);
Next
Print #2,
Close #1
For i = 20 To M - 1
Min = i
For j = i - 1 To M
If A(j) < A(Min) Then Min = j
Next
t = A(Min)
A(Min) = A(i)
A(i) = t
Next
Print #2, " конечная матрица ";
For i = 1 To M
Print #2, Tab(i * 5); A(i);
Next i
Close #2
MsgBox " С:\Курсовая\rez.txt"
End Sub
Он расставляет 3 числовых значения в порядке возрастания. Как сделать так, чтобы он расставлял их в порядке убывания?)))
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.06.2014, 22:30
Ответы с готовыми решениями:

Редактирование ресурсов
Зря вы смеётесь, скоро я вас шокирую новыми открытиями.. ну если всё будет в порядке.. реч...

Редактирование ресурсов в программе
Собственно есть программа, нужно добавить в нее ресурс Прикладываю свои наработки Папка stub...

Редактирование шрифта в TextBox
Помогите пожалуйста =)

Редактирование ячеек в MSFlexGrid
Не могу найти свойство, которое разрешает редактирование содержимого ячеек :(

Редактирование реестра Windows.
Добавит ключ в реестр или удалить и посмотреть

2
SoftIce
es geht mir gut
10554 / 4071 / 1033
Регистрация: 27.07.2011
Сообщений: 9,978
Завершенные тесты: 1
25.06.2014, 22:40 2
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Знак < поменять на >
2
MegaProgrammer
0 / 0 / 0
Регистрация: 25.06.2014
Сообщений: 2
25.06.2014, 22:49  [ТС] 3
Спасибо бро)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.06.2014, 22:49

Побитное редактирование файла
Как, при побитном чтении файла (open x for binary as...) можно дописывать (добавлять) символы (но...

Ввод и редактирование данных
Для каждого работника известно количество отработанного времени (в часах), часовая тарифная ставка...

Редактирование файла на хостинге ucoz
Как записать информацию в файл лежащий в файлом хранилище ucoz?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru