no non esce e ora ho anche cambiato..
codice:
Public Class Form1
Dim Tipologia_Stanza(3), Scelta As String Dim Prezzo_notte_Adulto(3), Prezzo_Children(3), Prezzo_tot As Decimal
Dim Num_notti(100), Num_Adulti(100), Num_Bambini(100), Somma As Integer
Dim I, N As Integer
Private Sub BtnPreventivo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPreventivo.Click
Somma = 0
Tipologia_Stanza(I) = InputBox("inserisci in che tipo di stanza soggiorneranno", "2")
Do
Num_Adulti(I) = InputBox("Quanti adulti ci sono?")
Num_Bambini(I) = InputBox("Quanti bambini ci sono?")
Num_notti(I) = InputBox("Quante notti soggiorneranno?")
If Tipologia_Stanza(I) = "Normal" Then
Somma = (Prezzo_Children(1) * Num_Bambini(I)) + (Prezzo_notte_Adulto(1) * Num_Adulti(I)) * Num_notti(I)
MsgBox(Somma)
End If
I = I + 1
Scelta = InputBox("Inserire altri?")
Loop Until Scelta = "no" End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
I = 0
For I = 0 To N - 1
Tipologia_Stanza(1) = "Normal"
Tipologia_Stanza(2) = "Suite"
Tipologia_Stanza(3) = "ExtraSuite"
Prezzo_notte_Adulto(1) = "40"
Prezzo_notte_Adulto(2) = "80"
Prezzo_notte_Adulto(3) = "120"
Prezzo_Children(1) = "20"
Prezzo_Children(2) = "40"
Prezzo_Children(3) = "80"
Next
End Sub
End Class
come mi ha detto la mia prof ho messo in 3 listbox i dati
e nel form load li ho caricati
però poi per fare il preventivo è gisuto come ho fatto?..però esce 0..