Пары игроков - VB
Формулировка задачи:
в шахматы играет 8 человек. вывести все возможные пары игроков. (Иванов, Петров, Сидоров, Попов, Машин, Кошкин, Чадов, Симонов).
Решение задачи: «Пары игроков»
textual
Листинг программы
Option Explicit
Private Sub Form_Load()
Dim sG, S As String, i As Integer, j As Integer, k As Integer
sG = Array("Иванов", "Петров", "Сидоров", "Попов", "Машин", "Кошкин", "Чадов", "Симонов")
For i = 0 To UBound(sG)
For j = i + 1 To UBound(sG)
k = k + 1
S = S & CStr(k) & ". " & sG(i) & " - " & sG(j) & vbCrLf
Next j
Next i
MsgBox S
End Sub