Question

求图形VB代码

，编写程序，当单击开始按钮时在窗体上输出如下图案(不能用连续的Print语句输出)
1 2 2 2 2
0 1 2 2 2
0 0 1 2 2
0 0 0 1 2
0 0 0 0 1

Answer 1

Private Sub Command1_Click()
Dim a(5, 5) As Integer
For i = 1 To 5
For j = 1 To 5
If i = j Then
a(i, j) = 1
ElseIf i < j Then
a(i, j) = 2
Else
a(i, j) = 0
End If
Print a(i, j);
Next j
Print
Next i
End Sub

Answer 2

Private Sub Command1_Click()
Dim i, j, k, n
n = 5 '设为5*5自己修改
For i = 1 To n
For k = 1 To i - 1
Print 0;
Next
For j = 1 To n - i + 1
If j = 1 Then
Print 1;
Else
Print 2;
End If
Next
Print
Next
End Sub