Question

VB编程题：几何图形打印？？程序如何变下啊？？就是图片上的图形

Answer 1

直接用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

Answer 2

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