在VB（Visual Basic）中打印星星图案，可以通过以下几种方法实现：
方法一：使用图形控件
新建一个VisualBasic标准工程，设置窗体的Caption属性为“画五角星”。
在窗体上添加两个按钮，一个用于绘制五角星，另一个用于清除画布。
编写窗体的load事件程序代码和两个按钮的Click事件程序代码，使用GDI+或Graphics对象来绘制五角星。
```vb
Private Sub Form_Load（）
Me.Show
End Sub
Private Sub mand1_Click（）
Dim R As Integer = 100
Dim xa, ya, x1, y1, x2, y2, x3, y3, x4, y4, x5, y5
Dim pi As Double = 5000
xa = R * Math.Cos（18 * pi / 180）
ya = R * Math.Sin（18 * pi / 180）
x2 = R * Math.Cos（54 * pi / 180）
y2 = R * Math.Sin（54 * pi / 180）
x3 = -xa
y3 = ya
x4 = 0
y4 = R
x5 = R * Math.Cos（150 * pi / 180）
y5 = R * Math.Sin（150 * pi / 180）
Dim g As Graphics = Me.CreateGraphics
g.DrawLine（Pens.Red, x1, y1, x2, y2）
g.DrawLine（Pens.Red, x2, y2, x3, y3）
g.DrawLine（Pens.Red, x3, y3, x4, y4）
g.DrawLine（Pens.Red, x4, y4, x5, y5）
g.DrawLine（Pens.Red, x5, y5, x1, y2）
End Sub
Private Sub mand2_Click（）
Me.Invalidate
End Sub
```
方法二：使用Print语句
在窗体的load事件程序代码中，使用Print语句打印星星图案。
```vb
Private Sub Form_Load（）
Me.Show
Print " "
For i = 1 To 5
For j = 1 To i
Print "*",
Next
Next
End Sub
```
方法三：使用循环和条件判断
使用循环和条件判断来绘制星星图案。
```vb
Private Sub Form_Load（）
Me.Show
Dim i As Integer
Dim j As Integer
For i = 1 To 5
For j = 1 To i
Print " ",
Next
For j = 1 To 2 * i - 1
Print "*",
Next
Next
End Sub
```
方法四：使用第三方库
如果需要更复杂的星星图案，可以使用第三方库如Microsoft Visual Basic 6.0的ActiveX控件或第三方图形库来实现。
总结
以上方法都可以在VB中打印星星图案，选择哪种方法取决于具体需求和编程经验。对于简单的五角星，使用图形控件或Print语句即可实现。对于更复杂的图案，可以考虑使用循环和条件判断或第三方库。