Microsoft Visual Basic

[-000-]

Подскажите как написать программу на Microsoft Visual Basic:
Мне надо всего навсего упорядочить 3 числа по возростанию!!!
Заранее благодарен!!!

[Naeel Maqsudov]

Запускаем MVB. Делаем New Project, выбирая "Standard EXE".

Нарисуем на форме Form1 три элемента TextBox и одну кнопку CommandButton.

По двойному щелчку на кнопке откроется редактор программного модуля с текстом

Код: Выделить всё

Private Sub Command1_Click()

End Sub

Тут и вписываем все что нужно. Полный текст модкля может быть таким:

Код: Выделить всё

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.
Есть много способов решить эту задачу.

[-000-]

А как мне сделать так чтобы отсортированные числа по возростанию, пререшли в новые окошк(TextBox)?
И если чисел будет не 3 а 9,? Есть какаянибудь общая формула?

[Naeel Maqsudov]

чтобы отсортированные числа по возростанию, пререшли в новые окошк(TextBox)?

Ну, надо эти новые окошки создать, и переделать последние 3 строчки:

Код: Выделить всё

  Text4.Text = a 
  Text5.Text = b 
  Text6.Text = c 

И если чисел будет не 3 а 9,? Есть какаянибудь общая формула?

Есть не формула, а как минимум три основных алгоритма сортировки элементов массива, причем каждый с кучей модификаций. Самый простой - "Метод "пузырька"". Поищите на любом поисковике "алгоритм сортировки методом пузырька Basic". Наверняка найдется куча примеров.