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
518
Vastaukset
- 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
Näin Enter-napilla tehdään miljardi euroa - Helsingissä
"Ei se nyt niin kovin ihmeelliseltä näytä. Tavallinen nappi, musta muovinpala, joka kököttää parikymppiä maksavan mustan2018744- 685705
- 245287
Perussuomalaiset kirjoittaa vain positiivisista uutisista
Ei tarvitse palstaa paljon seurata, kun sen huomaa. Joka ainoa positiivinen uutinen Suomen taloudesta tai ylipäätään, ni375166Jätä minut rauhaan
En pidä sinusta. Lopeta seuraaminen. Älä tulkitse keskustelutaitoa tai ystävällisyyttä miksikään sellaiseksi mitä ne eiv385001Ben Z: "SDP ei ole ollut 50 vuoteen näin huolissaan velasta"
"– Olen ollut eduskunnassa noin 50 vuotta, eikä SDP ole koskaan ollut niin huolissaan velasta kuin nyt. Se on tietysti h774909- 624443
- 434117
Mitä luulet, miten Martina Aitolehti pärjää Erikoisjoukoissa?
Kohujulkkis, yrittäjä ja hyvinvointivalmentaja Martina Aitolehti on mukana Erikoisjoukot-realityssä. Erikoisjoukot on493413- 493095