Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
21
Добавлен:
11.04.2015
Размер:
20.99 Кб
Скачать

Private Sub Command1_Click()

Dim x As Single, y As Single

x = Val(Text1.Text)

y = Val(Text2.Text)

If x < 0 And y < 0 Then

x = Abs(x)

y = Abs(y)

Else

If Not (x > 0 And y > 0) Then

x = x + 0.5

y = y + 0.5

End If

End If

Label3.Caption = Str(x)

Label4.Caption = Str(y)

End Sub

Соседние файлы в папке 8 VB