Private Sub Command1_Click()Dim mArrA(0 To 4, 1 To 5), mArrB(0 To 4, 1 To 5), i%, j%For i = 0 To 4
For j = 1 To i + 1
If j = 1 Then
mArrA(i, j) = i
Else
mArrA(i, j) = mArrA(i, j - 1) + 1
End If
Print mArrA(i, j);
Next j
PrintNext iPrintPrintFor i = 0 To 4
For j = 1 To 5
If j = 1 Then
mArrB(i, j) = i
Else
mArrB(i, j) = mArrB(i, j - 1) + 1
End If
If j >= i + 1 Then
Print mArrB(i, j);
Else
Print Spc(3);
End If
Next jPrintNext iEnd Sub
|