求用VB语言编写体育比赛单循环赛制（追加悬赏）

Question

假设有n支队，怎么样用VB编辑单循环赛制？

Answer 1

Private Sub Command1_Click()
Dim s As Long, k As Long, i As Long, l As Long, t1 As Long
Dim dt As Boolean
Dim a(), b()

s = Val(InputBox("请输入参赛队数量", "输入", ""))
dt = True
If s Mod 2 = 1 Then
s = s + 1
dt = False
End If

Print " ";
For k = 1 To s / 2
Print "第" & k & "场 ";
Next
Print

ReDim a(s / 2 - 1)ReDim b(s / 2 - 1)
a(s / 2 - 1) = 1
For k = s To 2 Step -1
b(s / 2 - 1) = k
t1 = s / 2 - 2
For i = 0 To s / 2 - 2
a(t1) = IIf(k + 1 + i > s, k + 2 + i - s, k + 1 + i)
b(t1) = IIf(k - 1 - i < 2, k - 2 - i + s, k - 1 - i)
t1 = t1 - 1
Next

Print "第" & s - k + 1 & "轮: ";
For l = s / 2 - 1 To 0 Step -1
Print IIf(dt = False, Replace(a(l), s, "0"), a(l)) & "-" & IIf(dt = False, Replace(b(l), s, "0"), b(l)) & " ";
Next
t1 = 0
Print

Next
End Sub追问

名次 队名 场次 胜 平 负 进球 失球 积分
1 曼联 17 14 0 3 43 24 42
2 曼城 17 10 6 1 33 15 36
3 切尔西 16 8 5 3 28 17 29
碰VB大神了，我追加50 如果我想做一张类似这样的积分榜，要动态反映每一轮结果，怎么做好？

追答

你的意思是输入每场双方比分，然后得出排行榜，

追问

是的 每过一轮将每轮结果录入积分榜 最好用什么控件 怎么做？

追答

请贴邮箱，我发给你

追问

[email protected]

追答

已发1.rar

Answer 2

Private Sub Command1_Click()
Dim n As Integer, k As Integer
Dim s As String
n = Val(InputBox("请你输入对数"))
If n <= 26 Then
Print "对阵如下："
For i = 1 To n
For j = i + 1 To n
s = s & Chr(i + 64) & "队 VS " & Chr(j + 64) & "队 "
k = k + 1
If k Mod 8 = 0 Then s = s & vbCrLf
Next j
Next i
Print s
Else
MsgBox "输入队数过多"
End If
End Sub

Private Sub Form_Load()
Me.AutoRedraw = True
End Sub