*    ************
        ***    **********
       *****    *******
     ********    *****
    **********    ***
   ************    *
我想在VB上显示这个图形，怎么显示？？
要求：中间必须有空隙把两个三角形隔开

Dim i As Long, j As Long
 
j = 10                                          '总行数
Me.Cls
For i = 1 To j
    me.Print String(j - i, " ") & String(2 * i - 1, "*");         '显示前半部分
    me.Print "  " & String(2 * j - i * 2 + 1, "*")                '显示后半部分
Next i

上面的 j  应该取 j=6否则多出4行

最笨的办法：一行一行的用print （貌似没人会怎样做）

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

楼上方法比较简洁

1\我没点总行数,所以用一个变量控制总行数.
2\总行数建议放到变量,主要是为了通用.

学习

5楼这位朋友的代码的确是很好啊

5楼的朋友能不能解释一下代码。本人刚学有点还不能理解！