直接用LABEL控件输进去就OK。
或者：
Dim loopvar As Integer
Dim loopvart As Integer
For loopvart=1 to [你想最后几个]
For loopvar= 1 to [你想最后几个] step 2
Console.Write("*")
Next loopvar
Console.Writeline() ‘换行
Next loopvart
Dim i, j As Long
Dim n As Long 'n是总行数
n = 6
For i = 1 To n
Print Spc(n - i);
For j = 1 To i + i - 1
Print "*";
Next
Print '换行
Next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024