在VB环境下怎样在屏幕上显示以下图形？

最简单的是使用字符串函数，例如

Dim N As Integer, I As Integer, Str1 As String
Dim Str2 As String
N = 3: Str1 = "*********"
For I = 1 To 2 * N - 1
If I <= N Then
Str2 = Left(Str1, I)
Else
Str2 = Left(Str1, N * 2 - I)
End If
Print Str2
Next

Dim N As Integer, i As Long
N = 3
For i = 1 To 2 * N - 1
Print String$(IIf(i <= 3, i, 2 * N - i), "*")
Next