problem 3
from memory:
could be right could be wrong you should try it...
Code:
dim out as string
select case design
case "A"
for i = 0 to 9
for a = 0 to i
out = out & "*"
next
out = out & vbcrlf
next
case "B"
for i = 0 to 9
for a = 0 to 10 - i
out = out & "*"
next
out = out & vbcrlf
next
case "C"
for i = 0 to 9
for a = 0 to 9
if a < 10 - i then
out = out & " "
else
out = out & "*"
next
out = out & vbcrlf
next
end select