Question

vb用*号 打印输出图形

打印输出 一个 菱形 一个 等腰三角形！！！（三角形中间有空格）
菱形由5排*号组成 格式 2个*号 三角形由5排*号组成
4个*号 1个*号
6个*号 2个*号 中间有空格
4个*号 2个*号 中间有空格
2个*号 6个*号 中间有空格
用For循环 语句来做 谢谢 用label 来做 菱形 5 行 等腰三角形也是 5行（中间3行有空格）
谢谢大家 踊跃回答

Answer 1

用什么控键输出？textbox, label还是messagebox? 下面的程序用msgbox输出，另外三角形怎么才四行数据，是不是应该是这样：
*
* *
* * *
* * * *
* * * * *

Private Sub CommandButton1_Click()
Dim intRowNumber As Integer
Dim i As Integer
Dim j As Integer
Dim strOutput As String

intRowNumber = 5

'画菱形部分
For i = 1 To intRowNumber
If i < intRowNumber / 2 Then
For j = 1 To intRowNumber - i - 2
strOutput = strOutput + " " 'msgbox里一个星号的宽度是两个空格宽度，所以这里加两个空格,如果用别的方法输出看情况修改
Next j
For j = 1 To i * 2
strOutput = strOutput + "*"
Next j
Else
For j = 1 To i - 3
strOutput = strOutput + " " 'msgbox里一个星号的宽度是两个空格宽度，所以这里加两个空格
Next j
For j = 1 To (intRowNumber - i + 1) * 2
strOutput = strOutput + "*"
Next j
End If
strOutput = strOutput + vbCrLf
Next i

strOutput = strOutput + vbCrLf
strOutput = strOutput + vbCrLf

'画三角形部分，题目有问题吧-_-，1 2 2 6才四排，而且怎么看也不是个像样的三角形

For i = 1 To intRowNumber
For j = 1 To intRowNumber - i
strOutput = strOutput + " "
Next j
For j = 1 To i
strOutput = strOutput + "* "
Next j
strOutput = strOutput + vbCrLf
Next i
MsgBox strOutput
End Sub

Answer 2

菱形：Private Sub Form_Click()
For i = 1 To 5
Print Tab(Abs(i - 3) + 1); String((3 - Abs(i - 3)) * 2, "*")
Next i
End Sub
三角形明明只有四行，哪来的五行啊！

Answer 3

Private Sub Command1_Click()
Dim i%, k%
For i = 1 To 5
Print Spc(Abs(i - 3) * 2);
For k = 1 To IIf(i <= 3, i, 6 - i) * 2
Print "* ";
Next k
Print
Next i
End Sub

No.2 ?
没错？