По нажатию кнопки поменять местави элементы списка местами - VB
Формулировка задачи:
Привет.
Помогите пожалуйста. 2 списка, кнопка. По нажатию кнопки первый и последний элемент первого и второго списка поменять местами.
Решение задачи: «По нажатию кнопки поменять местави элементы списка местами»
textual
Листинг программы
Private Sub Command1_Click() a = List1.List(0) List1.List(0) = List2.List(9) List2.List(9) = a a = List1.List(9) List1.List(9) = List2.List(0) List2.List(0) = a End Sub Private Sub Form_Load() For i = 1 To 10 List1.AddItem (i) List2.AddItem (i) Next i End Sub