Dim i As Integer
For i = 1 To 6
Print Tab(7 - i); String(2 * i - 1, "*"); Spc(5); String(2 * (7 - i) - 1, "*")
Next
5楼的方法主要是利用了print方法，现在解释一下，
tab 是 指当前的位置，比如tab（7）指在第七个字符的位置。
Space 函数 返回由指定数量的空格组成的字符串。
string（i ，a）括号内的前一个函数是位置，后面一个函数是字符。
关键在于print，如果它后面是分号，是紧跟着输出，后面是逗号则是分区输出。
然后用了一个循环。就实现了
For i = 1 To 6
Print Tab(7 - i); String(2 * i - 1, "*"); Spc(5); String(2 * (7 - i) - 1, "*")
Next
5楼的方法主要是利用了print方法，现在解释一下，
tab 是 指当前的位置，比如tab（7）指在第七个字符的位置。
Space 函数 返回由指定数量的空格组成的字符串。
string（i ，a）括号内的前一个函数是位置，后面一个函数是字符。
关键在于print，如果它后面是分号，是紧跟着输出，后面是逗号则是分区输出。
然后用了一个循环。就实现了
