VBS programozás, segítség kellene?

A házi azért van h te csinald meg.

Mellesleg, kb:

Int szam1 beker

Int szam2 beker

If( szam1 % szam2 == 0)

Osztod

Else

Szorzod

Mellesleg szégyeld magad

Az első komment nem C#? (És logikailag hiányos?)

Mellesleg a házidat tényleg neked kellene megcsinálnod.

És elég kétséges a szorgalmad is, Google-n rákeresel, hogy vbs programozás az első találatban le van írva minden ami ehhez kell.

Egyébként én 14 éves vagyok, ezt nem tanulom iskolában és (valahogy) mégis megoldom.

Milyen jegyet kaptál év végén informatikából?? :)

Tessék:

fejlec = "Xy programja"

msgbox "Az alábbi program eloszt két számot, vagy ha nem osztható

összeszorozza.",,fejlec

'---- Bekérés ----

sz1 = InputBox ("Kérlek adj meg egy számot!",fejlec)

sz2 = InputBox ("Kérlek, adj meg még egy számot!",fejlec)

'---- Számítás ----

mukszik = 0

if sz1 mod sz2 = 0 then

eredmeny = sz1 / sz2

msgbox "Az első szám osztható a másodikkal." & vbCrLf & "Az eredmény : " &

eredmeny,,fejlec

mukszik = 1

end if

if sz2 mod sz1 = 0 then

eredmeny = sz2 / sz1

msgbox "A második szám osztható az elsővel." & vbCrLf & "Az eredmény : " & eredmeny,,fejlec

mukszik = 1

end if

if mukszik = 0 then

eredmeny = sz1 * sz2

msgbox "A számok nem osztatóak." & vbCrLf & "A szorzatuk : " & eredmeny,,fejlec

end if