Question

编写程序。窗体中有两个命令按钮和一个图片框。程序运行时，单击“图形1”按钮输出如下左方的方阵；单击“

编写程序。窗体中有两个命令按钮和一个图片框。程序运行时，单击“图形1”按钮输出如下左方的方阵；单击“图形2”按钮输出如下右方的下三角矩阵。

1 2 3 4 5 1
1 2 3 4 5 1 2
1 2 3 4 5 1 2 3
1 2 3 4 5 1 2 3 4
1 2 3 4 5 1 2 3 4 5

Answer 1

Private Sub Picture1_Click()
Dim i, j As Integer
Dim a(1 To 5, 1 To 5)
For i = 1 To 5
For j = 1 To 5
If j = 1 Then
a(i, j) = 1
ElseIf j = 2 Then
a(i, j) = 2
ElseIf j = 3 Then
a(i, j) = 3
ElseIf j = 4 Then
a(i, j) = 4

ElseIf j = 5 Then
a(i, j) = 5
End If
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
End Sub

Private Sub Picture2_Click()
Dim i, j As Integer
Dim a(1 To 5, 1 To 5)
For i = 1 To 5
For j = 1 To 5

If j = 1 Then

Picture2.Print 1;
ElseIf j = i Then
a(i, j) = i
Picture2.Print a(i, j);
ElseIf j = 2 Then
If i > 2 And i <= 5 Then
a(i, j) = j
Picture2.Print a(i, j);
End If

ElseIf j = 3 Then
If i > 3 And i <= 5 Then
a(i, j) = j
Picture2.Print a(i, j);
End If
ElseIf j = 4 And i = 5 Then
a(i, j) = j
Picture2.Print a(i, j);
End If
Next j
Picture2.Print
Next i
End Sub

Answer 2

你可以补充一下吗