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
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
解决方案 »
- 提前预约的事情怎么在日历显示出来
- DotNetNuke有没有C#版的?
- GridView的HyperLinkFiled列的显示字数问题. 在线======================================
- 紧急求救!!!!!这段代码为什么总说缺少对象呢,捆扰了一个上午了!!!
- 100分求助iframe的弹出窗口问题.
- <?IMPORT NAMESPACE="KDWEB" IMPLEMENTATION="../public/htc/toolbar/toolbar.htc" />
- 帮我看看
- NPOI获取行数有问题,难到是BUG?大家来看下。
- 求救啊!!大神们如何将网页上输入的数按提交按钮自动保存到本地excel等表格中
- 恭贺斑竹大人入选MVP
- 两道算法题,.................................................
- gridview区分两个选择按钮
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);
}
}
{
if (k==1)
{
r[i]=j;
k=0;
j++;
if (j>13) break;
else
k=1;这一节没看懂