Упорядочить массивы

@Селина · Регистрация: 24.05.2010

Author24 — интернет-сервис помощи студентам

Задали написать программу в VB и я никак не могу догнать как:
вот два примера, если кто то может помогите...плиииз, а то на экзамене убьют...
1. Пусть задан одномерный массив размерностью 19, произвести симметричную замену элементов
В лучшем случае, если программа работает, она выводит в лейбл значения только до середины=((вообще не знаю как делать дальше
2. Одномерный целый массив упорядочить в порядке возрастания...
Искала, но везде все на паскале или С++, а мы на VB до сих пор строчим..помогите плиз...

@vsevolodkoif · 25.05.2010, 15:18

Вот вторая задачка, а первая попозже

Visual Basic

Private Sub CommandButton1_Click()
Dim i As Integer
Dim A(1 To 10) As Integer
For i = 1 To 10
A(i) = InputBox("введите элемент массива", "введите элемент массива")
Next i
ListBox1.List = A
For i = 1 To 10
For j = 1 To 9
If A(j) > A(j + 1) Then k = A(j): A(j) = A(j + 1): A(j + 1) = k
Next j
Next i
ListBox2.List = A
End Sub

Добавлено через 2 часа 17 минут
Вот вроде то, что нужно:

Visual Basic

Private Sub CommandButton1_Click()
Dim i As Integer
Dim A(1 To 19) As Integer
Dim B(1 To 19) As Integer
For i = 1 To 19
A(i) = Int(Rnd(1) * 100 - 50)
Next i
ListBox1.List = A
For j = 1 To 19
B(j) = A(20 - j)
Next j
ListBox2.List = B
End Sub

@Селина · 26.05.2010, 16:37 **[ТС]**

Спасибо большущее, а то вообще понять не могла, а к экзамену надо..

@Селина 0 / 0 / 0 Регистрация: 24.05.2010 Сообщений: 4
		1
	Упорядочить массивы 25.05.2010, 11:53. Показов 613. Ответов 2 Метки нет (Все метки) Задали написать программу в VB и я никак не могу догнать как: вот два примера, если кто то может помогите...плиииз, а то на экзамене убьют... 1. Пусть задан одномерный массив размерностью 19, произвести симметричную замену элементов В лучшем случае, если программа работает, она выводит в лейбл значения только до середины=((вообще не знаю как делать дальше 2. Одномерный целый массив упорядочить в порядке возрастания... Искала, но везде все на паскале или С++, а мы на VB до сих пор строчим..помогите плиз... 0

@Селина 0 / 0 / 0 Регистрация: 24.05.2010 Сообщений: 4
	26.05.2010, 16:37 [ТС]	3
	Спасибо большущее, а то вообще понять не могла, а к экзамену надо.. 0