UC知道VB的循环语句
来源：百度知道 编辑：UC知道 时间：2024/06/15 10:00:31
Private Sub Form_Click()
For i = 1 To 9
Print Tab(54); i;
For j = 2 To i
a = i - j + 1
Print Tab((10 - j) * 6); a; Tab((8 + j) * 6); a;
Next j
Print
Next i
End Sub
为什么打出来的表不是这样的
1
1 2 1
1 2 3 2 1
??????
该怎么改????
打错了...那排列中金字塔形的
For i = 1 To 9
Print Tab(54); i;
For j = 2 To i
a = i - j + 1
Print Tab((10 - j) * 6); a; Tab((8 + j) * 6); a;
Next j
Next i
End Sub
为什么打出来的表不是这样的
1
1 2 1
1 2 3 2 1
??????
该怎么改????
打错了...那排列中金字塔形的
如果要按照三角形来排列,我做的代码就是这样
Private Sub Form_Click()
For i = 1 To 9
For j = 1 To i - 1
Print Tab(54 - (6 * (i - j))); j;
Next j
Print Tab(54); i;
For k = i - 1 To 1 Step -1
Print Tab(54 + (6 * (i - k))); k;
Next k
Print
Next i
End Sub
因为tab的移位太大,不能显示全部的数字,所以我把参数改小了,以下是修改后的代码:
Private Sub Form_Click()
For i = 1 To 9
For j = 1 To i - 1
Print Tab(27 - (3 * (i - j))); j;
Next j
Print Tab(27); i;
For k = i - 1 To 1 Step -1
Print Tab(27 + (3 * (i - k))); k;
Next k
Print
Next i
End Sub
Private Sub Form_Click()
For i = 1 To 9
For j = 1 To i
Print j;
Next j
For k = j-1 To 1 Step -1
Print k;
Next k
Print
Next i
End Sub
这个绝对正确！你可以运行一下试试！