例: String function

Dim stars As String, moreStars As String
stars$ = String$(4, Asc("*"))
moreStars$ = String$(8, "* characters")
Print stars$, moreStars$   ' Prints ****      ********