الحل كما يلي:Dim i As Integer, j As IntegerPrivate Sub Command1_Click()For i = 1 To 5For j = i To 7Print "*";Next jPrint ""Next iEnd SubPrivate Sub Command2_Click()For i = 1 To 7For j = 1 To iPrint "*";Next jPrint ""Next iEnd Sub
الحل كما يلي:
ردحذفDim i As Integer, j As Integer
Private Sub Command1_Click()
For i = 1 To 5
For j = i To 7
Print "*";
Next j
Print ""
Next i
End Sub
Private Sub Command2_Click()
For i = 1 To 7
For j = 1 To i
Print "*";
Next j
Print ""
Next i
End Sub