Visual Basic. Теория. Нагина Е.К - 59 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

59
For nCounter=100 To 1 Step –10
nDecades(nCounter) = nCounter * 2
If nDecades(nCounter) > 20 Then Exit For
Next
Оператор Exit служит также для выхода из процедур Sub и Function.
Синтаксис операторов в этом случае соответственно Exit Sub и Exit Func-
tion. Эти операторы могут находиться в любом месте тела процедуры . Они
используются в том случае, когда процедура выполнила нужные действия
и из нее необходимо выйти .
10. Разработка программ с использованием форм
пользователя
Рассмотрим несколько программ
∗
по обработке одномерных и дву-
мерных массивов с использованием форм для ввода исходных и вывода
преобразованных массивов.
Задача 1. Дан двумерный массив числовых значений A(N,M). Сфор-
мировать одномерный массив, элементами которого являются суммы эле-
ментов каждой строки исходного массива. Сформированный массив вы -
вести на экран в строку. Для ввода элементов исходного массива и вывода
сформированного массива использовать форму, приведенную на рис .1.
Ниже приведена программа на языке Visual Basic для решения этой
задачи.
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
'Просчет
Private Sub Command2_Click()
ReDim SUM(M * 2) ' Результирующий массив
For i = 1 To M
SUM(i) = 0
For j = 1 To N
∗
Программы написаны студентами Кретининым К., Коломенским А . 
                                                    59
          For nCounter=100 To 1 Step – 10
          nDecades(nCounter) = nCounter * 2
           If nDecades(nCounter) > 20 Then Exit For
          Next

       О перато р Exit служ иттакж е для вы хо да из про ц едур Sub и Function.
Синтаксис о перато ро в в это м случае со о тветственно Exit Sub и Exit Func-
tion. Э ти о перато ры мо г
                          утнахо диться в лю бо м месте тела про ц едуры . О ни
испо льзую тся в то м случае, ко г
                                 да про ц едура вы по лнила нуж ны е дей ствия
и из нее нео бхо димо вы й ти.

        10. Разработка программ сиспол ьзованием ф орм
                         пол ьзовател я
      Рассмо трим неско лько про грамм ∗ по о брабо тке о дно мерны х и дву-
мерны х массиво в с испо льзо ванием фо рм для вво да исхо дны х и вы во да
прео бразо ванны х массиво в.
      З адача 1. Д ан двумерны й массив число вы х значений A(N,M). Сфо р-
миро вать о дно мерны й массив, элементами ко то ро г о являю тся сум мы эле-
менто в каж до й стро ки исхо дно го массива. Сфо рмиро ванны й массив вы -
вести на экран в стро ку. Д ля вво даэлементо висхо дно г о массива и вы во да
сфо рмиро ванно г о массиваиспо льзо вать фо рм у, приведенную нарис.1.
       Н иж е приведена про г рамма на язы ке Visual Basic для реш ения это й
задачи.

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

'П ро счет
Private Sub Command2_Click()
ReDim SUM(M * 2) ' Результирую щ ий массив
For i = 1 To M
SUM(i) = 0
For j = 1 To N

∗
    П ро г
         раммы написаны студентами Кретинины м К ., К о ло менским А .

Страницы