Πώς να Υπολογίστε κατά μέσο όρο σε Visual Basic

Μέσοι είναι ένα εξαιρετικό παράδειγμα του είδους των υπολογιστών έργο είναι καλό στην αυτοματοποίηση : εννοιολογικά απλό , αλλά κουραστική και επαναλαμβανόμενες να καταλάβω χιλιάδες φορές για τον εαυτό σας . Αυτό το απλό πρόγραμμα της Visual Basic λαμβάνει μια σειρά αριθμών , που διαχωρίζονται με κόμματα , και υπολογίζει τον μέσο όρο τους . Θυμηθείτε να εφαρμόσει ένα κριτήριο την κοινή λογική με τα αποτελέσματα, ωστόσο? Κανένα πρόγραμμα διορθώνει ένα σφάλμα εισαγωγής δεδομένων . Οδηγίες
Η 1

Ανοίξτε Visual Basic και να δημιουργήσετε ένα νέο έργο κάνοντας κλικ στο " Αρχείο" και "New Project ". Επιλέξτε " Windows Forms Project. " 2

Σύρετε ένα « κουμπί » από την «εργαλειοθήκη» στο έργο σας .
Εικόνων 3

Σύρετε ένα " κουτάκι " από η «εργαλειοθήκη» στο έργο σας .
Η

4 κάντε διπλό κλικ στο κουμπί για να δημιουργήσετε μια μέθοδο εκδήλωση για το κουμπί .
5

Προσθέστε τον ακόλουθο κώδικα στο συμβάν του κουμπιού μέθοδος :

Dim s = TextBox1.Text.Split ( " , " )

Dim σύνολο = 0

Για κάθε τιμή x s

Dim n = Double.Parse ( x )

συνολικά + = n

Επόμενο

Dim μέσος όρος = συνολικά /s.Length

MsgBox ( " Ο μέσος όρος είναι " + average.ToString )

Αυτό παίρνει το κείμενο του κειμένου και μοιράζει γύρω από τα κόμματα . Στη συνέχεια μετατρέπει κάθε αριθμό από μια σειρά σε ένα διπλό και βρίσκει το άθροισμα . Όταν τελειώσετε , εκτυπώνει το μέσο όρο για το χρήστη σε ένα πλαίσιο μηνύματος .
Η

6 Κάντε κλικ στο πλήκτρο "Play" .
Η 7

Πληκτρολογήστε ένα σύνολο αριθμών , που χωρίζονται με κόμματα , μέσα στο πλαίσιο κειμένου . Κάντε κλικ στο κουμπί για να τους μέσο όρο .
Η
εικόνων