向着胜利炮火前进:vb的有趣者

for i = 1 to n
for j= 1 to i
print "*";
next j
print " ";
for j = 1 to s-i-2
print "*";
next j
print
next i

'这次的版本最简单了，应该能满足您的要求
Dim c As Long
Dim cs() As String '存储字符数组
Dim ks As String '相距的列数
Private Sub Form_Load()
c = 11 '每行星号个数，必须奇数
ks = " " '空两列，即两个空格
h3j 1
End Sub
Sub h3j(mydo As Integer) '画三角
Dim s As String
Dim i As Long
Dim c1 As Long
c1 = (c - 1) / 2 + 1
ReDim cs(c1)
For i = 1 To c1
s = ""
For j = 1 To i - 1
s = s & " "
Next
For j = 1 To c - Len(s) * 2
cs(i) = cs(i) & "*"
Next
cs(i) = s & cs(i) '& s
Next
Me.CurrentY = 500 '纵向位置
If mydo = 1 Then '先倒后正
For i = 1 To c1
Me.CurrentX = 500 '横向位置
Print cs(i) & " " & Trim(cs(c1 - i + 1))
Next
End If
If mydo = 2 Then '先正后倒
For i = c1 To 1 Step -1
Me.CurrentX = 500 '横向位置
Print cs(i) & " " & Trim(cs(c1 - i + 1))
Next
End If
End Sub

这个应该很简单啊 记住一行的个数是一定的 正+倒+2 是个定数 有循环做
for i = 1 to n 'n为定数表示有三角形几列
for j= 1 to i
print "*";
next j
print " ";
for j = 1 to s-i-2 's表示每行打印多少= 正+倒+2
print "*";
next j
print
next i

“正方向的三角和一个倒三角的方向”什么意思？或者请你把做一张图片解释一下。