script funktioniert nicht richtig

  • VBScript

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von sum44.

    script funktioniert nicht richtig

    folgendes script gibt den geist auf, wenn a die hälfte von b oder b die hälfte von a ist...:




    function kgv(a, b)
    dim x, u, r, d, v
    if a < b then
    v = b - a
    elseif b < a then
    v = a - b
    end if
    r = a
    d = b
    x = a * b
    If a = 0 or b = 0 or b = 1 or a = 1 or v = a or v = b then
    If b = 0 or b = 1 or v = b then
    u = a
    a = 100
    b = 100
    elseif a = 0 or a = 1 or v = a then
    u = b
    a = 100
    b = 100
    end if
    elseif b > 0 and a > 0 then
    do until a = b
    If a < b then
    b = b - a
    ElseIf b < a then
    a = a - b
    end If
    loop
    end if
    x = x / b
    If u = r or u = d then
    x = u
    end if
    kgv = x
    end function
    a = inputbox("1. Zahl")
    b = inputbox("2. Zahl")
    msgbox("Das kgV ist: " & kgv (a, b))

    pls help
    thx
    //edit sry krigs anders net hin

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „sum44“ ()

    Versuch's mal damit:



    Visual Basic-Quellcode

    1. Function kgv(a, b)
    2. Dim x, u, r, d, v
    3. If a < b Then
    4. v = b - a
    5. ElseIf b < a Then
    6. v = a - b
    7. End If
    8. r = a
    9. d = b
    10. x = a * b
    11. If a = 0 Or b = 0 Or b = 1 Or a = 1 Or v = a Or v = b Then
    12. If b = 0 Or b = 1 Or v = b Then
    13. u = a
    14. a = 100
    15. b = 100
    16. ElseIf a = 0 Or a = 1 Or v = a Then
    17. u = b
    18. a = 100
    19. b = 100
    20. End If
    21. ElseIf b > 0 And a > 0 Then
    22. Do Until a = b
    23. If a < b Then
    24. b = b - a
    25. ElseIf b < a Then
    26. a = a - b
    27. End If
    28. Loop
    29. End If
    30. x = x / b
    31. If u = r Or u = d Then
    32. x = u
    33. End If
    34. kgv = x
    35. End Function
    37. a = CLng(InputBox("1. Zahl"))
    38. b = CLng(InputBox("2. Zahl"))
    39. MsgBox("Das kgV ist: " & kgv (a, b))

Facebook
Telefonspende