|
'For a single char
|
|
showmessage String$(10, "-")
|
|
|
|
'For strings with more than one char
|
|
function Repeat$(Expr as string, Count as integer) as string
|
|
dim x as integer
|
|
for x = 1 to Count
|
|
Result = Result + Expr
|
|
next
|
|
end function
|
|
|
|
showmessage Repeat$("ha", 5)
|