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
Mina en nae (VBScript)
4
566
Vastaukset 4
- 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
Mitä haluaisit minusta mies
Meidän tilanne on ns.vaikea, eikä olla koskaan puhuttu tai edes ehditty puhua siitä, että mihin me tällä kaikella säätäm69991- 55958
Kun olet noin varovainen, niin tehdään näin
Ollaan luontevia kun tavataan. Ei mitään paineita. Halataan lämpimästi toisiamme, ja sitä hetkeä voi viivyttää, kunnes s43916Martina Aitolehti ja Nanna Karalahti - Rajua röykytystä nyrkkeilymatsista "Ettei naisten botoksi..."
Martina Aitolehti ja Nanna Karalahti nyrkkeilevät toisiaan vastaan Immu Fight Nightissa. Naiset ovat saaneet osakseen k55705Selvitetään tämä meidän välinen juttu
Kertoisin sulle, mitä sinussa näen ja mikä viehättää eniten. Pitkä tarina tulisi siitä, mutta haluisin nähdä, kun kuunte21684Martina ja Levin kiinteistö
Ei ole enää "mun Leviä". Kiinteistöllä uudet omistajat ja välillä palautui takaisin rakennuttajallekin, miksköhän.306641- 33625
Harmittaa kun en saa edes tietää
miten elämässäs menee. Niinkin tärkeä asia, et miten jaksat. Kuinka terveys jne. Olet niin tärkeä, että haluaisin tietää44568Teköäly löytää teidät
Tästä on ollut ennenkin puhetta. Muistan Sergein tehneen aiheesta aloituksen, ja Disse analysoi minua ja kirjoituksiani175548Miesten vs naisten älykkyys
Eiköhän tämä asia ole ihan itsestään selvä: "Adult male brains average approximately 1,370–1,378 grams, while female br173539