Попарная замена элементов в массиве - VB

Формулировка задачи:

Не могу сделать задачу!!!Помогите ПОЖАЛУЙСТА!!!!!Нужно сформировать массив и выполнить попарную замену элементов в массиве.(Кол-во элементов в массиве должно быть четное) Я сделала часть массива.Не знаю как сделать так,чтобы было именно четное кол-во элементов в массиве и как выполнить попарную замену.Например ( 6 7 8 9 1 3) ,замена (7 6 9 8 3 1 ) -нужно вот так сделать.
Dim a(1 To 100) As Integer
Dim N As Integer
Dim I As Integer
 
Private Sub Command1_Click()
N = Text1.Text
For I = 1 To N
 a(I) = InputBox("Кол-во чисел" & I)
 Next I
 
 
End Sub
 
Private Sub Command2_Click()
Dim S As String
N = Text1.Text
S = ""
For I = 1 To N
 S = S & a(I) & "    "
 Next I
 Text2.Text = S
End Sub

Код к задаче: «Попарная замена элементов в массиве - VB»

textual
Private Sub Command4_Click()
Dim S As Integer
N = Text1.Text
: NAX
K = InputBox("ВВедите К")
if K<=0 or K>N then msgbox "AuAuAu": goto NAX
S = 0
For I = K To N
 S = S + a(I)
Next
Text5.Text = S
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 3.750 из 5


СДЕЛАЙТЕ РЕПОСТ