找人帮忙做个很简单的VB软件

来源：百度知道 编辑：UC知道 时间：2024/06/15 22:03:29
一个5层的三角形（等腰三角形），最上层是1个1，下面是2个2，然后3个3，4个4，5个5，像金字塔一样地叠，要求用数组。本人水平很低，不要用到太高级的知识，最好能带解释。

Option Base 1
Private Sub command1_click()
Dim i, j, k As Integer
Dim a(9) As String
For j = 1 To 5
For i = 1 To 9
a(i) = " "
Next i
For i = 6 - j To 4 + j Step 2
For k = 1 To j
a(i) = j
Next k
Next i
Print a(1) & a(2) & a(3) & a(4) & a(5) & a(6) & a(7) & a(8) & a(9)
Next j
End Sub
我试过了 可以用

这个干嘛用数组呢?
用循环就可以了嘛
Private Sub Command1_Click()
For i = 1 To 5
Print Spc(10 - i);
For j = 1 To i
Print Format(i); " ";
Next
Print
Next
End Sub

Option Base 1
Dim A() As Integer

Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
For i = 1 To 5
ReDim A(i)
For j = 1 To i
A(j) = i
Next j
Print Spc(20 - 2 * j);
For k = 1 To i
Print A(j - 1); " ";
Next k