เฉลย สามเหลี่ยมมหัศจรรย์ BSC 16 ก.ย. 53

        For i = 1 To 5
            For j = 1 To i
                txtDisplay.Text &= i
            Next
            txtDisplay.Text &= vbCrLf
        Next
 =============================
Output Display:
1
22
333
4444
55555