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

500

    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. Lataus pakkaskelissä

      En olisi koskaan ostanut sähköautoa jos olisin tajunnut että ne eivät lataa pakkasissa suurteholatauksella vaan istut tu
      Hybridi- ja sähköautot
      121
      4550
    2. Kun väestö ikääntyy ja veronmaksajat vähenee, mitä sitten vasemmistolaiset?

      Maahanmuutto ei vaan ole ratkaisu väestön ikääntymiseen. Maahanmuutto lykkää ja hidastaa väestön ikääntymistä ja työv
      Maailman menoa
      69
      2632
    3. Miksei Trump ole kiinnostunut Suomen valloittamisesta?

      Täällähän on enemmän turvetta kuin Norjalla öljyä. Eikö Ttump ole turvenuija?
      Maailman menoa
      80
      1665
    4. Kyllä mä suren

      Sitä että mikään ei ole kuten ennen. Ei niitä hetkiä ja katseita. Toisaalta keho lepää eikä enää tarvitse sitä tuskaa ko
      Ikävä
      9
      1146
    5. Jos vielä joku päivä nähtäis...

      Miten suhtautuisit minuun, mies?
      Ikävä
      66
      872
    6. Nyt se on varmaa kuntajakoselvitys

      Ensi viikolla tuöee kuntaministeri ulos ja kertoo asiasta.
      Ähtäri
      21
      853
    7. Laitetaan nyt kirjaimet kohdilleen

      kuka rakastaa ja ketä ?
      Ikävä
      41
      845
    8. Olet mies aika ailahteleva luonteeltasi

      Olen nähnyt kuinka olet iloinen, sosiaalinen ja osallistuva. Autat ja kannustat muita. Ja sitten olen nähnyt kuinka istu
      Ikävä
      120
      833
    9. Yhteen hiileen velanottoveljet V P K

      Tytäryhtiöissä palaa julkista rahaa ja vastuuttomuuden takia -ei pakollisten -kuntalain edellyttämien asioiden takia! N
      Pyhäjärvi
      67
      807
    10. Olisin valmis tutustumaan uudelleen

      En menneisyyden kautta vaan haluaisin tutustua ihmiseen, jollaiseksi olet kasvanut.
      Ikävä
      50
      789
    Aihe