12 lines
215 B
Text
12 lines
215 B
Text
sub StringRepeat$ (s$, n)
|
|
cad$ = ""
|
|
for i = 1 to n
|
|
cad$ = cad$ + s$
|
|
next i
|
|
return cad$
|
|
end sub
|
|
|
|
print StringRepeat$("rosetta", 1)
|
|
print StringRepeat$("ha", 5)
|
|
print StringRepeat$("*", 5)
|
|
end
|