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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

65
Задача 4. Дан одномерный массив A. Составить программу измене-
ния на обратный порядок следования элементов в массиве с последующим
умножением каждого элемента последовательности на среднее арифмети -
ческое элементов последовательности А . Для ввода элементов исходного
массива и вывода преобразованного массива в форму использовать форму,
приведенную на рис .4.
Ниже приведена программа на языке Visual Basic для решения этой
задачи.
Option Base 1
' Ввести массив, поменять порядок следования элементов на обратный и
умножить каждый элемент на среднее арифметическое
Dim a() As Long
Dim i, c, sr As Integer
Dim razm1 As Integer
Dim sTemplate As String
Private Sub Command1_Click()
List1.Clear
End Sub
Private Sub Command2_Click()
For i = 1 To razm1
List1.AddItem a(i)
Next i
End Sub
Private Sub Command4_Click()
For i = 1 To ((razm1 / 2))
c = a(i): a(i) = a(razm1 - i + 1): a(razm1 - i + 1) = c
Next i
For i = 1 To razm1
sr = sr + a(i)
Next i
sr = sr / razm1
For i = 1 To razm1
a(i) = a(i) * sr
Next i
End Sub
Private Sub Command5_Click()
End
End Sub
Private Sub Command7_Click()
If Text1.Text = "" Then GoTo 10 
                                          65
       З адача 4. Д ан о дно мерны й массив A. Со ставить про граммуизмене-
ния нао братны й по рядо к следо вания элементо в вмассиве с по следую щ им
умно ж ением каж до г  о элемента по следо вательно сти на среднее арифмети-
ческо е элементо в по следо вательно сти А . Д ля вво да элементо в исхо дно го
массива и вы во дапрео бразо ванно г  о массива вфо рм уиспо льзо вать фо рму,
приведенную нарис.4.
       Н иж е приведена про г  рамма на язы ке Visual Basic для реш ения это й
задачи.
Option Base 1
' В вести массив, по менять по рядо к следо вания элементо внао братны й и
умно ж ить каж ды й элементнасреднееарифметическо е
Dim a() As Long
Dim i, c, sr As Integer
Dim razm1 As Integer
Dim sTemplate As String

Private Sub Command1_Click()
List1.Clear
End Sub

Private Sub Command2_Click()
For i = 1 To razm1
List1.AddItem a(i)
Next i
End Sub

Private Sub Command4_Click()
For i = 1 To ((razm1 / 2))
c = a(i): a(i) = a(razm1 - i + 1): a(razm1 - i + 1) = c
Next i
For i = 1 To razm1
sr = sr + a(i)
Next i
sr = sr / razm1
For i = 1 To razm1
a(i) = a(i) * sr
Next i
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Command7_Click()
If Text1.Text = "" Then GoTo 10

Страницы