Private Sub Command1_Click()
   
  Dim i As Integer, j As Integer, k As Integer
  Dim r(13) As Integer
   
  i = 0
  j = 1
  k = 0
   
  Do
    
  i = i + 1
  If i > 13 Then i = 1
    
    
  If r(i) = 0 Then
  If k = 1 Then
  r(i) = j
  k = 0
    
  j = j + 1
  If j > 13 Then Exit Do
    
  Else
  k = 1
  End If
  End If
  Loop
   
   
  For i = 1 To 13
  Print r(i)
  Next
   
End Sub

解决方案 »

  1.   


            private void Command1_Click()
            {
                int i=0, j =0, k =0;
                int[] r = new int[13];
                for(i=0;i<13;i++)
                {
                    if (r[i]== 0)
                    {
                        if (k==1)
                        {
                            r[i]=j;
                            k=0;
                            j++;
                            if (j>13) break;
                            else
                                k=1;
                        }
                    }
                }
                for(i=1;i<=13;i++)
                {
                    Console.Write(i);
                }
            }
      

  2.   

    if (r[i]== 0)
                    {
                        if (k==1)
                        {
                            r[i]=j;
                            k=0;
                            j++;
                            if (j>13) break;
                            else
                                k=1;这一节没看懂