简单VB编程,大家近来帮帮忙

来源：百度知道 编辑：UC知道 时间：2024/05/28 15:30:32
*
***
*****
*******
显示不出来,是一个等边三角形,不是上面的直角三角形,第一排1个,第二排3个,第三排5个,第4排7个

新建一个工程，就一个窗体form1.把代码复制进去，运行程序单击窗体，就会出现你要的效果。代码如下：

Private Sub Form_Click()
Dim i, j As Integer
Dim s As String
For i = 1 To 4
For j = 1 To 4 - i
s = s & " "
Next j
For j = 1 To 2 * i - 1
s = s & "*"
Next j
s = s & vbCr
Next i
Print s
End Sub