Visual basic 6.0 циклы
Есть два комбобокса. Первый аналогичен второму. Данные : 1 2 3 4 5 1 2 3 4 5 (во 2-м то же самое) . При выборе 5, например, со второй пятерки выберается 4 со второй пятерки
Интересует текст
x y При выборе в комбо1 "3+" в комбо2 выбирается "2+"
1 1
2 2
3 3
1 1
2 2+
3+ 3
Dim i, s, v, l, h, n As Long
Private Sub Combo2_Click()
Combo3.ListIndex = Combo2.ListIndex
Combo1.Text = Combo2.Text - 1
End Sub
Private Sub Form_Load()
Combo1 = l
For l = 6 To l - 1 Step -1
Debug.Print l;
Next
For s = 1 To 5 Step 2
Combo1.AddItem s
Next
For h = 1 To 3
Combo1.AddItem h
Next
For i = 1 To 3
Combo2.AddItem i
Next
For n = 1 To 3
Combo2.AddItem n
Next
End Sub