Visual Basic. Практика. Ищенко В.А - 60 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

60
Продолжение табл . 14
1 2 3 4
5
Список ListBox List1 List – пусто
Текстовое
поле 2
TextBox2 Text2
Text – пусто
Change() – присваи-
вает значение свой-
ства Text перемен -
ной N в формате
целого числового
значения с помо-
щью функции Cint.
Событие KeyPress()
– проверяет , являет -
ся ли введенный
символ в поле Text2
любым другим сим-
волом (т.е. недопус-
тимым ), кроме цифр
от 0 до 9.
Метка Label
По умолча -
нию
Caption – Задать
размерность
Рамка 1 Frame1
По умолча -
нию
Caption – Задать
вручную
Рамка 2 Frame2
По умолча -
нию
Caption – Резуль-
тат
5. Задать дополнительные свойства форме и объектам управления, рас-
положенным на ней (аналогично табл . 2).
6. В общей области модуля формы (General) ввести код , описывающий
типы переменных:
Option Explicit
' Ввести элементы двумерного массива, посчитать сумму элемен -
тов каждой строки , составить одномерный массив из этих сумм и
вывести его на экран .
Option Base 1
Dim a() As Integer
Dim SUM() As Integer
Dim M, N, i, j As Integer
Dim sTemplate As String
Dim zzz As Variant
7. Записать программный код для объекта КнопкаВычислить , помес-
тив в событие Click() следующие операторы :
'Просчет
Private Sub КнопкаВычислить _Click()
ReDim SUM(M) ' Результирующий массив
For i = 1 To M 
                                                 60
                                                                              П род ол ж ен ие т а бл . 14
     1                 2                 3                      4                          5
С писок             ListBox            List1          List – пу ст о
                                                                               Change() – присва и-
                                                                               ва ет зн а чен ие свой-
                                                                               ст ва Text перем ен -
                                                                               н ой N в ф орм а т е
                                                                               цел ого      числ ового
                                                                               зн а чен ия с пом о-
                                                                               щь ю ф у н кции Cint.
Т екст овое
                    TextBox2          Text2           Text – пу ст о           С обыт ие KeyPress()
пол е 2
                                                                               – проверяет, явл яет -
                                                                               ся л и введ ен н ый
                                                                               сим вол в пол е Text2
                                                                               л юбым д ру гим сим -
                                                                               вол ом (т .е. н ед опу с-
                                                                               т им ым ), кром е циф р
                                                                               от 0 д о 9.
                                   П о у м ол ча -    Caption – Зад а т ь
М ет ка               Label
                                       н ию           ра зм ерн ост ь
                                   П о у м ол ча -    Caption – Зад а т ь
Р а м ка 1           Frame1
                                       н ию           вру чн у ю
                                   П о у м ол ча -    Caption – Р езу л ь -
Р а м ка 2           Frame2
                                       н ию           та т

   5. Зад а т ь д опол н ит ел ь н ые свойст ва ф орм е и объект а м у пра вл ен ия, ра с-
      пол ож ен н ым н а н ей (а н а л огичн о та бл . 2).
   6. В общей обл а ст и м од у л я ф орм ы (General) ввести код , описыва ющий
      т ипы перем ен н ых:

          Option Explicit
          ' Ввест и элемен т ы дву мерн о го масси ва, по счи т ат ь су мму эл емен -
          т о в к аж до йст ро к и , со ст ави т ь о дн о мерн ы ймасси в и з эт и х су мм и
          вы вест и его н а эк ран .
          Option Base 1
          Dim a() As Integer
          Dim SUM() As Integer
          Dim M, N, i, j As Integer
          Dim sTemplate As String
          Dim zzz As Variant

   7. Записа т ь програ м м н ый код д л я объект а К нопкаВ ы ч ис лить , пом ес-
      т ив в событие Click() сл ед у ющие опера торы:

          'П ро счет
          Private Sub К нопкаВ ы ч ис лить _Click()
          ReDim SUM(M) ' Резу л ьт и ру ющ и ймасси в
          For i = 1 To M

Страницы