主题：如何去掉字符串?

如何用一行代码去掉字符串“美利合众国”右边的若干个字符?

用IndexOf计算出这几个字符的位置，在用Remove删除

如最右边第一个字符、第二个字符、第三个字符、第四个字符、第五个字符，我事先不知道这些字符是什么样的字符。是根据临时需要来删除最右边若干个字符的。

Dim abc As String = "abc中华人民共和国ssss"
abc = abc.SubString(0,abc.Indexof("中华人民共和国") + 7)
output.show(abc)

dim s as string=中华人民共和国

若果a=1,输出结果为“中华人民共和”

若果a=2,输出结果为“中华人民共”

若果a=3,输出结果为“中华人民”

若果a=4,输出结果为“中华人”

以此类推，注：事先不知道字符串s的内容。

Dim abc As String = "中华人民共和国"
For a As Integer = 1 To 4
    output.show(abc.SubString(0,abc.length - a))
Next