请用vb写下面小程序

来源:百度知道 编辑:UC知道 时间:2024/06/15 23:53:02
例一
*
**
***
**
*
例二
*
***
*****
***
*
把代码写出来的,第三位大哥啊,你太“厉害”了啊,

一、
For i = -2 To 2
For j = 1 To 3 - Abs(i)
Print "*";
Next j
Print
Next i

二、
For i = -2 To 2
For j = 1 To 5 - 2 * Abs(i)
Print "*";
Next j
Print
Next i

例一
Private Sub Form_Click()
Print "*"
Print "*" & "*"
Print "*" & "*" & "*"
Print "*" & "*"
Print "*"
End Sub
例二

Private Sub Form_Click()
Print "*"
Print "*" & "*" & "*"
Print "*" & "*" & "*" & "*" & "*"
Print "*" & "*" & "*"
Print "*"
End Sub

例一:

★★
★★★
★★


例二:

★★★
★★★★★
★★★

例1:
For j = 0 To 2
For i = 1 To j + 1
Print "*";
Ne