例如：如图所示，有4个队8位队员，地上一排格子的数字依次为2、1、1、7、9、2、5、6。若某队甲队员站在第4个格子，则其分数为2+1+1+7=11；乙队员站在第7个格子，则其分数为5+6=11。两者相等，则该队获胜。

Dim a(1 To 15) As Integer

Private Sub Form_Load()

  Dim i As Integer, t As Integer

  Dim s1 As String, s2 As String

  Randomize

  s1 = ""

  For i = 1 To 15

    a(i) =  ①    

    s1 = s1 + Str(a(i))

  Next i

  Text1.Text = s1

End Sub

Private Sub Com1_Click()

  s2 = ""

  For i = 1 To 15

    s2 =  ②    

  Next i

  Text2.Text = s2

End Sub

i=0

while i<6:

   print

   i=i+1