free hosting   image hosting   hosting reseller   online album   e-shop   famous people

Ejemplos de ciclos

Genere un nuevo proyecto, coloque un textbox llamado txtSerie, un textbox llamado txtAcumula y un botón llamado btnCalcula. El código mostrado a continuación es cuando se da clic sobre el botón btnCalcula.

a) 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30

Dim iCont As Integer
For iCont = 2 To 30 Step 2
    txtSerie.Text = txtSerie.Text + ", " + Str(iCont)
Next

b) 1/2, 1/3, 1/4, 1/5, 1/6, 1/7, 1/8, 1/9, 1/10

Dim iCont As Integer
For iCont = 2 To 10 Step 1
    txtSerie.Text = txtSerie.Text + "1/" + Trim(Str(iCont)) + ", "
Next

c) 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0

Dim iCont As Integer
For iCont = 10 To 0 Step -1
    txtSerie.Text = txtSerie.Text + Str(iCont) + ", "
Next

d) -1, 2, -3, 4, -5, 6, -7, 8, -9, 10, -11, 12, -13, 14, -15

Varias formas de solucionarlo, esta es una:

Dim iCont As Integer
For iCont = 1 To 15 Step 1
    If iCont Mod 2 = 0 Then
        txtSerie.Text = txtSerie.Text + Str(iCont) + ", "
    Else
        txtSerie.Text = txtSerie.Text + "-" + Trim(Str(iCont)) + ", "
    End If
Next

Esta es otra forma de solucionarlo

Dim iCont As Integer
For iCont = 1 To 15 Step 1
    If iCont Mod 2 = 0 Then
        txtSerie.Text = txtSerie.Text + Str(iCont) + ", "
    Else
        txtSerie.Text = txtSerie.Text + Trim(Str(-iCont)) + ", "
    End If
Next

Esta es una tercera forma de solucionarlo

Dim iCont As Integer
For iCont = 1 To 15 Step 1
    txtSerie.Text = txtSerie.Text + Str(iCont * (-1) ^ iCont) + ", "
Next

e) 1/10, 2/9, 3/8, 4/7, 5/6, 6/5, 7/4, 8/3, 9/2, 10/1

Dim iCont As Integer
For iCont = 1 To 10 Step 1
    txtSerie.Text = txtSerie.Text + Trim(Str(iCont)) + "/" + Trim(Str(11 - iCont)) + ", "
Next

f) Sumar 1/10 +  2/9 + 3/8 + 4/7 + 5/6 + 6/5 + 7/4 + 8/3 + 9/2 + 10/1

Dim iCont As Integer
Dim fAcumula As Single

fAcumula = 0
For iCont = 1 To 10 Step 1
    fAcumula = fAcumula + iCont / (11 - iCont)
Next
txtAcumula.Text = Str(fAcumula)

g) Suma e imprime 1 + 31 + 2 + 32 + 3 + 33 + 4 + 34 + 5 + 35 + 6 + 36 + 7 + 37 + 8 + 38

Dim iCont As Integer
Dim fAcumula As Single

fAcumula = 0
For iCont = 1 To 8 Step 1
    fAcumula = fAcumula + iCont + (iCont + 30)
    txtSerie.Text = txtSerie.Text + Str(iCont) + "+" + Str(iCont + 30) + "+"
Next
txtAcumula.Text = Str(fAcumula)

h) Imprime 17, 18, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 20, 21

Dim iCont As Integer

txtSerie.Text = "17, 18, "
For iCont = 1 To 10 Step 1
    txtSerie.Text = txtSerie.Text + Str(iCont) + ", "
Next
txtSerie.Text = txtSerie.Text + " 20, 21"