dim x,y

for x=1 to 5

    for y=1 to x

    print "*";

    next y

print

next x