내 VBS 코드가 작동하지 않습니다.

Question

VBScript에서 일부 코딩 작업을 시도했지만 오류가 발생했으나 잘못되었습니다.

a = InputBox("Enter Numerator") 
b = InputBox("Enter Denominator") 

If b = 0 Then 
    MsgBox "b is 0 , that's not right probably, I'll set b=1" 
    b = 1 

MgBox "Contribution" & a & ":" & b & "=" & MojeDeleni(a, b) 

Function MySplitting(a,b) 
    On Error Resume Next 
    MySplitting = a/b 
    If Err.Number <> 0 Then 
    MySplitting = "Splitting error no." & CStr(Err.Number) & " " & Err.Description 
    End if 
    Err.Clear 
End Function 

Answer 1

코드에 몇 가지 오타가 있습니다.

If B = "" Then '<< String CANNOT BE Integer, YOU SHOULD USE "" TO CHECK IF IT IS EMPTY >> 
    MsgBox "Denominator is 0, That's not right probably, I'll set Denominator to 1" 
    B = 1 
End If '<< End If IS MISSING HERE >> 

또는 If CInt(B) = 0 Then을 사용할 수 있습니다. 당신은 하나 개의 언어에 새로운 변수를 할당하고 다른 언어를 사용하려면

Function MySplitting(A, B) 
    On Error Resume Next 
    MySplitting = CInt(A)/CInt(B) 
    If Err.Number <> 0 Then 
     MySplitting = "Splitting Error : " & CStr(Err.Number) & " " & 
Err.Description 
    End If 
    Err.Clear 
End Function 

MgBox "Contribution" & A & " : " & B & " = " & MojeDeleni(A, B) '<< HERE MgBox SHOULD BE MsgBox >> 

, 스크립트 엔진을 얘기하지 않는 한 그들은 다음과 같은 동일한 변수 수행 할 수 없습니다.

MojeDeleni = MySplitting(A, B) 

그럼 이제 다음과 같이 작동합니다. 오류가 발생하면 디스플레이에서 메시지 "공헌"을 방지하기 위해

MsgBox "Contribution is " & A & " : " & B & " = " & MojeDeleni 

는 다음을 수행 할 수 있습니다

MojeDeleni = MySplitting(A, B) 

If InStr(Result, "Error") = 0 Then 
    MsgBox "Contribution is " & A & " : " & B & " = " & MojeDeleni 
Else 
    MsgBox MojeDeleni 
End If