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

511

    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. Säästäminen on typerää, muistakaa äänestää demareita

      Säästäminen on typerää, koska aiheuttaa vain talouden taantumista ja lopulta tappaa potilaan. Demareiden tapa on satsat
      Maailman menoa
      122
      8159
    2. Olli Rehn: Eläkkeistä pitää leikata. Nyt tuli Lindtmanille kauhun paikka

      jos johtaa seuraavaa hallitusta. Purra: eläkkeisiin ei kosketa. Eikä tällä hallituskaudella varmasti kosketa, mutta seur
      Maailman menoa
      428
      7309
    3. SDP:n budjetin peruskivi: "Rahaa nimittäin on!"

      Demarien talouspolitiikan ydin on usein tiivistetty klassiseen meemiin: rahaa on, kunhan se on jonkun muun rahaa. Vuoden
      Maailman menoa
      209
      5578
    4. Poliisien suosikkipuolueet ylivoimaisesti: Kokoomus ja persut

      samoin on armeijan henkilöstön kanssa. Sen sijaan sekä vihreät, vasliitto ja SDP ovat hyljeksittyjä puolueita poliisien
      Maailman menoa
      137
      4510
    5. Kun täällä kysytään aina vaan naisilta

      Niin nyt kysytään miehiltä. Mies, voisitko ottaa kumppaniksesi naisen joka nostaa enemmän penkistä kuin sinä? Tienaa en
      Sinkut
      82
      4471
    6. Sdp, Vihreät ja vasemmistoliitto muuttumassa naisten puolueiksi?

      Sdp 64 % naisia, vihreät 70 % naisia ja vasemmistoliitto 60 % naisia. Ilmankos ne puolueet ajaa autoilevien kantasuomal
      Maailman menoa
      99
      4371
    7. Hatunnosto! Mari Hynynen (os. Perankoski) ja Jouni Hynynen auttavat vähäosaisia upealla tavalla!

      Hatunnosto! Mari ja Jouni Hynynen ovat Vailla vakinaista asuntoa ry:n uudet kummit. Hynysiä motivoi halu lisätä ymmärr
      Maailman menoa
      10
      4082
    8. Tiesitkö? Tämä suomalainen keksi Elämäni biisi -sarjan - Viinin lipittely mainittu!

      Tiesitkö? Elämäni biisi on suomalainen formaatti ja sen takana on Petja Peltomaa. Hänen kynästä ovat lähtöisin myös mm.
      Tv-sarjat
      0
      3760
    9. Epäonnistunut "Tuppurais-operaatio" kaatoi Purran hallituksen

      Persut yrittivät viimemetreillä häivyttää omaa täydellistä epäonnistumistaan syyttämällä opposition edustajaa nimettömil
      Maailman menoa
      13
      2630
    10. Valtion alijäämä = yritystukien määrä = 10 mrd. euroa

      Mutta persut eivät vaan suostu tasapainottamaan valtion budjettia, vaikka yritystuet on tiedetty haitallisiksi. Miksi p
      Maailman menoa
      1
      2576
    Aihe