Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабораторки по информатике / 8 VB / Private Sub Command1
.doc
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