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

533

    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. Pride-rautu korvaamaan kirjolohi

      Kekkosen saatanan tunari meni muuttamaan aikoinaan sateenkaariväen kalan nimen. Unkarin vallankumouksen innoittamana n
      Maailman menoa
      36
      2507
    2. Purran aikaisemmat kannattajat siirtyneet Lindtmanin leiriin

      Melkoinen muutos on käynnissä Suomen politiikan kentällä. Tulevista häviäjistä on hirmuinen kiire päästä ajoissa voittaj
      Maailman menoa
      118
      2428
    3. Järkyttävä hetki - Ellen Jokikunnas pöyristyy italialaisen lääkärin työstä

      Unelmia Italiassa -sarjassa ollaan Ellen Jokikunnaksen perheen kanssa Italiassa. Jokikunnas ja Rask ovat rempanneet kakk
      Tv-sarjat
      28
      1527
    4. Oot tosi epätavallinen

      ja erikoinen nainen. Tykästyä ikihyviksi sun kaltaiseen naiseen, mitä tästä pitäis edes ajatella.
      Ikävä
      49
      1267
    5. Työeläkkeet ovat pois työntekijän palkasta

      Jokainen työeläkkeen nimissä maksettu euro on otettu pois työtä tekevältä palkansaajalta. Mitä korkeampi työeläketaso o
      Maailman menoa
      38
      1221
    6. Etkö sä muru mussakaiseni ymmärrä

      Että me päästään lähenemään vain kaveruuden kautta? Vain siten mä voin lähettää sulle kuvia ja viestejä 😌 Tänäänkin o
      Ikävä
      30
      1016
    7. Etkö voi antaa edes vihjettä mulle?

      Minkä vain me tiedettäisiin? Naiselta miehelle.
      Ikävä
      73
      962
    8. Muistatko? Maisa Torppa jakso räjäytti Veitolan somen: "epäaitoa ja teeskentelyä"...

      Maisa Torppa täyttää tänään 35 vuotta, onnea! Maria Veitola vieraili Yökylässä-ohjelmassa aikansa kohujulkkis Maisa To
      Suomalaiset julkkikset
      13
      918
    9. Terveisiä lintutornilta

      Viipurista nousee kauhea savupatsas. Miksi ?
      Maailman menoa
      37
      800
    10. Kaksi viikkoa enää Rakas...

      Tietäisinpä miten toimia...
      Ikävä
      53
      795
    Aihe