Pr16

   Проект коды символов.

На форме

Listbox1, listbox2, button1.

   Окна для вывода списка строк вытянуты вертикально на всю форму.

Окно2 в 2 раза шире.

В первом окне только коды, во втором коды и их символы.

 

Private sub button1_click()

Dim n as integer

For n=127 to 33 step –1

  Listbox1.add(n)

 Listbox2.add(n & “ “ & chr(n))

Next

End

 

   Примечание.

Символы выводятся по убыванию кода.

Строковые функции не обрабатывают коды больше 127.

   Программа показывает применение оператора повторения с параметром.