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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

67
Option Explicit
' Задать одномерный массив и заменить элементы на сумму окайм -
ляющих
Option Base 1
Dim a() As Integer
Dim M, i, s, r As Integer
Dim sTemplate As String
7. Записать программный код для объекта кнопка Command2 (Про-
счет ) , поместив в событие Click() следующие операторы :
'Просчет
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
8. Записать программный код для объекта кнопка Command3 (Выход) ,
поместив в событие Click() следующие операторы :
Private Sub Command3_Click()
End
End Sub 
                                         67
   Option Explicit
   ' Зад а т ь од н ом ерн ый м а ссив и за м ен ит ь эл ем ен т ы н а су м м у ока йм -
   л яющих
   Option Base 1
   Dim a() As Integer
   Dim M, i, s, r As Integer
   Dim sTemplate As String




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

   'П ро счет
   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
8. Записа т ь програ м м н ый код д л я объект а кн опка Command3 (В ы х од),
   пом ест ив в событие Click() сл ед у ющие опера т оры:

   Private Sub Command3_Click()
   End
   End Sub

Страницы