Не работет уже готовый простой код - VB

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

Sub ggg()
 
Dim X As String, Y As String
Dim check As Boolean
 Dim st As String
check = True
Public Function MM(X, Y)
       If (X < 0) Then
       X = -X
       check = False
    ElseIf (Y < 0) Then
       Y = -Y
       check = False
       End If
      
 If (check = False) Then
 ' Кароче решил схитрить, если x или y меньше нуля я просто дописываю минус)
st = "-" + CSng(MM = (Atn(X / Y)))
 Else: MM = (Atn(X / Y))
End If
End Function
'Что-то не работет выводит "знач"
Добавлено через 5 минут
Sub ggg()
' Исправил , но всё равно не пашет
Dim X As Double, Y As Double
Dim check As Boolean
 Dim st As String
check = True
Public Function MM(X, Y)
       If (X < 0) Then
       X = -X
       check = False
    ElseIf (Y < 0) Then
       Y = -Y
       check = False
       End If
      
 If (check = False) Then
 ' Кароче решил схитрить, если x или y меньше нуля я просто дописываю минус)
st = "-" + CSng(MM = (Atn(X / Y)))
 Else: MM = (Atn(X / Y))
End If
End Function
'Что-то не работет выводит "знач"
Добавлено через 3 минуты
Sub ggg()
' ÈñïðГ*ГўГЁГ« , Г*Г® ГўГ±Вё Г°Г*ГўГ*Г® Г*ГҐ ГЇГ*ГёГҐГІ
'Dim X As Double, Y As Double
Dim check As Boolean
 Dim st As String
check = True
Public Function MM(X, Y)
       If (X < 0) Then
       X = -X
       check = False
    ElseIf (Y < 0) Then
       Y = -Y
       check = False
       End If
      
 If (check = False) Then
 ' ГЉГ*ðî÷å ðåøèë ñõèòðèòü, åñëè x èëè y ìåГ*ГјГёГҐ Г*óëÿ Гї ïðîñòî äîïèñûâГ*Гѕ ìèГ*ГіГ±)
st = "-" + CSng(MM = (Atn(X / Y)))
 Else: MM = (Atn(X / Y))
End If
End Function
'Г—ГІГ®-ГІГ® Г*ГҐ Г°Г*áîòåò âûâîäèò "Г§Г*Г*Г·"

Код к задаче: «Не работет уже готовый простой код - VB»

textual
Sub ggg()
' ÈñïðГ*ГўГЁГ« , Г*Г® ГўГ±Вё Г°Г*ГўГ*Г® Г*ГҐ ГЇГ*ГёГҐГІ
Dim check As Boolean
 Dim st As Double
Public Function MM(X, Y)
check = True
       If X < 0 Then
       X = X * (-1)
       check = False
       End If
    If Y < 0 Then
     Y = Y * (-1)
       check = False
       End If
  
 If (check = False) Then
  'ГЉГ*ðî÷å ðåøèë ñõèòðèòü, åñëè x èëè y ìåГ*ГјГёГҐ Г*óëÿ Гї ïðîñòî äîïèñûâГ*Гѕ ìèГ*ГіГ±)check = True
st = MM = (Atn(X / Y)) * (-1)
 End If
 If (check = True) Then
 MM = Atn(X / Y)
End If
End Function
'Г—ГІГ®-ГІГ® Г*ГҐ Г°Г*áîòåò âûâîäèò "Г§Г*Г*Г·"

13   голосов, оценка 4.231 из 5


СОХРАНИТЬ ССЫЛКУ