Страница 1 из 1
Microsoft Visual Basic
Добавлено: 10 июн 2004, 23:37
-000-
Подскажите как написать программу на Microsoft Visual Basic:
Мне надо всего навсего упорядочить 3 числа по возростанию!!!
Заранее благодарен!!!
Добавлено: 11 июн 2004, 07:24
Naeel Maqsudov
Запускаем MVB. Делаем New Project, выбирая "Standard EXE".
Нарисуем на форме Form1 три элемента TextBox и одну кнопку CommandButton.
По двойному щелчку на кнопке откроется редактор программного модуля с текстом
Тут и вписываем все что нужно. Полный текст модкля может быть таким:
Код: Выделить всё
Private Sub Exchange(ByRef x As Double, ByRef y As Double)
Dim temp As Double
temp = x
x = y
y = temp
End Sub
Private Sub Command1_Click()
Dim a As Double, b As Double, c As Double
a = Text1.Text
b = Text2.Text
c = Text3.Text
If a > b Then Exchange a, b
If c < b Then Exchange c, b
If a > b Then Exchange a, b
Text1.Text = a
Text2.Text = b
Text3.Text = c
End Sub
P.S.
Есть много способов решить эту задачу.
Добавлено: 11 июн 2004, 13:25
-000-
А как мне сделать так чтобы отсортированные числа по возростанию, пререшли в новые окошк(TextBox)?
И если чисел будет не 3 а 9,? Есть какаянибудь общая формула?
Добавлено: 15 июн 2004, 00:33
Naeel Maqsudov
чтобы отсортированные числа по возростанию, пререшли в новые окошк(TextBox)?
Ну, надо эти новые окошки создать, и переделать последние 3 строчки:
Код: Выделить всё
Text4.Text = a
Text5.Text = b
Text6.Text = c
И если чисел будет не 3 а 9,? Есть какаянибудь общая формула?
Есть не формула, а как минимум три основных алгоритма сортировки элементов массива, причем каждый с кучей модификаций. Самый простой - "Метод "пузырька"". Поищите на любом поисковике "алгоритм сортировки методом пузырька Basic". Наверняка найдется куча примеров.