[vba] Problem Select Case

[fr4]

Witam! Probuje zrobic nastepujace zadanie w jezyku VBA:

 

Użytkownik podaje ilość sztuk i cenę zakupionego towaru. W przypadku gdy:

• cena wynosi 120, a sztuk jest 50 lub więcej, udzielamy rabatu 10%,

• cena wynosi 120 a sztuk jest mniej niż 50, piszemy komunikat o ile za mało

zakupiono towaru,

• cena jest różna od 120 piszemy komunikat, ze jest zła cena.

 

musi ono byc zrobione za pomoca instrukcji Select Case. Nie wiem w jaki sposob polaczyc ze soba i cene i ilosc sztuk w select case...

Probowalem w ten sposob:

 

Sub Zad_4()Dim sztuki As VariantDim cena As Variantsztuki = InputBox("Podaj ilosc sztuk")cena = InputBox("Podaj cene")Select Case sztuki & cenaCase Is >= 50 & 120MsgBox ("Rabat wynosi 10%, czyli" & cena * 0.1)Case Is < 20 & 120MsgBox ("Zakupiono za mało towaru o" & 50 - sztuki & "sztuk")Case ElseMsgBox ("Zla cena")End SelectEnd Sub

ale program nie dziala tak jak powinien...

 

Bardzo prosze o pomoc w rozwiazaniu tego zadania za pomoca select case. Z gory dzieki i pozdrawiam!

 

// EDIT: juz sobie poradziłem... Mozna zamknac temat... Sorry za zamieszanie.

Edytowane 17 Czerwca 2008 przez fr4

[stivo]

To pokaż jak powinno wyglądać poprawnie.