Αποφάσεις και άλλες δομές ελέγχου

Η εντολή if-else

• Μπορούμε να εκτελέσουμε ορισμένες εντολές υπό συνθήκη με τη δομή ελέγχου If.
• Αυτή χρησιμοποιείται ως εξής:

  	If συνθήκη Then
  		εντολή
  		...
  	End If
  

• Οι εντολή που ακολουθεί το If εκτελείται αν η συνθήκη είναι αληθής.
• Παράδειγμα (υπολογίζει και τυπώνει την απόλυτη τιμή των αριθμών που διαβάζει μέχρι να συναντήσει το 0):

  Sub main()
      Dim Num As Integer
      
      Do
          Num = InputBox("Please enter a number")
          If Num < 0 Then
              Num = -Num
          End If
          MsgBox "The absolute value is " + Str(Num)
      Loop Until Num = 0
  End Sub
  

• Η δομή ελέγχου If μπορεί να ακολουθηθεί και από τη δομή Else για να προσδιορίσουμε εντολές που θα εκτελεστούν αν η συνθήκη δεν ισχύει. Παράδειγμα:

  	If grade >= 5 Then
  		MsgBox "Περνάει"
  	Else
  		MsgBox "Απορρίπτεται"
  	End If
  

• Μπορούμε να συνδυάσουμε συνεχόμενα Else If για πολλαπλούς ελέγχους. Παράδειγμα:

  	If grade >= 9 Then
  		MsgBox "'Αριστα!"
  	ElseIf grade >= 7 Then
  		MsgBox "Λίαν καλώς"
  	ElseIf grade >= 5 Then
  		MsgBox "Καλώς"
  	Else
  		MsgBox "Κακώς"
  	End If
  

H εντολή select

• Η εντολή select μας επιτρέπει να κατευθύνουμε τη ροή του προγράμματος προς μια συγκεκριμένη τιμή ανάλογα με την τιμή μιας παράστασης.
• Συντάσσεται ως εξής:

  	Select Case παράσταση
  	Case λίστα τιμών1
  		εντολή1
  		εντολή1α
  		...
  	Case λίστα τιμών2
  		εντολή2
  		...
  	...
  	Case Else
  		εντολή ν
  		...
  	End Select
  

• Ανάλογα με ποια από τις τιμές ισούται η τιμή της παράστασης εκτελούνται οι αντίστοιχες εντολές.
• Αν καμία από τις τιμές δεν ταυτίζεται με την τιμή της παράστασης τότε εκτελείται η εντολή που ακολουθεί την Case Else (αν υπάρχει), αλλιώς δεν εκτελείται καμία εντολή.
• Οι τιμές για κάθε case μπορεί να είναι
  • μια έκφραση (π.χ. 42 ή i + 9),
  • ο ορισμός μιας περιοχής με τη χρήση to (π.χ. 1 to 10)
  • μια σύγκριση της τιμής της απόφασης με μια έκφραση με τη χρήση της λέξης Is (π.χ. Is > 100)
  • ή ένα σύνολο από από τα παραπάνω χωρισμένα με , (π.χ. 3 to 5, 50, 90, is > LastVal)
• Παράδειγμα:

  Dim Number As Integer
  
  Number = InputBox("Enter a Number")
  Select Case Number	' Evaluate Number.
  Case 1 To 5	' Number between 1 and 5.
  	MsgBox "Between 1 and 5"
  Case 6, 7, 8	' Number between 6 and 8.
  	MsgBox "Between 6 and 8"
  Case Is > 8 And Number < 11	' Number is 9 or 10.
  	MsgBox "Greater than 8"
  Case Else	' Other values.
  	MsgBox "Not between 1 and 10"
  End Select
  

Η εντολή for

• Με την εντολή for μπορούμε εύκολα να εκτελέσουμε ένα βρόχο ορισμένες φορές.
• Συντάσσεται ως εξής:

  For μετρητής = αρχική τιμή To τελική τιμή [Step βήμα]
  	εντολή
  	...
  	[Exit For]
  	εντολή
  	...
  Next [μετρητής]
  

• O μετρητής είναι μια μεταβλητή που λαμβάνει όλες τις τιμές από την αρχική μέχρι την τελική τιμή ανά βήμα.
• Το τέλος του βρόχου δηλώνεται με την εντολή Next.
• Μπορούμε να τερματίσουμε το βρόχο πρόωρα με την εντολή Exit For
• Παραδειγμα:

  dim i as integer
  
  For i = 10 to 0 step -1
  	msgbox "Countdown: " + str(i)
  next i
  

Έξοδος από το βρόχο

• Με την εντολή Exit Do μπορούμε να τερματίσουμε ένα βρόχο Do πριν τον αρχικό ή τελικό έλεγχό του
• Η εντολή αυτή χρησιμοποιείται συχνά σε συνδυασμό με την If για να προσδιοριστεί η συνθήκη που θα προκαλέσει την έξοδο.
• Ορισμένες φορές ο βρόχος έχει προσδιοριστεί ως ατέρμων βρόχος (infinite loop) με μια πάντα-αληθή λογική έκφραση ελέγχου (π.χ. True).
• Παράδειγμα:

  do while true
  	i = InputBox("Give a number less than 100")
  	if i < 100 then
  		exit do
  	end if
  	msgbox "Try again"
  loop
  

Ασκήσεις

Αποφάσεις

1. Να γράψετε ένα πρόγραμμα που να υπολογίζει τη συνολική απόδοση μιας κατάθεσης με ετήσιο επιτόκιο που μεταβάλλεται κλιμακωτά ανάλογα με το ποσό που τοκίζεται σύμφωνα με τον παρακάτω πίνακα:

   Ποσό	Επιτόκιο
   0-999.999	2.25
   1.000.000-4.999.999	2.5
   5.000.000-10.000.000	2.8
   10.000.000 και άνω	2.9

   • Στην αρχή το πρόγραμμα ζητάει από το χρήστη
     • το αρxικό ποσό και
     • τον αριθμό των περιόδων (ετών).
   • Στο τέλος εμφανίζει το τελικό ποσό της κατάθεσης.

• Περιεχόμενα

 Τελευταία αλλαγή: Πέμπτη, 24 Μαΐου 2001 4:01 μμ
 Εκτός αν αναφέρεται κάτι διαφορετικό, όλο το πρωτότυπο υλικό της σελίδας αυτής του οποίου δημιουργός είναι ο Διομήδης Σπινέλλης παρέχεται σύμφωνα με τους όρους της άδειας «Creative Commons Attribution-Share Alike 3.0 Greece License».