26 lines
532 B
Plaintext
26 lines
532 B
Plaintext
Public Sub Main()
|
|
|
|
Hello
|
|
Print CopyIt("Hello ", 6)
|
|
Print CopyIt("Hello ", 3, "!!")
|
|
|
|
End
|
|
'_____________________________________________________________________________________
|
|
Public Sub CopyIt(sString As String, siNo As Short, Optional sEnd As String) As String
|
|
Dim siCount As Short
|
|
Dim sNewString As String
|
|
|
|
For siCount = 1 To siNo
|
|
sNewString &= sString
|
|
Next
|
|
|
|
Return Trim(sNewString) & sEnd
|
|
|
|
End
|
|
'_____________________________________________________________________________________
|
|
Public Sub Hello()
|
|
|
|
Print "Hello world!"
|
|
|
|
End
|