Naeel Maqsudov » 11 июн 2004, 07:24
Запускаем 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.
Есть много способов решить эту задачу.
Запускаем MVB. Делаем New Project, выбирая "Standard EXE".
Нарисуем на форме Form1 три элемента TextBox и одну кнопку CommandButton.
По двойному щелчку на кнопке откроется редактор программного модуля с текстом
[code]
Private Sub Command1_Click()
End Sub
[/code]
Тут и вписываем все что нужно. Полный текст модкля может быть таким:
[code]
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
[/code]
P.S.
Есть много способов решить эту задачу.