수다닷컴

Private Tol As Variant
Private Xo As Variant
Private maxN As Variant
Private a, b As Single
Private GA, GB As SingleFunction GivenFunc(ko As Single) As Single
Dim pio As Single, pi_ko As Single, tanko As Single
GA = GAtext.Text
GB = GBtext.Text
Select Case ko
Case Is 1#
GivenFunc = -9999.9
Exit Function
Case Is = 1#
ko = 1# + 10# ^ -6
End Select
pio = 4 * Atn(1#)
pi_ko = pio / ko
If ko = 2 Then tanko = 0# Else tanko = pi_ko / Tan(po_ko)
GivenFunc = (GA * GB * (pi_ko) ^ 2 - 36#) / (6# * (GA + GB)) - tanko
End Function
Private Sub 이분법()maxN = 100
a = 1
b = 10
Tol = (b - a) * 0.5 ^ maxNIf GivenFunc(a) = 0 Then Result.Text = a
Exit Sub
End IfIf GivenFunc(b) = 0 Then Result.Text = b
Exit Sub
End IfIf GivenFunc(a) * GivenFunc(b) 0 Then
MsgBox 값이 없습니다.
Exit Sub
End IfFor n = 0 To 100
Xo = 0.5 * (b + a)If GivenFunc(a) * GivenFunc(b) 0 Then
b = Xo
Else
a = Xo
End IfIf Abs(b - a) Tol Then
Result.Text = Xo
Exit Sub
End Ifn = n + 1Next nEnd Sub이런 코딩에서 저런 컴파일 오류가 뜨면서. 커서가 빨간색 a 부분으로 가는데 왜 이런걸까요??죄송하지만 답변좀 부탁드릴게요.

신청하기