Вторник, 12.11.2024, 01:31
Главная | Регистрация | Вход Приветствую Вас Гость | RSS


Меню сайта


Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Тестування онлайн
тестування онлайн 


Социальные закладк

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

Форма входа
Поиск
Календарь
«  Ноябрь 2024  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
252627282930
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Рейтинг@Mail.ru
    Copyright MyCorp © 2024
    Конструктор сайтов - uCoz