[已解决]EXCEL高手用VBA实现编写显示下面倒向三角形

vbyou127

EXCEL高手用VBA实现编写显示下面倒向三角形

用VBA编写显示如下图

最佳答案

月排行榜 / 总排行榜

龙城飞将III

2016-2-12 11:00

1. Function CreateStr(intNumber As Integer)
   
2.     Dim i As Integer
   
3.     Dim Str As String
   
4.     For i = 1 To intNumber
   
5.         Str = Str & Chr(10) & Space(i - 1) & String(intNumber * 2 - i * 2 + 1, "*") & Space(i - 1)
   
6.     Next
   
7.     CreateStr = Mid(Str, 2, Len(Str) - 1)
   
8. End Function
   
9. Sub Test()
   
10.     MsgBox CreateStr(6)
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

龙城飞将III

1. Function CreateStr(intNumber As Integer)
   
2.     Dim i As Integer
   
3.     Dim Str As String
   
4.     For i = 1 To intNumber
   
5.         Str = Str & Chr(10) & Space(i - 1) & String(intNumber * 2 - i * 2 + 1, "*") & Space(i - 1)
   
6.     Next
   
7.     CreateStr = Mid(Str, 2, Len(Str) - 1)
   
8. End Function
   
9. Sub Test()
   
10.     MsgBox CreateStr(6)
    
11. End Sub
    

复制代码