Struktūra / Nākamais

Par nākamās notiek atkārtošanās panta cilpa) noteikto summu. Jums būs saglabāt mainīgā, kas saglabā vērtību atbilstoši skaitu atkārtojumu.

 Dim i kā Integer

 Kur i = 1 līdz 10
     MsgBox ("Replay skaits:" & i)
 Nākamais

8 Atbildes uz "struktūra Par / Nākamā"

  1. zynid3as saka:

    Hei, tas ir, ja jūs vēlaties, lai pakāpeniski palielinātu
    koniskie un kā?

    • Elīsa saka:

      Lai to izdarītu lietošanas klauzula samazinās soli (solis) un jums iet negatīvs parametrs. Kā šajā piemērā:

      Par i kā Integer = 10 līdz 1 Step -1
      MsgBox ("Replay skaits:" & i)
      Nākamais

  2. Ruben Gonzalez Aaron saka:

    tiek pieņemts kā skaitļa faktoriālu blakus struktūru Visual Basic?

    • Gransensei saka:

      Interfas izveidota un divreiz noklikšķiniet jūs btncalcular
      kods ir

      tuvās x kā vesels skaitlis, F kā vesels skaitlis, kas vesels skaitlis N, kā
      dim kā vesels skaitlis = 1 Cum
      N = CInt (txtN.text)
      par X = 2 līdz N +1 solim X
      F = Uzkrātā + X
      Acu = F
      Nākamais
      txtN.text = F

      Izmēģiniet to, ja jūs vadāt labi

  3. Nando saka:

    jodist ajaj patiesība? nepalīdz, kad runa ir par šīm lietām .. ja jūs zināt, ko dirria .. Labāk ir mācīties paši .. informātikas egoisms ir tas, ko jūs saņemat vairāk q .. uzticība? self-Pope

  4. Tavares saka:

    dzird un dara, lai limitu būtu katru reizi klikšķis vai jūs ieteiktu

  5. Francis (CR) teica:

    Bena DEMA ... T apsveikt savu vietu! Ir d muxa palīdzību!

  6. Noriega saka:

    Es esmu mācīšanās programma man ir šī programma un man ir nepieciešams, kad es ievadu dublikātus datiem, kas jau pastāv Q pasakiet man, un es atstāt tukšu to cambos lai ievadītu citu

    Valsts klases Form1

    Private Sub Button1_Click (ByVal sender Kas System.Object, ByVal e As System.EventArgs) Rokturi Button1.Click

    Ja TextBox1.Text = "" Un TextBox2.Text = "" Tad
    MessageBox.Show ("Kods un nosaukums nevar iet White")
    Beigas Ja

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

    I = 0 Lai ListView1.Items.Count-1

    Ja TextBox1.Text = ListView1.Items (es) Tad teksts.
    MessageBox.Show ("Ieraksts jau eksistē")
    Beigas Ja

    Nākamais

    End Sub
    Beigas klase

Komentēt