1 - поздравляю!

2 - удачи и побольше

з.ы. когда взломаешь сервак Пентагона, дай знать )))))

Но вот поди же ты - написала программу по резервированию номеров в отеле

могу ее у тебя купить ))

Джек, да ну)) Это простая программка в VB)) Но для меня уже подвиг



Brysnika,

1.погоди поздравлять, точные результаты будут только после 17го (Сейчас я знаю, что сдала однозначно, а вот на какой балл - вопрос)

2. Спасибо

Неунывающая улитка

Поздравляю!

Удачи тебе и дальше!

исходники программы в студию! =)

Неунывающая улитка

главное - сдала

Narcis , спасибо



no_wonder, ну, как хотите))



Public Function Hotel()

Dim Anzahl_Naechte As Integer, Anzahl_Bette As Integer

Dim Preis As Single

Dim Vorsaison As String, Zwischensaison As String, Haupsaison As String, Reisemonat As String, Zwei_Bett_Zuschlag As Single, weiter As String



Vorsaison = 30

Zwischensaison = 40

Hauptasaison = 50

Zwei_Bett_Zuschlag = 1.5



Do



Anzahl_Naechte = InputBox("Bitte geben Sie Anzahl der Nächte ein")



Reisemonat = InputBox("Bitte geben Sie den gewünschten Monat ein")

If 12 < Reisemonat Or Reisemonat < 1 Then

MsgBox ("Sie haben sich vertippt. Bitte geben Sie den richtigen Monat ein")

End If



Select Case Reisemonat



Case 1, 2, 11

Preis = Vorsaison * Anzahl_Naechte



Case 3, 4, 5, 6, 9, 10

Preis = Zwischensaison * Anzahl_Naechte



Case 7, 8, 12

Preis = Hauptsaison * Anzahl_Naechte



End Select



Anzahl_Bette = InputBox("Bitte geben Sie Anzahl der Betten ein (1) oder (2)")

If Anzahl_Bette = 1 Or Anzahl_Bette = 2 Then



Select Case Anzahl_Bette



Case 1

Preis = Preis



Case 2

Preis = Preis * Zwei_Bett_Zuschlag

End Select



Else: MsgBox ("Bitte nur Einzelzimmer (1) oder Doppelzimmer (2)")

End If



MsgBox ("Ihre Buchung beträgt::" & Preis)

weiter = InputBox("Weitere Buchungen? (j für ja)")



Loop Until weiter <> "j"



End Function



Brysnika , ага))