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

564

    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. Medvedev: Suomi tuhoutuu ydinsodassa ensimmäisenä

      Venäjän ydinaseilla on lyhyin matka Suomeen, joten ydinsodassa Suomi tuhoutuu heti sodan alkuminuuteilla, muilla mailla
      Maailman menoa
      513
      1542
    2. Rakastan sinua

      Anteeksi että epäilin sinua.. ❤️
      Ikävä
      64
      1166
    3. Mitähän meinaat

      Vai meinaatko mitään kohtaamisen suhteen?
      Ikävä
      61
      862
    4. Oletko hyljännyt minut mies?

      Toivottavasti et. 🥺🥺🥺🥺🥺
      Ikävä
      61
      845
    5. Hotellille löytyi ostaja....

      Tämän päivän Kainuun Sanomissa oli uutinen, että pesänhoitajan mukaan Hotelli Kainuu myydään ensiviikolla. Hieno homma,
      Kuhmo
      18
      827
    6. Onko se loukkaavaa

      Kun joka kerta tuijotan sun peppua. En mahda sille mitään, että se vangitsee katseeni. Pohdin vain että ei minusta ole k
      Ikävä
      101
      756
    7. Sinä. Just sinä.

      Palataan ajassa taaksepäin vuosi tai kaksi. Mitä tekisit toisin jos voisit?
      Ikävä
      76
      741
    8. Jippii ! Zoon konkurssia tutkitaan .

      Vihdoinkin jotakin tietoa.
      Ähtäri
      30
      697
    9. Tiedätkö kaivattusi musiikkimaun?

      Minkälaisesta musiikista hän pitää?
      Ikävä
      63
      695
    10. Onko kaivattusi seinäruusu?

      Kun hän saapuu paikalle, huomaako kukaan, vai kääntyvätkö päät? Onko se hyvä vai huono juttu? Oletko sinä huomattu vai
      Ikävä
      49
      691
    Aihe