Private Sub Command1_Click()Dim i%, j% For i = 1 To 9 Print Tab(2 * i - 1); Print *; Next j PrintNext iEnd SubPrivate Sub Command2_Click()Dim i%, j%ClsFor i = 1 To 9 Print Tab(19 - 2 * i); For j = 1 To (2 * i - 1) Print *; Next j PrintNext iEnd SubPrivate Sub Command3_Click()Dim i%, j%ClsFor i = 1 To 9 For j = 1 To (19 - 2 * i) Print *; Next j PrintNext iEnd SubPrivate Sub Command4_Click()Dim i%, j%ClsFor i = 1 To 9 For j = 1 To (2 * i - 1) Print *; Next j PrintNext iEnd SubPrivate Sub Command5_Click()Dim i%, j%ClsFor i = 1 To 9 Print Tab(10 - i); For j = 1 To (2 * i - 1) Print *; Next j PrintNext iEnd SubPrivate Sub Command6_Click()Dim i%, j%ClsFor i = 1 To 9 Print Tab(i); For j = 1 To (19 - 2 * i) Print *; Next j PrintNext iEnd SubPrivate Sub Command7_Click()Dim i%, j%ClsFor i = 1 To 9 Print Tab(10 - i); For j = 1 To (2 * i - 1) If i = 9 Or j = 1 Or j = (2 * i - 1) Then Print *; Else Print ; End If Next j PrintNext iEnd SubPrivate Sub Command8_Click()Dim i%, j%ClsFor i = 1 To 9 Print Tab(i); For j = 1 To (19 - 2 * i) If i = 1 Or j = 1 Or j = (19 - 2 * i) Then Print *; Else Print ; End If Next j PrintNext iEnd SubPrivate Sub Command9_Click()Dim i%, j%, m%, s$Clsm = 64For i = 1 To 9 Print Tab(10 - i); For j = 1 To (2 * i - 1) If m = 89 Then m = m + 1 Else m = 65 End If s = Chr(m) Print s; Next j PrintNext iEnd Sub