Оператори за цикли във Visual Basic 2010

Eni трудност:

видян: 1511

Контролите във формата са четири Button и четири List Box.

List Box са преименувани с подходящи имена. Резултата след всяко изпълнение на съответният цикъл се записва в List Box.

В началото на кода се декларират променливите S и i , а в началото на всяка процедура те се инициализират (задават им се начални стойности).

Public Class Form1

Dim S, i As Integer

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

Dim Br As Byte

S = 0

For Br = 1 To 10

S = S + Br

lbL_For.Items.Add(S)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

S = 0

i = 1

While i <= 10

S = S + i

i = i + 1

lbL_While.Items.Add(S)

End While

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

S = 0

i = 1

Do While i <= 10

S = S + i

i = i + 1

lbL_Do.Items.Add(S)

Loop

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

S = 0

i = 1

Do Until i > 10

S = S + i

i = i + 1

lbL_Unit.Items.Add(S)

Loop

End Sub

End Class

Регистрирайте се, за да добавите коментар