高考问答仙境传说猎人工会在哪:VB 简化代码
来源：百度文库 编辑：高考问答 时间：2024/04/25 15:01:44
a = ""
j = 0
k = 1
Label1.Visible = False
For i = 1 To 1000
If i Mod 11 = 0 Then
a = Str(i)
j = j + 1
ss: If j = 11 - k Then
a = a & Chr(13)
j = 0
k = k + 1
End If
If k > 10 Then
k = k - 10
GoTo ss
End If
Print a;
End If
Next
j = 0
k = 1
Label1.Visible = False
For i = 1 To 1000
If i Mod 11 = 0 Then
a = Str(i)
j = j + 1
ss: If j = 11 - k Then
a = a & Chr(13)
j = 0
k = k + 1
End If
If k > 10 Then
k = k - 10
GoTo ss
End If
Print a;
End If
Next
k = 10
j = 0
For i = 11 To 1000 Step 11
j = j + 1
Print i;
If j = k Then
Print
k = k - 1
j = 0
If k = 0 Then k = 10
End If
Next
问题多多的代码