Mina en nae (VBScript)

toope

Sen siita saa kun ei mene ohjelmoinnin tunneille. Nyt pitaisi koodia vaantaa tehtavaan ja en muista yhtaan mitaan. Voisiko joku ystavallinen sielu kertoa minka mina olen tuosta If -lauseesta unohtanut kun koko ajan huudetaan "Excepted end of statement" ?

Option explicit
   
   Sub cmdCheckGrade_OnClick()

      Dim intGrade1 as integer
      Dim intGrade2 as integer
      Dim intGrade as integer
      Dim intTotalMark as integer
   
      intGrade1 = txtFirst.value
      intGrade2 = txtSecond.value
      intGrade3 = txtThird.value
      
   
      If intGrade1 < 0
      
         Then MsgBox"Input Error"
         
         Elseif
         
            intTotalMark = intGrade1 intGrade2 intGrade
      
            MsgBox "Your total mark is "& intTotalMark
               
      End If   
      
      

4

498

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • EnfIf

      mun mielestä puuttuu yksi end if

    • ripsuli

      Kannattais käydä kyllä tunneilla....

      If intGrade1 < 0 then
      MsgBox("Input Error")
      Else
      intTotalMark = intGrade1 intGrade2 intGrade

      MsgBox("Your total mark is ") & intTotalMark
      End If

      • toope

        Joo, tiedan. Uusintaan taitaa menna. Kiitos kuitenkin.


    • If intGrade1 < 0
      Then MsgBox"Input Error"
      Elseif
      intTotalMark = intGrade1 intGrade2 intGrade
      MsgBox "Your total mark is "& intTotalMark
      End If

      if lauseessa then samalle riville kuin If, elseif tarvitsee myös then (suorittaa vertailun) ja vertailu If rivin tapaan samalle riville. jos ei uutta vertailua niin pelkkä else.

      If intGrade1 < 0 Then
      MsgBox = "Input Error"
      Else
      intTotalMark = intGrade1 intGrade2 intGrade
      MsgBox = "Your total mark is "& intTotalMark
      End If

      ...näin nopeastikatsottuna :)

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Suomen markka otettiin käyttöön vuonna 1860

      Suomi käytti vuoteen 1840 asti rahayksikkönään rinnakkain Ruotsin riikintaalareita ja Venäjän ruplaa. Tämän jälkeen oli
      Maailman menoa
      43
      9688
    2. Kaivatullesi viesti ensi vuoteen?

      Kerro meneekö naiselle vai miehelle ja vähintään yksi tunniste, esim. kirjain.
      Ikävä
      70
      4963
    3. "Mä elän vieläkin"

      Ikurin turbiini vetäisi taannoin lainabiisin Topin (RIP också) ja kumppaneiden kanssa. Toivottavasti on yläkerrassa kunn
      Tampere
      59
      4327
    4. Pate Mustajärvi on kuollut

      Ihan pari tuntia sitten. Että sellaista. https://www.is.fi/viihde/art-2000011715177.html
      Maailman menoa
      137
      2846
    5. Yksityinen sektori aiheuttanut Suomen taantuman

      Investointien sijasta nostaneet voitot osinkoina omistajille. Ehdotan korjausliikkeenä yksityisen sektorin sosialisoimi
      Maailman menoa
      137
      2669
    6. Nyt Yle otti silmätikukseen sisäministeri Rantasen

      Aivan erinomaista työtä tehnyt sisäministeri Mari Rantanen on saanut paljon aikaiseksi. Maahanmuuttoon ja maahanmuuttaji
      Maailman menoa
      176
      2489
    7. Miten ikinä kelpaisin sulle

      Sinä saat niiltä muilta naisilta paljon enemmän, mitä minulta... Tai mihin minä olisin valmis. Enkä edes olisi niin tait
      Ikävä
      26
      1865
    8. Milloin näit kaivattusi edellisen kerran?

      Olitteko juttusilla vai sivusta vain? Miten reagoit?
      Ikävä
      20
      1627
    9. Edes vitamiinit eivät taanneet loputonta elämää

      Nimittäin niistä rahaa itselleen taikonut tohtori siirtyi tuonpuoleiseen.
      Maailman menoa
      36
      1540
    10. Älä nyt ainakaan pelkää

      että enää yritän lähelle. Kyllähän toisen rajoja on kunnioitettava. Olen ymmärtänyt täysin, että en kiinnosta sillä tava
      Ikävä
      72
      980
    Aihe