Приложение: 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
|