Private Sub Command1_Click()Dim str As StringFor i = 1 To 9For j = 1 To i * 2 - 1str = str & 10 - iNext jPrint strstr = ""Next iEnd Sub