Για Δομή / Επόμενο

Αναρτήθηκε από Ελισσαιέ Δομές Ελέγχου στις 01 6th, 2009 | 8 απαντήσεις

Η Επόμενη Για παίρνει επανάληψη (loop) ένα καθορισμένο ποσό. Θα διατηρήσει μια μεταβλητή που αποθηκεύει την τιμή που αντιστοιχεί στον αριθμό των επαναλήψεων. 

 Dim i As Integer

 Για i = 1 έως 10
     MsgBox ("Αριθμός Replay:" & I)
 Επόμενη

8 απαντήσεις σε "Δομή / Επόμενο"

  1. zynid3as λέει:
    03/06/2009 στις 15:43 μ.μ.

    Γεια σου, αυτό είναι αν θέλετε να αυξηθεί σταδιακά
    σταδιακή μείωση και πώς?

    Απάντηση
    • Ελισσαιέ λέει:
      03/06/2009 στις 17:39 μ.μ.

      Για να γίνει αυτό η χρήση της ρήτρας μείωση βήμα (βήμα) και να περάσετε μια αρνητική παράμετρο. Όπως σε αυτό το παράδειγμα:

      Για i As Integer = 10 Προς 1 Step -1
      MsgBox ("Αριθμός Replay:" & I)
      Επόμενη

      Απάντηση
  2. aaron Ruben Gonzalez λέει:
    28/08/2009 στις 1:40 μ.μ.

    λαμβάνεται ως το παραγοντικό ενός αριθμού δίπλα στη δομή για τη Visual Basic;

    Απάντηση
    • Gransensei λέει:
      25/01/2011 στις 21:29 μ.μ.

      Interfas δημιουργήθηκε και κάντε διπλό κλικ μπορείτε btncalcular
      ο κώδικας είναι

      Dim x ως ακέραιος, F ως ακέραιος, ακέραιος Ν ως
      αμυδρό ως ακέραιος = 1 Cum
      Ν = CInt (txtN.text)
      για Χ = 2 έως Χ Ν +1 βήμα
      F = X + Συσσωρευμένες
      Acu = F
      Επόμενη
      txtN.text = F

      Δοκιμάστε το αν τρέχει καλά

      Απάντηση
  3. Nando λέει:
    15/09/2009 στις 2:16 π.μ.

    jodist ajaj η αλήθεια; δεν μπορούν να βοηθήσουν όταν πρόκειται για αυτά τα πράγματα .. αν ξέρετε τι dirria .. Είναι καλύτερα να μάθουν από μόνοι τους .. informatico εγωισμός είναι τι παίρνετε περισσότερο q .. εμπιστοσύνη; αυτο-Πάπα

    Απάντηση
  4. Tavares λέει:
    06/12/2009 στις 5:36 π.μ.

    ακούσει και να κάνει το όριο για να είναι κάθε φορά που ένα κλικ ή δεν σας συνιστούμε

    Απάντηση
  5. Francis (CR), δήλωσε:
    13/10/2010 στις 7:00 μ.μ.

    Bena Δέμα ... Τ συγχαρώ τη σελίδα σας! Είναι δ muxa βοήθεια!

    Απάντηση
  6. Νοριέγκα λέει:
    19/06/2011 στις 2:37 π.μ.

    Μαθαίνω να προγραμματίσετε έχω αυτό το πρόγραμμα και θα πρέπει κατά την είσοδό μου τα διπλότυπα των δεδομένων που ήδη υπάρχουν q μου πει και εγώ αφήστε κενό το Κάμπο να εισάγετε ένα άλλο

    Δημόσια τάξη Φόρμα1

    Private Sub Button1_Click (ByVal αποστολέα Όπως System.Object, ByVal e Όσον System.EventArgs) Λαβές Button1.Click

    Αν TextBox1.Text = "" Και TextBox2.Text = "" Τότε
    MessageBox.Show («κωδικό και όνομα δεν μπορεί να πάει στο Λευκό")
    End If

    ListView1.Items.Add (TextBox1.Text). SubItems.Add (TextBox2.Text)

    Για i = 0 Για να ListView1.Items.Count - 1

    Αν TextBox1.Text = ListView1.Items (Ι). Στη συνέχεια Κείμενο
    MessageBox.Show («Record υπάρχει ήδη")
    End If

    Επόμενη

    Sub End
    Τέλος κατηγορίας

    Απάντηση

Σχόλιο