SOS! VBS-ben hogyan tudom megcsinálni elágazással 4 if-fel, hogy ha beírom h hány %-os a doga, akkor kiadja h hányas?
válasza:sz=InputBox(szazalek (sz)= ")
End
Ha nincs előtte semmi, akkor egyik hiba az 'End' - nem tartozik semmihez. Másik hiba pedig az első sorban. Helyesn valahogy így néz ki:
sz = InputBox("szazalek (sz)= ")
^
| !!!
válasza: válasza:---------------------------
Windows Script Host
---------------------------
Szkript: C:\Users\Bene\Desktop\Jegyszámítás.vbs
Sor: 5
Karakter: 1
Hiba: A várt elem utasítás
Kód: 800A0400
Forrás: Microsoft VBScript fordítási hiba
---------------------------
OK
---------------------------
sz=InputBox("szazalek (sz)= ")
If sz<35 Then MsgBox("Elégtelen")
End if
If
sz>34 and sz<50 Then MsgBox("Elégséges")
End if
If
sz>49 and sz<76 Then MsgBox("Közepes")
End if
If
sz>75 and sz<91 Then MsgBox("Jó")
End If
If
sz>90 and sz<100 Then MsgBox("Kitűnő")
End if
válasza: válasza:Ha már kiküzdötted magad hasonlítsd össze a tiéddel.
sz=InputBox("Százalék ?")
If sz<35 Then
MsgBox("Elégtelen")
End if
If sz>34 and sz<50 Then
MsgBox("Elégséges")
End if
If sz>49 and sz<76 Then
MsgBox("Közepes")
End if
If sz>75 and sz<91 Then
MsgBox("Jó")
End If
If sz>90 and sz<100 Then
MsgBox("Kitűnő")
End if
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!