Как знак перпендикулярности написать? - VB

Формулировка задачи:

как написать код чтобы если сторона а сторона б и сторона ц если а и б перпендикулярны? Как знак перпендикулярности написать?

Решение задачи: «Как знак перпендикулярности написать?»

textual
                            Листинг программы 
                        

                            Option Explicit
Private Declare Function TextOut Lib "gdi32" Alias "TextOutW" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As Long, ByVal nCount As Long) As Long
 
Private Sub Form_Load()
    Dim S As String
    S = "a" & ChrW(&H22A5) & "b"
    TextOut Me.hdc, 0, 0, StrPtr(S), Len(S)
End Sub
                        

Оцени полезность:

15 голосов , оценка 3.867 из 5

Похожие ответы