7,763
社区成员
发帖
与我相关
我的任务
分享关于数字金字塔的算法问题，高手请进！！！！！！
1
121
12321
1234321
123454321
12345654321
1234567654321
123456787654321
12345678987654321
请问上述数字金字塔如何在VB中实现？？？？
121
12321
1234321
123454321
12345654321
1234567654321
123456787654321
12345678987654321
请问上述数字金字塔如何在VB中实现？？？？
...全文
请发表友善的回复…
发表回复
13161795500 2003-02-12
- 打赏
- 举报
Private Sub Command1_Click()
Dim x(1 To 9, 1 To 17) As String
For i = 1 To 9
For j = 1 To 17
x(i, j) = IIf(i - Abs(9 - j) <= 0, " ", i - Abs(9 - j))
Me.Print x(i, j);
Next
Me.Print
Next
Me.Print
End Sub
Dim x(1 To 9, 1 To 17) As String
For i = 1 To 9
For j = 1 To 17
x(i, j) = IIf(i - Abs(9 - j) <= 0, " ", i - Abs(9 - j))
Me.Print x(i, j);
Next
Me.Print
Next
Me.Print
End Sub
northwolves 2003-02-11
- 打赏
- 举报
Private Sub Command1_Click()
Dim x(2 To 9, 1 To 17) As String
For i = 2 To 9
For j = 1 To 17
x(i, j) = IIf(i - Abs(9 - j) <= 0, " ", i - Abs(9 - j))
Me.Print x(i, j);
Next
Me.Print
Next
Me.Print
End Sub
Dim x(2 To 9, 1 To 17) As String
For i = 2 To 9
For j = 1 To 17
x(i, j) = IIf(i - Abs(9 - j) <= 0, " ", i - Abs(9 - j))
Me.Print x(i, j);
Next
Me.Print
Next
Me.Print
End Sub
13161795500 2003-02-11
- 打赏
- 举报
up
13161795500 2003-02-11
- 打赏
- 举报
帮我看看？
http://expert.csdn.net/Expert/topic/1416/1416130.xml?temp=.6738855
http://expert.csdn.net/Expert/topic/1416/1416130.xml?temp=.6738855
13161795500 2003-02-11
- 打赏
- 举报
Private Sub Command1_Click()
For i = 1 To 9
Me.Print Space(30 - 3 * i);
For j = 1 To i
Me.Print j;
Next j
For j = 1 To i - 1
Me.Print i - j;
Next j
Print
Next i
End Sub
For i = 1 To 9
Me.Print Space(30 - 3 * i);
For j = 1 To i
Me.Print j;
Next j
For j = 1 To i - 1
Me.Print i - j;
Next j
Next i
End Sub
minajo21 2003-02-11
- 打赏
- 举报
高中的时候就学过吧，书上有算法的，太长时间了，实在想不起来。
bafce 2003-02-11
- 打赏
- 举报
用循环做啊，一个控制数字，一个控制空格个数不就可以了～？！具体怎么实现自己想一想就出来了～！
minajo21 2003-02-11
- 打赏
- 举报
杨辉三角--数字金字塔
