QB Program to print string pattern.

 

 

 

 

 

 

 

Cls

sp = 20

b$ = String$(5, 42)

a$ = "NEPAL"

For i = 1 To 5

Print Tab(sp); Left$(b$, i); a$; Left$(b$, i)

sp = sp - 1

Next

End