VB 6.0

09/01/2012 15:55 ilovemaye#1
Who is Genius to solve this ff. problems especially 3 and 4?

"Problem is attached"
09/02/2012 19:39 tolio#2
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