例: Trim function

Dim trimAll As String, testString As String
testString$ = "   a bc   "
' Trim the string, removing leading and trailing spaces.
' Embedded spaces are not removed.
trimAll$ = Trim$(testString$)   ' Assigns "a bc"
Print trimAll$
Print testString$               ' Unmodified by Trim()
' Output:
' a bc
'    a bc