VB编程高手请帮忙

来源：百度知道 编辑：UC知道 时间：2024/05/17 10:49:52
用“*”编写成一个平行四边行，点击命令按钮时显示出来。。
形状如下： *****
*****
*****
*****
帮忙写出代码就行拉！
是平行四边行``我的问题上显示的不对```
```想想平行四边行``~！

Private Sub Command1_Click()
Dim i, j, sp As Integer
Dim str As String

For i = 1 To 5 'NΪ¿í¶È

For sp = 1 To i
str = str + " " 'Ìí¼Ó¿Õ¸ñ£¬Æ½ÐÐËıßÐÎЧ¹û
Next sp
For j = 1 To 5 'MΪ³¤¶È
str = str + "*"
Next j
print str
str = ""
Next i
End Sub

Private Sub Command1_Click()
Dim i%, j%
For i = 1 To 3'行数为3，可以自己改
For j = 1 To 5'每行*个数为5，可以自己改

Print "*";
Next j
Print
Next i
End Sub

不知道你说的是不是这个
Const L = 4 '长
Const H = 4 '宽
Private Sub Command1_Click()
Dim i%, j%
For i = 1 To L
Print "*";
Next i
Print
For i