Question

怎样用vb显示由*组成的三角形和平行四边形？求代码

最好是举例子，如果行数列数变化我应该怎么进行调整。。vb白痴跪求。。

Answer 1

'三角形
Private Sub CommandButton1_Click()
Dim i, j, max As Integer
max = 5
Dim str As String
For i = 0 To max
    For j = 0 To i * 2
        str = str & "*"
    Next j
    str = str & vbCrLf
Next i
MsgBox str
End Sub

'平行四边形
Private Sub CommandButton2_Click()
Dim i, j, max As Integer
max = 5
Dim str As String
For i = 0 To max
    For j = 0 To i * 2
        str = str & " "
    Next j
    For j = 0 To max * 2
        str = str & "*"
    Next j
    str = str & vbCrLf
Next i
MsgBox str
End Sub

　　这是2个方法 分别是三角形和平行四边形

        max是行数 你可以自行修改

　　最后结果是通过msgbox显示出来的 ，你也可以把他们显示到textbox、Lable或者其他你喜欢的控件上