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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

63
Рис. 2. Форма для ввода элементов массива и вывода сообщения
Задача 3. Дан одномерный массив A(M). Составить программу заме-
ны каждого члена последовательности А , кроме первого и последнего , на
сумму окаймляющих. Преобразованную последовательность выдать в
форме. Для ввода элементов исходного массива и вывода преобразованно -
го массива в форму использовать форму, приведенную на рис.3.
Ниже приведена программа на языке Visual Basic для решения этой
задачи.
Option Explicit
' Задать одномерный массив и заменить элементы на сумму окаймляющих
Option Base 1
Dim a() As Integer
Dim SUM() As Integer
Dim M, i, s, r As Integer
Dim sTemplate As String
Dim zzz As Variant
'Просчет
Private Sub Command2_Click()
s = a(1)
For i = 2 To M - 1
r = a(i)
a(i) = s + a(i + 1)
s = r
Next i
' Вывод массива на экран
For i = 1 To M
List1.AddItem a(i)
Next i
End Sub 
                                     63




     Рис. 2. Ф о рмадля вво даэлементо вмассиваи вы во дасо о бщ ения

      З адача 3. Д ан о дно мерны й массив A(M). Со ставить про г раммузаме-
ны каж до г о члена по следо вательно сти А , кро ме перво г
                                                           о и по следнег
                                                                        о , на
сумм у о кай мляю щ их. П рео бразо ванную по следо вательно сть вы дать в
фо рме. Д ля вво да элементо висхо дно го массива и вы во дапрео бразо ванно -
го массивавфо рмуиспо льзо вать фо рму, приведенную нарис.3.
      Н иж е приведена про г  рамма на язы ке Visual Basic для реш ения это й
задачи.
Option Explicit
' Задать о дно мерны й массиви заменить элементы насумм уо кай м ляю щ их
Option Base 1
Dim a() As Integer
Dim SUM() As Integer
Dim M, i, s, r As Integer
Dim sTemplate As String
Dim zzz As Variant

'П ро счет
Private Sub Command2_Click()
s = a(1)
For i = 2 To M - 1
r = a(i)
a(i) = s + a(i + 1)
s=r
Next i
' В ы во д массиванаэкран
For i = 1 To M
List1.AddItem a(i)
Next i
End Sub

Страницы