如何利用VB来画此图？

来源：百度知道编辑：UC知道时间：2024/06/06 18:20:31

第一行一个 *
第二行两个 *
第三行三个 *
第四行四个 *

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer

For i = 1 to 4
For j = 1 To i
Print "*";
Next j
Print
Next i
End Sub

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer

For i = 1 to 4
For j = 1 To i
Print "*";
Next j
Print
Next i
这样就对了～～

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 4
Print String(i, "*")
Next
End Sub

print "*"
print "**"
print "***"
print "****"

最短代码~哈哈~~
我是打酱油的~飘过