Приложение: table.rar
for to kod.rar

Занятие 30.1  Оператор цикла For . . . Next. Примеры

Пример 2.
Разработка проекта "Таблица умножения"

Интерфейс проекта.                                                                               Блок - схема

    

 

Программный код

Private Sub Button1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button1.Click

        Dim n, i  As Integer
        n = Val(TextBox1.Text)

        For i = 1 To n
            ListBox1.Items.Add(n  &  " * "  &  i  &  "   =   "  &  n * i)
        Next

End Sub

    Private Sub Button2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button2.Click

        ListBox1.Items.Clear()
        TextBox1.Text = ""

    End Sub

 

Пример 3
Разработка проекта "Определение символа по его коду"

 

Интерфейс проекта.                                                                                           Блок - схема

Private Sub Button1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button1.Click

        Dim i, a As Object
        Dim b As Short
        Dim y As String

        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)

        For i = a To b
            y = Chr(i)
            ListBox1.Items.Add(Str(i) &  vbTab  &  vbTab  &  y)
        Next i
    End Sub

Private Sub Button2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        ListBox1.Items.Clear()
    End Sub

Задания

1. Выполните в таблице фрагмент программы и выясните, какими будут значения переменных после его завершения:
а)
р = 1 :  а =2
for і = 1 to 5
a =3*a +1
p:=p*a;
next i

6)
k = 1 :  a = 12
do while a < 100 
a =2*a-4
k = k + 1
loop

в)
s = О :  а =1 :  к = 1
do
s =s + a
k = k + 1
a = k*k
loop until a > 50

2. Выполните фрагмент программы и выясните, какими будут значения переменных после его завершения:

а)	б)	в)
р = 1 :  а  = 8 for і = 1  to 4 a =2*a-5  p =p*a next i	к =1 : а =100 do ​while a > 10  a  = a div 2 k = k + 1  loop	s = 0 :  а = 5428  do с = a mod 10  s  = s + c  a = a div 1 0  loop  until a <1

занятие 31.1