Problema

Dark_Mefisto · Allievo Registrato: Oct 12, 2007 Messaggi: 27

Allora raga sto facendo un problema dal seguente quesito:

La scuola rimborsa il 15% del costo dell'abbonamento se lo studente abita in provincia, usa l'autobus ed è lontano almeno 20 KM.
Alle stesse condizioni,se usa il treno il rimborso è del 10%.
Calcolare l'ammontare del rimborso.

Allora io ho provato a farlo e credo che la forma sia giusta...ma nn capisco xke mi da degli errori di sintassi...vi posto il codice...
P.S. sto facendo 2 combobox...uno per scegliere se il ragazzo è di provincia o non e l'altro per scegliere il mezzo con cui si sposta...per il resto 2 caselle di testo e due pulsanti...uno per calcolare il tutto l'altro per uscire dal programma...

Sapete dirmi dove sbaglio??? Aspetto vostre risp...

--------------

Public Sub cmdcalcola_Click()

Risultato1 = txtprezzo.Text * 15
Risultato2 = Val(Risultato1) / 100
Risultato3 = txtprezzo.Text * 10
Risultato4 = Val(Risultato3) / 100

If cboscelta1.ListIndex <> 0 Then
MsgBox "sconto non applicabbile!", 64, "Messagio per l'utente!"
Else
If txtdistanza.Count < 20 Then
MsgBox "sconto non applicabbile!", 64, "Messagio per l'utente!"
Else
If cboscelta2.ListIndex = 0 Then
MsgBox "Lo sconto è di CStr(Risultato2)", 64, "Messagio per l'utente!"
Else
If cboscelta2.ListIndex = 1 Then
MsgBox "Lo sconto è di CStr(Risultato4)", 64, "Messagio per l'utente!"
Else
End If
End If
End If
End If
End Sub

Private Sub Form_Load()
cboscelta1.AddItem "Provincia"
cboscelta1.AddItem "Non Provincia"
cboscelta2.AddItem "Autobus"
cboscelta2.AddItem "Treno"
cboscelta2.AddItem "Altro"
End Sub

P.S. l'ho aggiustato un bel po ma nn continua a funzionare...potreste aiutarmi please???